逻辑运算符在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