Option Explicit
Dim names
Sub Init()
With ThisWorkbook.Worksheets("Sheet1")
names = Array( _
"xiaohong", _
"xiaoli", _
"xiaozhang" _
)
End With
MsgBox (names(0))
End Sub
我正在试。
好像没全说清楚:我在Excel VBA中。
我采用了 Array 的方式:
Option Explicit
dim names
Sub Init(0
With ThisWorkbook.Worksheets("Sheet1")
names = Array( _
"xiaohong", _
"xiaoli", _
"xiaozhang" _
)
End With
End Sub
好像不行
Option Base 1 '设置下标
Private Sub Form_click()
Dim names
'赋值
names = Array("小明", "小红", "效力", "张明", "王武", "", "", "", "", "", "")
'通过Ubound()函数计算上界
i = UBound(names)
For j = 1 To i
Print names(j)
Next
End Sub
Option Base 1 '设置下标
Private Sub Form_click()
Dim names
'赋值
names = Array("小明", "小红", "效力", "张明", "王武", "", "", "", "", "", "")
'通过Ubound()函数计算上界
i = UBound(names)
For j = 1 To i
Print names(j)
Next
End Sub