突破数据验证列表，使用VBA创建3层和4层级联组合框

标签：VBA，组合框

你是否曾想过管理级联数据验证（即“数据有效性”）列表，而不需要几十到数百个命名的单元格区域？这里为你提供一个示例工作簿，其中运用的方法可以动态创建数据验证列表，允许管理垂直列表，向列表中添加新列，并无缝更新数据验证列表。

数据在电子表格中的排列如下图1所示。

图1

可见，与传统方法相反，数据是按行排列的。示例中的3个列表是按行垂直管理的，这更容易管理，因为每次添加新部门时，不必添加几个命名区域。

一般前提是，根据选择的部门（Department），获取列表并为用户提供选项，并将类别（Category）限制为所选的单一部门。因此，如果选择“Auto”，则第二个数据验证列表中只会显示“Cleaning”和“Accessories”。然后，如果选择了“Cleaning”，则第三个组合框中将显示“Engine Wash”、“Oil Clean”、“Windows”和“Pumpit”。如下图2所示。

图2

下面是我们可能希望在上面看到的示例。数据以漂亮的方式层叠而下。现在，如果我们要添加一个新的auto类别，那么数据将在数据验证列表中更新。

图3

本示例来源于：

https://www.thesmallman.com/blog/2022/4/24/cascading-combo-boxes-3-and-4-layer

有兴趣的朋友可以查看原文，并下载示例工作簿。

也可以到知识星球App完美Excel社群下载该示例工作簿。