Excel VBA eval字符串到变量

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