用VBA向列表框(ComboBox或ListBox)中填加数据.docx

用VBA向列表框(ComboBox或ListBox)中填加数据向列表框中填加数据的方法很多，下面根据实例介绍3种最常用到的方法：图1图2如图1所示的下拉列表框（组合框），图2为其数据源，图2所有在工作表表名为：设置表无论哪种方法我们都首先要知道最后这个数据所在的行数。如图2的第4行。复制内容到剪贴板代码:Dim l As Long? ?? ?? ?表示行数时，应该习惯设成长整型? ? l = Sheets(设置表).Range(A65536).End(xlUp).Row上述代码请参见《用VBA得到EXCEL表格中的行数和列数》方法一：循环Additem复制内容到剪贴板代码:Sub OkExcel01()? ? ? ? Dim l As Long? ?? ?? ?表示行数时，应该习惯设成长整型? ? Dim i As Long? ? Dim ws As Worksheet? ? ? ? Set ws = Worksheets(设置表)? ? l = ws.Range(A65536).End(xlUp).Row? ? For i = 2 To l? ?? ???ComboBox1.AddItem (ws.Cells(i, 1))? ? NextEnd Sub这种方法常应用在：(1)将数组加到列表中；(2)不连续的区域；(3)从数据库中读出的数据等等。方法二：设置数据源区域复制内容到剪贴板代码:Sub OkExcel02()? ? ? ? Dim l As Long? ? Dim ws As Worksheet? ? ? ? Set ws = Worksheets(设置表)? ? l = ws.Range(A65536).End(xlUp).Row? ? ComboBox1.List = ws.Range(A2:A l).ValueEnd Sub这种方法常应用在连续的区域，如果源区域的数据固定（如民族）可以省算l的步骤。方法三：名称定义法：首先定义名称：（菜单：插入/名称/定义）图3如图3所示，定义名称当数据源中的数据有增减变化时执行如下过程：复制内容到剪贴板代码:Sub OkExcel03_1()? ? ? ? Dim l As Long? ? Dim ws As Worksheet? ? Set ws = Worksheets(设置表)? ? l = ws.Range(A65536).End(xlUp).Row? ? ThisWorkbook.Names(类别).RefersTo = =设置表!$A$2:$A$ lEnd Sub填写数据时执行职下过程：复制内容到剪贴板代码:Sub OkExcel03_2()? ? ? ? ComboBox1.List = ThisWorkbook.Names(类别).RefersToRange.ValueEnd Sub这种方法常应用在连续的区域，并且一个数据源应用于多个列表框，如在不同的窗体中。