|
▼en さん:
パターンは全て作成前におさえないと穴だらけになりますよ。
コードにする前に処理を考えるのが先です。
後から簡単に追加修正できると思っていると
全て作り直しになる危険性もあります。
Sub Test()
Dim st As String
Dim i As Long
Dim j As Long
Dim n As Double
n = 5 '比較する値
For i = 33 To 38
st = Trim(Cells(i, "A").Value)
st = StrConv(st, vbNarrow)
st = Replace(st, "≧", ">=")
st = Replace(st, "≦", "<=")
'数値の後の単位を削除
For j = Len(st) To 1 Step -1
If Mid(st, j, 1) Like "[0-9]" Then
Exit For
End If
st = Left(st, Len(st) - 1)
Next
'評価する式を作成
If st <> "" Then
If IsNumeric(st) Then
st = "=(" & n & "=" & st & ")"
Else
st = "=(" & n & st & ")"
End If
Else
st = "=False"
End If
'式を評価
If Evaluate(st) Then
MsgBox Cells(i, "B").Value '該当あり
Exit For
End If
Next
End Sub
|
|