有没有办法使用文本框和按钮添加到组合框列表？

Question

我正在寻找一种无需直接将项目添加到代码中即可将项目添加到组合框列表的方法。

UserForm Image

Private Sub UserForm_Initialize()
    With ComboBox2
         .AddItem ".020"
         .AddItem ".030"
         .AddItem ".032"
         .AddItem ".040"
   End With

   With ComboBox3
        .AddItem "THK"
        .AddItem "DIA"
        .AddItem "TUBE"
        .AddItem "FORGING"
    End With
End Sub

我希望用户能够在不进入代码的情况下将项目添加到下拉列表中。有没有办法将 .AddItem 添加到组合框？

Answer 1

与列表框不同，组合框允许用户直接在组合框字段中键入新条目。这是最简单的解决方案，不需要额外的代码！

如果出于某种原因，您想让它变得更复杂，您可以添加一个文本字段和一个命令按钮。用户在文本字段中键入新条目后，他们单击运行此宏的按钮：

Private Sub CommandButton1_Click()
  ComboBox3.AddItem TextBox1.value
End Sub

有没有办法使用文本框和按钮添加到组合框列表？

Is there a way to add to a combobox list using a textbox and button?

vba

combobox

ms-word

userform