vba用户窗体下拉菜单_三级下拉菜单的制作过程

大家好，今日我们继续讲解VBA数组与字典解决方案，今日的内容是第56讲，利用字典的嵌套，完成三级下拉菜单的制作。

在第54讲中我讲了利用字典的嵌套，完成二级下拉菜单的制作，很多朋友来信反馈说不过瘾，可是三级下拉菜单自己却调试不出来.今日我就给大家讲解一下，其实这和二级菜单的制作是类似的，但是需要读者充分理解字典嵌套的含义，也就是说ITEM值可以是字典，要充分理解这时字典的意义，在大脑中模拟这个过程。

实例，如下数据，我要建立一个自定义的窗体，实现省、市、县三级菜单的互动相应，

首先我们要建立一个窗体：

下面看我给出的代码：

Private Sub ComboBox1_Change()

ComboBox2.Clear

'二级下拉框对应的是第一级字典的键值为键的字典

If ComboBox1.Value <> "" Then ComboBox2.List = mydic(ComboBox1.Value)