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

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

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

Create a list box in Excel VBA

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

Drag a List Box

注意：您可以更改由控制右键单击一个控件的名称（确保设计模式被选中），然后单击属性。现在，我们将离开ListBox1中的列表框中的名称。

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

4.打开Visual Basic编辑器。

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

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

Workbook Open Event in Excel VBA

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

With Sheet1.ListBox1

.AddItem "Paris"

.AddItem "New York"

.AddItem "London"

End With

注：使用Sheet2中，如果您的列表框位于第二工作表上，表Sheet 3，如果你的列表框位于第三工作表，等等。如果你使用的工作簿Open事件外，这些代码行，你可能要添加以下代码行这些前代码行。这行代码清除列表框。这样，如果你执行你的代码不止一次您的项目将不会被添加多次。

ListBox1.Clear

8.要连结此列表框的单元格，在列表框中单击鼠标右键（确保选中设计模式），然后单击属性。在D3填写LinkedCell。

LinkedCell

注：又见ListFillRange属性来填充列表框使用的单元格区域。

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

结果：

List Box

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