-
单元格的格式设置
接上一篇所讲的单元格的格式设置
2.设置单元格的内部格式
设置单元格的Interior属性可以对单元格的内部格式进行设置。
如下面的代码所示：
Sub RngInterior()</br>
With Range("A1").Interior</br>
.ColorIndex = 2</br>
.Pattern = xlPatternCrissCross</br>
.PatternColorIndex = 6</br>
End With</br>
End Sub</br>
代码解析：</br>
RngInterior过程对A1单元格的内部格式进行设置;</br>
第2行代码使用Interior属性返回单元格对象的内部;</br>
第3行代码设置单元格边框内部的颜色为红色。应用于Interior对象的ColorIndex属性返回或设置边框内部的颜色;</br>
第4行代码设置单元格设置内部图案为十字图案。应用于Interior对象的Pattern属性返回或者设置内部图案;</br>
第5行代码设置单元格设置内部图案的颜色为黄色。应用于Interior对象的PatternColorIndex属性返回或设置内部图案的颜色;</br>
第2行与第4行等号后面数字所对应的颜色代码如下图：
image
上述代码的运行结果如下：
image
-
单元格添加边框
使用Range对象的Borders集合可以快速的对单元格区域的每个边框应用相同的格式，而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框。</br>
如下面的代码所示：</br>
Sub 给单元格设置图框()</br>
Dim rng As Range</br>
Set rng = Range("A4:E10")</br>
With rng.Borders</br>
.LineStyle = xlContinuous</br>
.Weight = xlThin</br>
.ColorIndex = 5</br>
End With</br>
rng.BorderAround xlContinuous, xlMedium, 5</br>
Set rng = Nothing</br>
End Sub</br>
代码解析：</br>
AddBorders过程为单元格区域A4:B10设置内部统一边框并添加一个加粗外边框。
第4行到第8行代码使用Borders属性引用单元格区域的Borders集合;</br>
其中第5行代码设置其边框样式线条的样式;</br>
第6行代码设置边框线条的粗细;</br>
第7行代码设置边框的颜色;</br>
应用于Range对象的Borders集合代表Range对象的4个边框（左边框、右边框、顶部边框和底部边框）的4个Border对象组成的集合，这4个边框既可单独返回，也可作为一个组同时返回。
第9行代码使用BorderAround方法为单元格区域添加一个加粗外边框;</br>
应用于Range对象的BorderAround方法向单元格区域添加整个区域的外边框，并设置该边框的相关属性.</br>其语法如下：
BorderAround(LineStyle, Weight, ColorIndex, Color)
其中LineStyle参数设置边框线条的样式，Weight参数设置边框线条的粗细，ColorIndex 设置边框颜色，Color参数以RGB值指定边框的颜色。
注意 指定Color参数可以设置颜色为当前调色板之处的其它颜色，不能同时指定ColorIndex参数和Color参数。
运行AddBorders过程，结果如下：
image
网友评论