Excel_VBA实例教程__011：单元格格式操作.docx

1、单元格字体格式设置在VBA中可以对单元格的字体格式进行各种设置，如下面的代码所示。Public Sub RngFont()? ? With Range(A1).Font? ?? ???.Name = 华文彩云? ?? ???.FontStyle = Bold? ?? ???.Size = 18? ?? ???.ColorIndex = 3? ?? ???.Underline = 2? ? End WithEnd Sub代码解析：RngFont过程对单元格A1的字体格式进行设置。其中第3行代码设置字体为“华文彩云”，应用于Font对象的Name属性返回或设置对象的名称。第4行代码设置字体为加粗，FontStyle属性返回或设置字体样式。设置为“Bold” 加粗字体，设置为“Italic”倾斜字体，也可以设置成“Bold Italic”。第5行代码设置字体的大小为18磅，Size属性返回或设置字体大小。第6行代码设置字体的颜色为红色，应用于Font对象的ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号，如图 11 1所示。?图 1 调色板中颜色的编号第7行代码设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为表格 1所列的XlUnderlineStyle常量之一。常量值描述xlUnderlineStyleNone-4142无xlUnderlineStyleSingle2单下划线xlUnderlineStyleDouble-4119双下划线xlUnderlineStyleSingleAccounting4会计用单下划线xlUnderlineStyleDoubleAccounting5会计用双下划线表格 1 XlUnderlineStyle常量运行RngFont过程结果如图 11 2所示。?图 2 单元格字体设置2、设置单元格内部格式设置单元格的Interior属性可以对单元格的内部格式进行设置，如下面的代码所示。Sub RngInterior()? ? With Range(A1).Interior? ?? ???.ColorIndex = 3? ?? ???.Pattern = xlPatternCrissCross? ?? ???.PatternColorIndex = 6? ? End WithEnd Sub代码解析：RngInterior过程对A1单元格的内部格式进行设置。第2行代码使用Interior属性返回单元格对象的内部。第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色，可指定为如图 1所示的当前调色板中颜色的编号或为XlColorIndex 常量之一：xlColorIndexAutomatic （自动填充）、xlColorIndexNone （无内部填充）。第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案。第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色，可指定为如图 1所示的当前调色板中颜色的编号XlColorIndex常量之一：xlColorIndexAutomatic （自动填充）、xlColorIndexNone （无内部填充）。运行RngInterior过程结果如图 3所示。?图 3 设置单元格内部格式3、为单元格区域添加边框我们为单元格区域添加边框时往往通过录制宏获取代码，但宏录制器生成的代码分别设置单元格区域的每个边框，因此代码多且效率低。使用Range对象的Borders集合可以快速的对单元格区域的每个边框应用相同的格式，而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框，如下面的代码所示。Sub AddBorders()? ???Dim rng As Range? ???Set rng = Range(B4:G10)? ???With rng.Borders? ?? ?? ?.LineStyle = xlContinuous? ?? ?? ?.Weight = xlThin? ?? ?? ?.ColorIndex = 5? ???End With? ???rng.BorderAround xlContinuous, xlMedium, 5? ???Set rng = NothingEnd Sub代码解析：AddBorders过程为单元格区域B4:G10设置内部统一边框并添加一个加粗外边框。第4行到第8行代码使用Borders属性引用单元格区域的Borders集合，其中第5行代码设