未將數組值添加到VBA中的組合框中

Question

大家好，這是我的第一個問題。我試圖在我的用戶表單中填充我的組合框（名爲「ComboBox1」）。但是，我很難完成這個簡單的任務。這裏是我的代碼：

Private Sub Form_Load(menu) 
    Dim i As Integer 

    For i = 0 To 28 
     Me.ComboBox1.AddItem menu(i, 0, 0) 
    Next i 
End Sub 

menu是一個三維數組，其中menu((0 to 28), 0 ,0)在四月日期的字符串。但是，vba不會將它們添加到我的組合框中。任何人都可以點亮這件事嗎？

Answer 1

這最有可能是因爲你沒有調用Form_Load(menu)

這對我的作品。

Dim menu(0 To 28, 0, 0) 
Dim i As Long 

Private Sub CommandButton1_Click() 
    For i = 0 To 28 
     menu(i, 0, 0) = "Sid" & (i + 1) 
    Next i 

    Form_Load menu 
End Sub 

Private Sub Form_Load(menu) 
    For i = 0 To 28 
     Me.ComboBox1.AddItem menu(i, 0, 0) 
    Next i 
End Sub