vba代码编程800例_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是弹出对话框，反馈结果。

看板：

下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的“干货”，欢迎有需要的朋友联络（WeChat:NZ9668），分享。

1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。

2 《VBA数据库解决方案》是数据处理的利器；

3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制，现在第一册很快录制完成，看视频，“每天20分钟，半年精进VBA”活动正在火热进行中。