VBA如果循环有外部条件

Question

我试图在excel Vba项目中执行IF循环，其中if条件来自字符串，但它不起作用。我认为错误的发生是因为And逻辑运算符问题，程序没有被识别为逻辑运算符。

你有想法解决我的问题。

Dim tx As String
tx = "2<1 And 3>0.5"
If tx Then
    exh = 1
End If

Answer 1

您将tx变量声明为文本，并且不会被解释。您可以尝试Evaluate tx：

Dim tx As String
tx = "2<1 & 3>0.5"
If Application.Evaluate(tx) Then
    exh = 1
End If

注意：我将'和'替换为'＆amp;'。