Excel的VBA组合框
组合框是从那里用户可以选择他/她自己选择的项目或填充一个下拉列表。在Excel中创建VBA组合框中,执行下列步骤。
1.在开发选项卡,单击插入。
2.在ActiveX控件组中,单击组合框。
3.在工作表上拖动一个组合框。
注意:您可以更改由控制右键单击一个控件的名称(确保设计模式被选中),然后单击属性。现在,我们将离开ComboBox1的组合框的名称。
创建一个工作簿打开事件。添加到工作簿打开事件代码将Excel的VBA当您打开工作簿执行。
4.打开Visual Basic编辑器。
5.双击该工作簿中的项目资源管理器。
6.从左边的下拉列表中选择工作簿,然后从右侧下拉列表中选择打开。
7.要将项目添加到组合框,添加以下代码行打开工作簿事件:
With Sheet1.ComboBox1 .AddItem "Paris" .AddItem "New York" .AddItem "London" End With
注:使用Sheet2中,如果您的组合框位于第二工作表上,表Sheet 3,如果您的组合框位于第三工作表,等等。如果你使用的工作簿Open事件外,这些代码行,你可能要添加下面的代码行这些前代码行。第一行代码清除组合框。这样,如果你执行你的代码不止一次您的项目将不会被添加多次。第二个代码行清除你自己的选择。
ComboBox1.Clear ComboBox1.Value = ""
8.该组合框链接到一个单元格,在组合框中单击鼠标右键(确保选中设计模式),然后单击属性。在D2填写LinkedCell。
注:又见ListFillRange属性来填充组合框的单元格区域。
9.保存,关闭并重新打开Excel文件。
结果:
尽管在某些情况下,它可以直接将一个组合框在工作表有用,当放置在用户窗体组合框特别有用。