Excel实战技巧72：又一个创建级联列表框的示例

在《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中的效果。

欢迎分享本文，转载请注明出处。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。