VBA技巧11 单元格格式操作

《VBA技巧11 单元格格式操作》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、技巧1单元格格式操作1-1单元格字体格式设置在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行代码设置字体为加粗，Font

2、Style属性返回或设置字体样式。设置为“Bold”加粗字体，设置为“Italic”倾斜字体，也可以设置成“BoldItalic”。第5行代码设置字体的大小为18磅，Size属性返回或设置字体大小。第6行代码设置字体的颜色为红色，应用于Font对象的ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号，如图11所示。图11调色板中颜色的编号第7行代码设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为表格11所列的XlUnderlineStyle常量之一。常量值描述xlUnderlineStyleNone-4142无x

3、lUnderlineStyleSingle2单下划线xlUnderlineStyleDouble-4119双下划线xlUnderlineStyleSingleAccounting4会计用单下划线xlUnderlineStyleDoubleAccounting5会计用双下划线表格11XlUnderlineStyle常量运行RngFont过程结果如图12所示。图12单元格字体设置1-1设置单元格内部格式设置单元格的Interior属性可以对单元格的内部格式进行设置，如下面的代码所示。#001SubRngInterior()#002WithRange("A1").Interior#00

4、3.ColorIndex=3#004.Pattern=xlPatternCrissCross#005.PatternColorIndex=6#006EndWith#007EndSub代码解析：RngInterior过程对A1单元格的内部格式进行设置。第2行代码使用Interior属性返回单元格对象的内部。第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色，可指定为如图11所示的当前调色板中颜色的编号或为XlColorIndex常量之一：xlColorIndexAutomatic（自动填充）、xlColorIndexN

5、one（无内部填充）。第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案。第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色，可指定为如图11所示的当前调色板中颜色的编号XlColorIndex常量之一：xlColorIndexAutomatic（自动填充）、xlColorIndexNone（无内部填充）。运行RngInterior过程结果如图13所示。图13设置单元格内部格式1-1为单元格区域添加边框我们为单元格区域添加边框时往往通过

6、录制宏获取代码，但宏录制器生成的代码分别设置单元格区域的每个边框，因此代码多且效率低。使用Range对象的Borders集合可以快速的对单元格区域的每个边框应用相同的格式，而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框，如下面的代码所示。#001SubAddBorders()#002DimrngAsRange#003Setrng=Range("B4:G10")#004Withrng.Borders#005.LineStyle=xlContinuous#006.Weight=xlThin#007.ColorIndex=5#008EndWith#009

7、rng.BorderAroundxlContinuous,xlMedium,5#010Setrng=Nothing#011EndSub代码解析：AddBorders过程为单元格区域B4:G10设置内部统一边框并添加一个加粗外边框。第4行到第8行代码使用Borders属性引用单元格区域的Borders集合，其中第5行代码设置其边框样式线条的样式，第6行代码设置边框线条的粗细，第7行代码设置边框的颜色。应用于Range对象的Borders集合代表R