vba如何向列表框添加内容

在VBA中，可使用以下代码向列表框添加内容：
```vba
' 声明一个变量作为列表框对象
Dim listBox As MSForms.ListBox
' 将列表框对象与实际的列表框关联
Set listBox = UserForm1.ListBox1
' 添加内容到列表框
listBox.AddItem "Item 1"
listBox.AddItem "Item 2"
listBox.AddItem "Item 3"
```
在上面的代码中，`UserForm1`是你的用户窗体对象，`ListBox1`是该窗体中的列表框对象。你可以根据实际情况修改这些名称。
`AddItem`方法用于向列表框添加内容。在上面的示例中，我们向列表框添加了三个项目。你可以根据需要屡次调用`AddItem`方法来添加更多的项目。
请注意，列表框的内容是从零开始索引的。这意味着第一个项目的索引是0，第二个项目的索引是1，以此类推。你可使用`listBox.ListIndex`属性来获得或设置当前选定项目的索引。