列表框

列表框是用户可以从中选择项目的列表。要在Excel VBA中创建列表框，请执行以下步骤。

1.在“ 开发人员”选项卡上，单击“插入”。

2.在“ ActiveX控件”组中，单击“列表框”。

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

注意：您可以通过右键单击控件（确保已选择“设计模式”），然后单击“属性”来更改控件的名称。现在，我们将把ListBox1保留为列表框的名称。

创建一个工作簿打开事件。打开工作簿时，Excel VBA将执行添加到“工作簿打开事件”中的代码。

4.打开Visual Basic编辑器。

5.在项目资源管理器中双击“此工作簿”。

6.从左侧下拉列表中选择“工作簿”，然后从右侧下拉列表中选择“打开”。

7.要将项目添加到列表框中，请在“工作簿打开事件”中添加以下代码行：

注意：如果列表框位于第二个工作表上，请使用Sheet2；如果列表框位于第三个工作表上，请使用Sheet3，依此类推。如果在Workbook Open事件之外使用这些代码行，则可能需要添加以下代码行在这些代码行之前。此代码行清除了列表框。这样，如果您多次执行代码，则不会多次添加项目。

8.要将此列表框链接到单元格，请右键单击列表框（确保已选择设计模式），然后单击“属性”。为LinkedCell填写D3。

注意：另请参见ListFillRange属性以使用一系列单元格填充列表框。

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

结果：

尽管在某些情况下将列表框直接放置在工作表上可能会很有用，但将列表框放置在Userform上尤其有用。