蓝字关注,加微信NZ9668获资料信息
VBA解决方案 系列丛书作者
头条百家平台 VBA资深创作者
_______________________________
什么是存量残杀?简单而言,在取代OFFICE 新的办公软件没有到来之前,谁能把应用做到最为先进,谁就是王者。其中登峰至极的技能非VBA 莫属! 看全球股市震荡,市场信心不足,欧美股市熔断频发,后疫情时代将终将演绎一场战胜萧条的战役。无论怎样,我们一定要坚信,疫情终将会过去,曙光一定会到来。后疫情时代将会是一个全新的世界,很多理念都将被打破,大多数人不会再享受体制内的保护,对于我们每个人,要尽可能多的学习有用的知识,为自己充电。在今后更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。为后疫情时代做的必要准备。 今日继续和大家分享VBA 编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录,来源于我多年的经验。当前的代码多是出自VBA 数组与字典解决方案,今日分享的是NO.246 ,内容是: VBA 过程代码 246 : 文本转换为数组函数 Split Sub MyNZ() Dim Arr As Variant Arr =Split(Sheets("21").Cells(1, 1), " ") Sheets("21").Cells(3,1).Resize(UBound(Arr) + 1, 1) = Application.Transpose(Arr) End Sub 代码解析:MyNZ 过程使用Split 函数将工作表Sheets("21") 中A1 单元格的姓名分别写入到工作表Sheets("20") 中的A 列单元格。代码使用UBound 函数取得返回数组的最大下标后调整单元格区域,因为数组下标的缺省下界默认为0 ,所以在使用Resize 属性调整单元格区域时参数RowSize 需要在返回数组的最大下标上加1 。使用工作表Transpose 函数将返回数组转置后写入到工作表调整后的单元格区域中。 VBA 是利用OFFICE 实现自己小型办公自动化的有效手段,我根据自己20 多年的VBA 实际利用经验,现在推出了四部VBA 经验学习资料,是我“积木编程”思想的体现。 第一:VBA 代码解决方案,是VBA 中各个知识点的讲解,覆盖了绝大多数的知识点; 第二:VBA 数据库解决方案,是数据处理的专业利器,介绍利用ADO 连接ACCDB,EXCEL 。 第三:VBA 数组与字典解决方案,讲解VBA 中的数组和字典的利用。 第四:VBA 代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。 目前正在写第五部教程:VBA 中类的解读和利用,希望在年内陆续在各个平台和大家见面。 BA 真的非常实用,希望大家掌握这个工具,利用这个工具,让自己在工作中轻松,高效,快乐。学习有用的知识,让健康的知识服务于大众,不要想不劳而获,更不要去偷奸取巧,踏踏实实,沉下心,提高自己,为后疫情时代做好知识的储备。_____________________________
有启发 点在看,转给朋友 约作者 请留言,直接交流更多关联阅读