ComboBox，添加了在执行代码时未显示在列表中的项目

Question

我遇到了一个小问题，我在我的用户表单中添加了组合框，但是当我执行代码时它们没有显示在组合框中...

我正在尝试以下代码

Private Sub period_input_Change()

With period_input

.AddItem "Apple"
.AddItem "Sugar"

End With
End Sub

也试过这个

Private Sub box_action()

With Sheets(1).period_input
    .AddItem "hello"
    .AddItem "mongoasd"
End With

End Sub

它只是显示为一个空列（没有字符串）。有谁知道这个问题？

Answer 1

您可能希望在表单的初始化阶段添加项目：

Private Sub UserForm_Initialize()
    With Me.period_input
        .AddItem "hello"
        .AddItem "mongoasd"
    End With
End Sub

否则，我发现代码没有问题。