数组值未添加到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是一个3d数组，其中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