Question

我想知道如何通过几个下拉选项将项目添加到组合框中。我在下面附上了我的代码，但没有显示任何内容。有什么建议吗？

Sub ComboBox1_Change()
Dim i As Integer
i = ComboBox1.Items.Add("This is a new item")
ComboBox1.SelectedIndex = i
End Sub

Answer 1

您需要使用.AddItem代替.Items.Add，并且在combo的更改事件中也无需添加项目。我正在使用命令按钮添加它。

这是你在尝试的吗？

Private Sub CommandButton1_Click()
    ComboBox1.AddItem "This is a new item"

    '~~> After adding the item this will display the
    '~~> last item added in the combobox
    ComboBox1.Value = ComboBox1.List(ComboBox1.ListCount - 1)

    '~~> Display the dropdown via code if you need this as well
    ComboBox1.DropDown
End Sub

如果您想直接从组合框添加项目，那么您也可以使用它。在组合框中输入内容并按 ENTER 键

后，这将添加项目

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                              ByVal Shift As Integer)
    '~~> On Key Enter
    If KeyCode = 13 Then
        ComboBox1.AddItem "This is a new item"
    End If
End Sub

将选择添加到Combobox

1 个答案: