Excel VBA编程 典型实例——录制单元格格式宏

Excel VBA编程典型实例——录制单元格格式宏

使用Excel时，经常要将某些单元格的格式设置为相同的样式，由于这些单元格并不相连，使工作效率低下。那么可以将单元格设置好的格式录制成宏，并通过设置宏快捷键来解决这个问题。

（1）打开Excel ，在【视图】选项卡中，单击【窗口】组的【取消隐藏】按钮，打开取消隐藏的对话框。

（2）在该对话框的列表框中选择PERSONAL.XLSB 选项，并单击【确定】按钮，如图3-36所示。

图3-36 取消隐藏

（3）在【开发工具】选项卡中，单击【代码】组中的【录制宏】按钮，打开【录制新宏】对话框。

（4）在对话框的【宏名】和【快捷键】文本框中分别输入“格式化单元格”和d 文字。

（5）然后在【保存在】下拉列表框中选择【个人宏工作簿】选项，在【说明】框中输入说明文字“设置选择的单元格格式”，如图3-37所示。

图3-37 录制新宏

（6）单击【确定】按钮开始录制，在工作簿中选择单元格B1，然后在【开始】选项卡中，设置B1单元格字体格式。

提 示

选择B1单元格，设置中文【字体】为“楷体GB-2312”；西文【字体】为Times New Roman ；【字号】为14。

（8）在【开发工具】选项卡中，单击【代码】组的【停止录制】按钮，完成表格样式模板的录制。单击该组中的【宏】按钮，打开【宏】对话框。

（9）在该对话框的【宏名】列表框中选择“格式化单元格”宏选项，并单击【编辑】按钮，如图3-38所示。

图3-38 编辑宏

（10）在VBE 环境的【代码】编辑窗口中，删除多余的代码和“Range("B1").Select ”语句，删除该语句使宏可以作用于其它的单元格。

选择 选择 输入

选择

输入 单击

单击

单击

代码如下：

Sub 格式化单元格()

' 格式化单元格Macro

' 设置选择的单元格格式

' 快捷键: Ctrl+d

With Selection.Font

.Name = "楷体_GB2312"

.Size = 11

End With

With Selection.Font

.Name = "Times New Roman"

.Size = 11

End With

With Selection.Font

.Name = "Times New Roman"

.Size = 14

End With

End Sub