vba代码编程800例_VBA编程常用过程代码实例2630

蓝字关注，加微信NZ9668获资料信息

 VBA解决方案   系列丛书作者 

头条百家平台 VBA资深创作者

_______________________________

分享成果，随喜真能量。大家好，今天继续和大家分享 VBA编程中常用的过程代码,有兴趣的朋友可以反馈交流一下：VBA中，常用的过程又哪几类. VBA过程代码26：返回选定区域的非空单元格的个数 Sub MyNZ() H = Application.WorksheetFunction.CountA(Selection) MsgBox "非空单元格数" & H & "个." End Sub 代码的解析说明：上述代码过程运用工作表函数 CountA返回选定区域的非空单元格的个数。其中Application.WorksheetFunction是对工作表函数的引用，Selection是选择的区域，MsgBox是弹出对话框，反馈结果。 备注：前些时有朋友问如何引用 EXCEL功能区提示的数据个数，用上述方法即可实现。 VBA过程代码27：返回选定区域的行数 Sub MyNZ() MsgBox Selection.Rows.Count END SUB 代码的解析说明：上述代码过程返回选定区域的行数。 Selection.Rows.Count是选定区域行数的数目，MsgBox是弹出对话框，反馈结果。                          VBA过程代码28：返回选定区域的列数 Sub MyNZ() MsgBox Selection.Columns.Count END SUB 代码的解析说明：上述代码过程返回选定区域的列数。 Selection.Columns.Count是选定区域列数的数目，MsgBox是弹出对话框，反馈结果。 VBA过程代码29：返回选定区域的地址 Sub MyNZ() MsgBox Selection.Address END SUB 代码的解析说明：上述代码过程返回选定区域的返回选定区域的地址。 Selection.Address是选定区域地址，MsgBox是弹出对话框，反馈结果。注意：这里的地址是一种绝对地址的引用。 参考：单元格地址绝对引用是在构成单元地址的字母和数字前分别加“ $”。绝对引用：就是不管公式在那一列，或者是在那一行，所引用的单元不会因此而发生变化。 备注：对于绝对引用和相对引用，有兴趣的朋友可以查找一下我之前的文章。他们的变换是 F4键。   VBA过程代码30：代码过程在执行过程中将忽略所有的错误 Sub MyNZ() ON ERROR RESUME NEXT …….. ……… …….. END SUB 代码的解析说明：上述代码过程在执行过程中，如果遇到错误会忽略掉，继续往下执行   看板： 下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的“干货”，欢迎有需要的朋友联络(WeChat:NZ9668)，分享。 1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。 2 《VBA数据库解决方案》是数据处理的利器； 3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。 4  面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，“每天20分钟，半年精进VBA”活动正在火热进行中，越早报名，回馈越多。现在第一册很快录制完成。

_____________________________ 

有启发 点在看，转给朋友  约作者 请留言，直接交流

更多关联阅读