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