单元格格式操作单元格字体格式设置在VBA中可以对单元格的字体格式进行各种设置，如下面的代码所示。#001PublicSubRngFont()#002WithRange("A1").Font#003.Name="华文彩云"#004.FontStyle="Bold"#005.Size=18#006.ColorIndex=3#007.Underline=2#008EndWith#009EndSub代码解析：RngFont过程对单元格A1的字体格式进行设置。其中第3行代码设置字体为“华文彩云”，应用于Font对象的Name属性返回或设置对象的名称。第4行代码设置字体为加粗，FontStyle属性返回或设置字体样式。设置为“Bold”加粗字体，设置为“Italic”倾斜字体，也可以设置成“BoldItalic”。第5行代码设置字体的大小为18磅，Size属性返回或设置字体大小。第6行代码设置字体的颜色为红色，应用于Font对象的ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号，如REF_Ref219562896\h图11所示。图STYLEREF3\s1SEQ图\*ARABIC\s31调色板中颜色的编号第7行代码设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为REF_Ref215368443\h表格11所列的XlUnderlineStyle常量之一。常量值描述xlUnderlineStyleNone-4142无xlUnderlineStyleSingle2单下划线xlUnderlineStyleDouble-4119双下划线xlUnderlineStyleSingleAccounting4会计用单下划线xlUnderlineStyleDoubleAccounting5会计用双下划线表格STYLEREF3\s1SEQ表格\*ARABIC\s31XlUnderlineStyle常量运行RngFont过程结果如REF_Ref215368546\h图12所示。图STYLEREF3\s1SEQ图\*ARABIC\s32单元格字体设置设置单元格内部格式设置单元格的Interior属性可以对单元格的内部格式进行设置，如下面的代码所示。#001SubRngInterior()#002WithRange("A1").Interior#003.ColorIndex=3#004.Pattern=xlPatternCrissCross#005.PatternColorIndex=6#006EndWith#007EndSub代码解析：RngInterior过程对A1单元格的内部格式进行设置。第2行代码使用Interior属性返回单元格对象的内部。第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色，可指定为如REF_Ref219562896\h图11所示的当前调色板中颜色的编号或为XlColorIndex常量之一：xlColorIndexAutomatic（自动填充）、xlColorIndexNone（无内部填充）。第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案。第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色，可指定为如REF_Ref219562896\h图11所示的当前调色板中颜色的编号XlColorIndex常量之一：xlColorIndexAutomatic（自动填充）、xlColorIndexNone（无内部填充）。运行RngInterior过程结果如REF_Ref215374075\h图13所示。图STYLEREF3\s1SEQ图\*ARABIC\s33设置单元格内部格式为单元格区域添加边框我们为单元格区域添加边框时往往通过录制宏获取代码，但宏录制器生成的代码分别设置单元格区域的每个边框，因此代码多且效率低。使用Range对象的Borders集合可以快速的对单元格区域的每个边框应用相同的格式，而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框，如下面的代码所示。#001SubAddBorders()#002DimrngAsRange#003Setrng=Range("B4:G10")#004Withrng.Borders#005.