时间戳

首页 > 解决方案 > 有没有办法使用文本框和按钮添加到组合框列表？

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

问题描述

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

用户窗体图像

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 添加到组合框？

标签： vbacomboboxms-worduserform

解决方案

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

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

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

推荐阅读