我想实现如下
const a1 = "a"
const a2 = "b"
const a3 = "c"
...
...
...
我想在循环中引用这些常数,可以做到吗?请指教。
for i=0 to 100
"........" & a&i & "......."
next
不知道是否描述的清楚。
const a1 = "a"
const a2 = "b"
const a3 = "c"
...
...
...
我想在循环中引用这些常数,可以做到吗?请指教。
for i=0 to 100
"........" & a&i & "......."
next
不知道是否描述的清楚。
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPrivate Sub Command1_Click()
ExecuteLine "dim i as long ,j as long "
ExecuteLine "i = 1:j=3"
ExecuteLine "msgbox i + j"
ExecuteLine "msgbox (1+2)*3/4"
ExecuteLine "dim a as string"
ExecuteLine "a = ""dd"""
ExecuteLine "msgbox a"
End Sub
static a(x,y) as string