ppt vba编程代码大全_VBA编程常用过程代码实例26-30

分享成果，随喜真能量。大家好，今天继续和大家分享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()