Question

我正在寻找一种将项目添加到组合框列表而不将其直接添加到代码中的方法。

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

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

如果由于某种原因而要使其变得更复杂，则可以添加文本字段和命令按钮。用户在文本字段中输入新条目后，单击运行该宏的按钮：

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

有没有一种方法可以使用文本框和按钮添加到组合框列表？

1 个答案: