[已解决]【求问】字符串怎么变为变量？？

xdwy81129

Sub 试验()
Dim abc
cs3 = Split("请教;abc;正确", ";")
abc = "123456789"
cde = "123456789ttt"
Application.Run "模块1." & cs3(0), cs3(1), cs3(2)
End Sub

Sub 请教(cd$, qt$)
MsgBox Len(cd) & qt
End Sub

这里cs3(1)计算为="abc"
但想实现的是在字符串"请教;abc;正确"中，提取abc当然变量，即计算结果为9（正确答案），因为要计算的是abc = "123456789"，而不是"abc"

所以恳请各位老师赐教

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-9-13 17:18

abc = "123456789"->
set d=createobject("scripting.dictionary")
d.add "abc","123456789"
cs3(1)->
d(cs3(1))

跳转到最佳答案楼层

Select

没明白题意{:281:}

liuguansky

abc = "123456789"->
set d=createobject("scripting.dictionary")
d.add "abc","123456789"
cs3(1)->
d(cs3(1))