邏輯運算符在if單元格中的塊中

Question

我在D8中有一個單元格「<」運算符值。

在我的宏代碼，我想一些數據比較喜歡的是：

if(e<10) then 
    msgbox "less than 10" 
Endif 

後，當我從「<」到「>」更改單元格D8，宏代碼必須運行這樣的：

if(e>10) then 
    msgbox "greater than 10" 
Endif 

總結， 當我改變D8的「<」或「>」的值，該代碼必須比較像我想要的。

我該如何做到這一點？

Answer 1

Application.Evaluate method可用於您的代碼來處理由構造字符串描述的操作。

Sub eval_test() 
    Dim e As Long 

    e = 9 
    Range("D8") = "<" 
    Debug.Print e & Range("D8").Value & 10 

    If Application.Evaluate(e & Range("D8").Value & 10) Then 
     MsgBox "e is " & Range("D8").Value & " 10" 
    Else 
     MsgBox "e is not " & Range("D8").Value & " 10" 
    End If 

End Sub