Question

excel的VBA的下拉列表怎么添加项目

用VB做过，不知道在VBA里面怎么做

Answer 1

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

如果楼主的下拉列表指的是组合框而不是Sheet中的自动筛选或数据有效性的话，上面是一个样本，在窗体中的一个组合框ComboBox1在窗体UserForm的初始化事件中，把当前工作簿的每个Sheet的名字加到了List中，使用的是ComboBox的AddItem方法。

追问

问题是VBA的combobox模块根本没有list属性这个选项。VB里面就有这个选项

追答

嗯，不过，你只要可以添加项目就可以啦

追问

这回答靠谱点了，详细的说一下啊，怎么添加的啊

追答

你显示的是静态的属性窗口，如果想在初始化时预设组合框的数据，那就看RowSource，这里你可以指定组合框的数据和Excel表的某个区域绑定。当然你也可以在运行过程中改变RowSource的值，或者RowSource所绑定区域内的数据来改变combobox的列表内容。。而，我开始时的代码，则是通过AddItem的方法，和RowSource是不同的。

Answer 2

使用 ComboBox 的 RowSource 属性试试看！
RowSource Property

Specifies the source providing a list for a ComboBox or ListBox.

Syntax

object.RowSource [= String]

The RowSource property syntax has these parts:

Part Description
object Required. A valid object.
String Optional. The source of the list for the ComboBox or ListBox.

Remarks

The RowSource property accepts worksheet ranges from Microsoft Excel.