![0f9257393fcd14daca33f9c0ab58a8ef.png](https://i-blog.csdnimg.cn/blog_migrate/ca524e94c802c9c625e8494c8ecfdf56.jpeg)
未知的领域很广、风景很美,不要蜷缩在一小块自认为天堂的世界里。待到暮年时安于自欺欺人,要努力提高自己,学习是一件很辛苦的事。要有一颗充满生机的心,把握现在,这才是进取。机会总在等待中出现,越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。寻找心灵的平静;不管遇到什么,都是风景。怀善心,做善事。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。把浮躁的心静下来,去感悟真实的时间,静下心,多学习,积累福报。保持快乐的心态,坚定且执着。学习有用的知识,经营自己,而不是天天混日子,也不是天天熬日子。为后疫情时代做知识的储备。在今后更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。
在取代OFFICE新的办公软件没有到来之前,谁能数据处理做到最为极致,谁就是王者。其中登峰至极的技能非VBA莫属!
今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录,来源于我多年的经验。最近代码多是出自”VBA数组与字典解决方案”教程,有一些朋友反映分享的内容不能很好的理解,可以参考这套资料的内容进行研读。今日分享的是第288期。
![38dc90210a3e4c46bf0305f55ebdaa25.png](https://i-blog.csdnimg.cn/blog_migrate/4a0720be8c7b05276d884a538280acc8.jpeg)
VBA过程代码288:利用工作表函数,对字典的键值按大小排序,并给出对应的键
Sub MyNZ ()
Dim ran
Sheets("60").Select
Set mydic = CreateObject("Scripting.Dictionary") '字典
TT = Cells(Rows.Count, 1).End(xlUp).Row
For Each ran In Sheets("60").Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
If ran.Value <> "" Then
If Not mydic.exists(ran.Value) Then
mydic.Add ran.Value, 1 '需要注意此处要加VALUE
Else
mydic(ran.Value) = mydic(ran.Value) + 1
End If
End If
Next
'注意此处把字典的键和键值取出
K = mydic.keys: T = mydic.items
ReDim X(1 To mydic.Count, 1 To 2)
For i = 1 To mydic.Count
X(i, 1) = Application.Large(K, i) '按最大值的先后将数据放到数组中
X(i, 2) = mydic(X(i, 1)) '提取相应的键值
Next
MYCOUNT = i - 1
Set mydic = Nothing
Set mydic = CreateObject("Scripting.Dictionary") '字典
For i = 1 To MYCOUNT
mydic(X(i, 1)) = X(i, 2)
Next
K = mydic.keys: T = mydic.items
ReDim X(1 To mydic.Count, 1 To 2)
For i = 1 To mydic.Count
X(i, 2) = Application.Max(T)
'找到键的位置
W = Application.Match(X(i, 2), T, 0) - 1
'提取键
X(i, 1) = K(W)
'相应的键值变成空,以用MAX函数
T(W) = ""
Next
[e:f].Clear
[E1] = "排序": [f1] = "重复次数"
Sheets("60").[E2].Resize(mydic.Count, 2) = X
Set mydic = Nothing
End Sub
代码解析: 上述过程实现了把数据装入字典mydic,将数值放入字典的键,出现的次数放入键值中,然后把键及键值分别放入数组K,T中,注意是一维数组,然后对数值进行排序,用了large函数,排序完成后,再次装入字典,取出键和键值,此处这么处理的目的是获取一个一维数组,也可以用其他的处理方式,然后对键值进行排序,利用的是MAX函数,最后形成了先对数值出现次数的排序后对数值进行排序的结果,放到数组X中,最后回填数据。
![54c47bd84a845608f8e29bc01d60e112.png](https://i-blog.csdnimg.cn/blog_migrate/c585f9b0851054f4fe71a1d13232c976.jpeg)
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实现个人办公小型自动化非常值得学习,希望大家掌握这个工具,利用这个工具,让自己轻松,高效,快乐的工作。我的“积木编程”思想也是值得大家借鉴的,这种思想让大家在代码中解脱出来,成模块的构建自己的应用,提高自己的编程效率。根据我提供的经验,利用时间多学习。
![0db2ae615b96bdadb79de9f3e1c8f2a4.png](https://i-blog.csdnimg.cn/blog_migrate/0f70eb3f6b1c52b03124eaa5082a7816.jpeg)