Arrays 未将数组值添加到VBA中的组合框中

嗨，这是我的第一个问题。我试图在我的用户表单中填充我的combobox（名为“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到28），0，0）

是4月份的日期字符串。然而，vba并没有将它们添加到我的组合框中。有人能解释一下这件事吗？

这很可能是因为您没有调用

表单加载（菜单）

这对我有用

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