分享成果，随喜真能量。大家好今天继续和大家分享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是弹出对话框，反馈结果。
看板：
下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的“干货”，欢迎有需要的朋友联络（WeChat:NZ9668），分享。
1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。
2 《VBA数据库解决方案》是数据处理的利器；
3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。
4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制，现在第一册很快录制完成，看视频，“每天20分钟，半年精进VBA”活动正在火热进行中。
