人性的孽根性就在于不知足。但对于学习有用的东西却需要这种不知足，知道自己最重要的是什么，知道不重要的东西是什么，不要蜷缩在一小块自认为天堂的世界里。待到暮年时去做自欺欺人的言论。现在，就在现在。要努力提高自己，学习是一件很辛苦的事。要有一颗充满生机的心，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。寻找心灵的平静；不管遇到什么，都是风景。做善事。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。把浮躁的心静下来，去感悟真实的时间，静下心，多学习，积累福报。保持快乐的心态，坚定且执着。学习有用的知识，经营自己，而不是天天混日子，也不是天天熬日子。为后疫情时代做知识的储备。在今后更加严峻的存量残*世界中，为自己的生存进行知识的储备，特别是新知识的储备。
在取代OFFICE新的办公软件没有到来之前，谁能数据处理做到最为极致，谁就是王者。其中登峰至极的技能非VBA莫属！
今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验的记录，来源于我多年的经验。最近代码多是出自"VBA数组与字典解决方案"教程，有一些朋友反映分享的内容不能很好的理解，可以参考这套资料的内容进行研读。今日分享的是第290期。
Private Sub ComboBox1_Change()
ComboBox2.Clear
'二级下拉框对应的是第一级字典的键值为键的字典
If ComboBox1.Value <> "" Then ComboBox2.List = mydic(ComboBox1.Value).keys
End Sub
Private Sub ComboBox2_Change()
ComboBox3.Clear
'二级下拉框对应的是第一级字典的键值为键的字典
If ComboBox2.Value <> "" Then ComboBox3.List = mydic(ComboBox1.Value)(ComboBox2.Value).keys
End Sub
Private Sub UserForm_Activate() '第56讲 利用字典的嵌套完成三级级下拉菜单的制作
'将数据装入数组
myarr = Range("a1").CurrentRegion.Value
Set mydic = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(myarr)
strF = myarr(i, 1)
strS = myarr(i, 2)
strT = myarr(i, 3)
If Not mydic.exists(strF) Then
'建立嵌套字典，第一重字典的键对应的键值为字典
Set mydicTemp = CreateObject("Scripting.Dictionary")
Set mydic(strF) = mydicTemp
End If
If Not mydic(strF).exists(strS) Then
Set mydicTemp2 = CreateObject("Scripting.Dictionary")
Set mydic(strF)(strS) = mydicTemp2
End If
mydic(strF)(strS)(strT) = ""
Next i
'一级下拉框对应的是第一级字典的键
ComboBox1.List = mydic.keys
End Sub
Sub mynzsz_56() ' 利用字典的嵌套，完成三级下拉菜单的制作
UserForm2.Show
End Sub
代码解析：上述过程实现了三级菜单的响应，在"省"的菜单中实现省一级名称菜单，在"市"一级菜单中出现对应于"省"的市级菜单，在点击"县"时会出现对应于"市"名称的县级菜单。
VBA是利用Office实现自己小型办公自动化的有效手段.我根据自己20多年的VBA实际利用经验，现在推出了四部VBA学习教程，也是我"积木编程"思想的具体体现。
第一：VBA代码解决方案，是VBA中各个知识点的讲解，这部教程可以覆盖绝大多数的知识点；
第二：VBA数据库解决方案，是数据处理的专业利器，详细的介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。
第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。字典是VBA代码水平提高的手段，值得深入的学习。
第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。
上述教程的学习顺序，1,3,2或者是4,3,2逐渐深入的了解VBA掌握VBA.目前正在集中精力写第五部教程：VBA中类的解读和利用，希望在年内能陆续在各个平台和大家见面。
利用VBA实现个人办公小型自动化非常值得学习，希望大家掌握这个工具，利用这个工具，让自己轻松，高效，快乐的工作。我的"积木编程"思想也是值得大家借鉴的，这种思想让大家在代码中解脱出来，成模块的构建自己的应用，提高自己的编程效率。根据我提供的经验，利用时间多学习。
