逻辑运算符if中的单元格内容

我在D8中有一个单元格“<”运算符值。

在我的macros代码中，我想比较一下这样的数据：

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

之后，当我将单元格D8从“<”更改为“>”时，macros代码必须像这样运行：

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

总结，当我改变D8“<”或“>”的值时，代码必须像我想要的那样比较。

我怎样才能做到这一点？

Answer 1

Application.Evaluate方法可以在你的代码中用来处理由一个构造string描述的操作。

 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