组合框是从那里用户可以选择他/她自己选择的项目或填充一个下拉列表。在Excel中创建VBA组合框中,执行下列步骤。

1.在开发选项卡,单击插入。

2.在ActiveX控件组中,单击组合框。

Create a combo box in Excel VBA

3.在工作表上拖动一个组合框。

Drag a Combo Box

注意:您可以更改由控制右键单击一个控件的名称(确保设计模式被选中),然后单击属性。现在,我们将离开ComboBox1的组合框的名称。

创建一个工作簿打开事件。添加到工作簿打开事件代码将Excel的VBA当您打开工作簿执行。

4.打开Visual Basic编辑器。

5.双击该工作簿中的项目资源管理器。

6.从左边的下拉列表中选择工作簿,然后从右侧下拉列表中选择打开。

Workbook Open Event in Excel VBA

7.要将项目添加到组合框,添加以下代码行打开工作簿事件:

With Sheet1.ComboBox1

.AddItem "Paris"

.AddItem "New York"

.AddItem "London"

End With

注:使用Sheet2中,如果您的组合框位于第二工作表上,表Sheet 3,如果您的组合框位于第三工作表,等等。如果你使用的工作簿Open事件外,这些代码行,你可能要添加下面的代码行这些前代码行。第一行代码清除组合框。这样,如果你执行你的代码不止一次您的项目将不会被添加多次。第二个代码行清除你自己的选择。

ComboBox1.Clear

ComboBox1.Value = ""

8.该组合框链接到一个单元格,在组合框中单击鼠标右键(确保选中设计模式),然后单击属性。在D2填写LinkedCell。

LinkedCell

注:又见ListFillRange属性来填充组合框的单元格区域。

9.保存,关闭并重新打开Excel文件。

结果:

Combo Box

尽管在某些情况下,它可以直接将一个组合框在工作表有用,当放置在用户窗体组合框特别有用。