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是弹出对话框，反馈结果。

看板：