vba的实用教程
大家好今天继续和大家分享VBA编程中常用的过程代码,有兴趣的朋友可以反馈交流一下：VBA中，什么是过程呢?
VBA过程代码21：选定单元格字体为粗体
Sub MyNZ()
Selection.Font.Bold = True
END SUB
代码的解析说明：上述代码过程将执行选择区域的字体设置，.Font.Bold = True是将字体设置为粗体，.Bold是粗体的设置。
VBA过程代码22：选定单元格字体为斜体
Sub MyNZ()
Selection.Font.Italic = True
END SUB
代码的解析说明：上述代码过程将执行选择区域的字体设置，.Font.Italic是将字体设置为斜体，.Italic是斜体的设置。
VBA过程代码23：选定单元格字体为宋体22号字
Sub MyNZ()
With Selection.Font
.Name = "宋体"
.Size = 22
End With
END SUB
代码的解析说明：上述代码过程将执行选择区域的字体设置，.Name 是字体的设置，.Size将字号的设置。
VBA过程代码24：With 语句
Sub MyNZ()
With 对象
.描述
.方法
End With
END SUB
代码的解析说明：上述代码过程运用With可以使代码简洁，With和End With要成对出现，中间执行的是With后跟的对象的描述或者方法，with是允许嵌套的。
VBA过程代码24：清除单元格，删除所有文字、批注、格式
Sub MyNZ()
ActiveCell.Clear
END SUB
代码的解析说明：上述代码过程运用Clear方法清除当前活动单元格各种设置及内容，包括删除所有文字、批注、格式。对于Clear方法中方法的解释见下图，属性和方法都可以在写代码时给出自动的提示，提示的图表是不同的。
VBA过程代码25：返回选定区域的非空单元格的个数
Sub MyNZ()
H = Application.WorksheetFunction.CountA(Selection)
MsgBox "非空单元格数" & H & "个."
End Sub
代码的解析说明：上述代码过程运用工作表函数CountA返回选定区域的非空单元格的个数。其中Application.WorksheetFunction是对工作表函数的引用，Selection是选择的区域，MsgBox是弹出对话框，反馈结果。
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键。
