一杯茶,满也好,少也好,不要浪费时间去争;浓也好,淡也好,其中自有值得品的味道。人生有顺境也有逆境,不可能处处是逆境;人生有巅峰也有谷底,不可能处处是谷底。逆境时多学习,积累的就是福报,谷底时多学习,积累的就是财富。走的路越远,心就会越宽;遇见的人越多,就会发现世界就越大。保持健康快乐的心态,坚定且执着,路和梦想就在脚下。有时间要学会去学习有用的知识,经营自己,而不是天天混日子,也不是天天熬日子,学习的过程能让您一生舒坦,快活似神仙。不管现实有多残忍,我们都要固执地相信,只要顽强的前行,一切阴霾都会吹散在风中。静下心,多学习有用的知识,为后疫情时代做知识的储备。后疫情时代将会是一个全新的世界,很多理念都将被打破,我们每个人,要尽可能多的学习有用的知识,为自己充电。在今后更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。为后疫情时代做的必要准备。
什么是存量残杀?简单而言,在取代OFFICE新的办公软件没有到来之前,谁能把应用做到最为先进,谁就是王者。其中登峰至极的技能非VBA莫属!
今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验的记录,来源于我多年的经验。最近代码多是出自"VBA数组与字典解决方案"教程,有一些朋友反映分享的内容不能很好的理解,可以参考这套资料的内容进行研读。今日分享的是第267期。
![a9e33774a1e80647a6564917038487d3.png](https://i-blog.csdnimg.cn/blog_migrate/cb3bcd9e38c15f284947d77de0c821c0.jpeg)
VBA过程代码267:将数组的拆分后合并作为字典的键,实现多条件的数据汇总
Sub MyNZ ()
Set mydic = CreateObject("scripting.dictionary")
'将数据页的数据放入数组
myarr = Sheets("数据").UsedRange
'将数组的前三列打碎后放入键中
For i = 2 To UBound(myarr)
If Not mydic.exists(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) Then
mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) = myarr(i, 4)
Else
mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) = _
mydic(Join(Array(myarr(i, 1), myarr(i, 2), myarr(i, 3)), "|")) + myarr(i, 4)
End If
Next
Sheets("43").Select
[a:e].Clear
Range("A1:D1") = Array("型号", "类别", "小类", "数量")
i = 2
'此处用一个循环将键回填到数据区域,这里要把键再合成一个数组
For Each key In mydic.Keys
Cells(i, 1).Resize(1, 3) = Split(key, "|")
Cells(i, 4).Value = mydic(key)
i = i + 1
Next
End Sub
代码讲解:上述代码实现了多列条件下数据的汇总求和的过程,在这个过程中是灵活的把数组打碎后放到键中,然后又建立起一个数组回填到数据区域中。把数组的前三列打碎并放到键中,这里用了array() 函数和JOIN() 函数,用了一个FOR RACH 的循环来把键提取出来,然后用Split()函数键又重新变成数组回填给工作表。
![bff61493dee2ac2e82740405f16f5b39.png](https://i-blog.csdnimg.cn/blog_migrate/1564e49fe45c773e048add4789adb6fa.jpeg)
VBA是利用Office实现自己小型办公自动化的有效手段.我根据自己20多年的VBA实际利用经验,现在推出了四部VBA经验学习资料,也是我"积木编程"思想的具体体现。
一:VBA代码解决方案,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点;
二:VBA数据库解决方案,是数据处理的专业利器,介绍利用ADO连接ACCDB,EXCEL。
三:VBA数组与字典解决方案,讲解VBA中的数组和字典的利用。
四:VBA代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。
目前正在写第五部教程:VBA中类的解读和利用,希望在年内能陆续在各个平台和大家见面,前些时在平台上发表了一事件响应的视频录屏,反响还是不错的,这个视频就是类的应用经典。
利用VBA进行数据统计真的非常实用,希望大家掌握这个工具,利用这个工具,让自己轻松,高效,快乐的工作。学习有用的知识,让健康的知识服务于大众,不劳而获,偷奸取巧,是不能获得有用的知识的,只有踏踏实实,沉下心,点滴起步,为后疫情时代做好知识的储备。我的目的是授人以渔,给大家提供我现成的经验,你可以借鉴到现成的经验,不偷着乐还更待何时?
![25343c98e30c80e138925161c4601e39.png](https://i-blog.csdnimg.cn/blog_migrate/bbf92a7ccf88d0947412e2ed8c50e680.jpeg)