評估大於x但小於VBA

Question

我正在構建一個應用程序，該應用程序必須解釋用戶設置的一組指令，這些指令要等到運行時才能知道。

我通過使用Evaluate函數來實現這一點，如下所示：

Evaluate("5>4")

正如人們所料，它返回True。 我的問題是如何評估以下陳述：

5大於4，但小於10

當然，我將用變量替換數字。

我意識到我可以將字符串分成兩個部分的數組並分別進行測試，但是必須有一種將單個參數傳遞給測試的方法。

Answer 1

Application.Evaluate求值對公式進行AND(5>A4,5<10)因此AND(5>A4,5<10)或(5>A4)*(5<10) （結果為0或1）

另一個選擇可能是ScriptControl Eval ，但是它無法訪問Evaluate Excel地址。

With CreateObject("ScriptControl")
    .Language = "VBScript"              ' either VBScript or JScript
    Debug.Print .Eval("5>4 and 5<10")
End With