在《Excel实战技巧68:创建级联列表框(使用ADO技术)》中,我们使用ADO技术将列表框中的项目关联起来,实现了级联列表框。
这里我们再举一个相对简单的实现级联列表框的例子。如下图1所示,选择左侧“项目”列表框中的项,在右侧“详细分类”中会列出相应的相关项。
图1
下图2是列表框中使用的数据。
图2
打开VBE,插入一个用户窗体,在用户窗体中放置两个标签和两个列表框,将左侧的列表框命名为lbxItem,右侧的列表框命名为lbxCategory,如下图3所示。
图3
在用户窗体代码模块中,输入下列代码:
'初始化用户窗体
Private Sub UserForm_Initialize()
Dim rngItem As Range
'将名称为"项目"的单元格区域赋值给变量
Set rngItem = Sheet1.Range("项目")
'列表框lbxItem中的值
Me.lbxItem.List = rngItem.Value
End Sub
'当列表框lbxItem选项改变时
Private Sub lbxItem_Change()
Dim rngCategory As Range
'将lbxItem中所选项对应的名称代表的单元格区域赋值给变量
Set rngCategory =Sheet1.Range(Me.lbxItem.Value)
'列表框lbxCategory中的值
Me.lbxCategory.List = rngCategory.Value
End Sub
现在,运行该用户窗体,将会得到上文图1中的效果。
欢迎分享本文,转载请注明出处。
欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。