|
分享成果，随喜真能量。大家好，今天继续和大家分享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'活动正在火热进行中，越早报名，回馈越多。现在第一册很快录制完成。 
|
|
|
