VBA中的函数是什么？

我想问一下visual basic的“[a ..]”的function。 我写这样的代码。

ListBox1.ColumnWidths = "50;60;0;0;0;0;0;0;0;0;0;0;0;0;0;0;70;0;0;70;0;0;90;0;0;70;0;0;60;0;0;60" 'ukuran kolom ListBox1.columnCount = 32 ListBox1.List = ws.Range("a4:af" & [a30].End(3).Row).Value 

但编译错误。 框出现“可以find项目或图书馆”。 任何人都可以帮助我？

更新完整：

 Dim ws As Worksheet Dim nom As Integer Dim say As Long, a As Byte Private Sub userform_initialize() Sheets("VIP").Select Set ws = Sheets("VIP") ListBox1.ColumnWidths = "50;60;0;0;0;0;0;0;0;0;0;0;0;0;0;0;70;0;0;70;0;0;90;0;0;70;0;0;60;0;0;60" 'ukuran kolom ListBox1.columnCount = 32 ListBox1.List = ws.Range("a4:af" & [a30].End(3).Row).Value Private Sub ListBox1_Click() Set ws = Sheets("VIP") Label8 = ListBox1.ListIndex + 1 yay = Label8.Caption End Sub 

Answer 1

这是Range对象，与Evaluate相同：

 Sub FF() MsgBox TypeName([A1]) 'Shows "Range" MsgBox TypeName(Evaluate("A1")) 'Shows "Range" End Sub 

UPDATE

可以创build一个数组的方式相同：

 Dim x For Each x in [{1, 2, 3}] MsgBox x Next