Excel VBA评估字符串到变量

Question

有什么方法可以使用excel vba吗？

Dim Var1 as integer
eval("var1=1")
msgbox var1,   'resault 1
Dim Var1 as integer,Var2 as string
Var2="Var1"
eval(Var2)=1
msgbox Var1 'rsault 1

Answer 1

您可以这样做。您不必求值var1=1，您可以将该表达式直接放入框中。这3个消息框分别为True、False和True。

Sub test()
var1 = 1
MsgBox var1 = 1
var1 = 2
MsgBox var1 = 1

x = Evaluate(var1 = 2)
MsgBox x
End Sub