| |
▼ﾊｰﾚｰﾀﾞﾋﾞｯﾄｿﾝ さん：
こんばんは。
>こんにちは。
>マクロを組んでいて題名の件で困っています。
>まず、基準と比較対照のシートがあります。
>基準とするシートの値（固定値）に対して、他社に配布し入力してもらう
>比較対照用のシートをぶつけて、採点をしています。
>
>Ａ〜Ｃ列まではリスト内の文字を選択するのですが
>Ｄ列のみ□□±（ﾌﾟﾗｽﾏｲﾅｽ）○○という値を入力してもらいます。
>
>（例）
>8.16±0.08（8.08〜8.24）
>
>望むことは
>・表示は8.16±0.08のまま
>・内部的には8.08〜8.24と認識してくれる
新規ブックの標準モジュールに
'==============================================================
Sub main()
Dim ans As Variant
Range("a1").Value = "8.16±0.08"
ans = get_scope(Range("a1"))
If TypeName(ans) <> "Boolean" Then
MsgBox ans(0) & "〜" & ans(1)
End If
End Sub
'===============================================================
Function get_scope(rng As Range) As Variant
Dim myarray As Variant
myarray = Split(rng.Value, "±")
get_scope = False
If UBound(myarray) = 1 Then
If IsNumeric(myarray(0)) And IsNumeric(myarray(1)) Then
get_scope = Array(CDec(myarray(0)) - CDec(myarray(1)), _
CDec(myarray(0)) + CDec(myarray(1)))
End If
End If
End Function
アクティブシートのセルＡ１の「8.16±0.08」を
解析した結果です。
こういうことですか？
|
|
ichinose
- 06/7/19(水) 19:07 -
