如何用VBA实现对单元格增加边框，以及单元格内容居中等格式设置。

使用VBA可以轻松的设置Excel中的一个或多个单元格甚至是一个区域的或者是被选中单元格的左对齐、友对齐、居中对齐、字体、字号、字型等属性。

①左对齐、右对齐、居中对齐

'选择区域或单元格右对齐Selection.HorizontalAlignment

=

Excel.xlRight

'选择区域或单元格左对齐Selection.HorizontalAlignment

=

Excel.xlLeft

'选择区域或单元格居中对齐Selection.HorizontalAlignment

=

Excel.xlCenter

固定区域的对齐方式的代码：

Range("A1:A9").HorizontalAlignment

=

Excel.xlLeft

②字体、字号、字型

'当前单元格字体为粗体Selection.Font.Bold

=

True

'当前单元格字体为斜体Selection.Font.Italic

=

True

'当前单元格字体为宋体20号字

With

Selection.Font

　.Name

=

"宋体"

　.Size

=

20

End

With

方法一：单击菜单栏中的“文件”/页面设置/页眉页脚/自定义页眉，在左、中右三个方框中输入页眉内容，然后在中间的方框中文字后面插入光标，敲一次回车键，再按键盘上的短横线键，一直添加三行半左右。不过这种办法做出来的是虚线。

方法二：先制作好EXCEL表格，将其它一切格式设置好，调出绘图工具，画一根直线和表格的页面宽度一样宽，选定这根直线，复制。再打开画图程序，点击编辑中的粘贴命令，将画布宽度尽量调整到直线宽度，保存为JEPG格式。然后进入“自定义页眉”界面，将光标定位在中间的方框中（如果有文字，就定位在文字后面）

方法三：将表格一切格式及页眉中内容完全做好后，在表格首行插入一行，按照表格列数合并刚才插入的行，在单元格格式中选择边框选项，在边框中单击上横线，添加好上横线。然后单击“文件”/页面设置/工作表，单击顶端标题行后面的按钮，在出现的界面中，选中刚才插入的行，单击确定。

方法三：在自定义页眉中，选中文字单击文本格式按钮，选择下划线，然后手工调整其长度。但这种方法不好掌控。

---