單元格的格式設置
接上一篇所講的單元格的格式設置
設置單元格的內部格式
設置單元格的Interior屬性可以對單元格的內部格式進行設置。
如下面的代碼所示:
Sub RngInterior()
With Range("A1").Interior
.ColorIndex = 2
.Pattern = xlPatternCrissCross
. PatternColorIndex = 6
End With
End Sub
代碼解析:
RngInterior過程對A1單元格的內部格式進行設置;
第2行代碼使用Interior屬性返回單元格對象的內部;
第3行代碼設置單元格邊框內部的顏色為紅色。應用於Interior對象的ColorIndex屬性返回或設置邊框內部的顏色;
第4行代碼設置單元格設置內部圖案為十字圖案。應用於Interior對象的Pattern屬性返回或者設置內部圖案;
第5行代碼設置單元格設置內部圖案的顏色為黃色。應用於Interior對象的PatternColorIndex屬性返回或設置內部圖案的顏色;
第2行與第4行等號後面數字所對應的顏色代碼如下圖:
上述代碼的運行結果如下:
單元格添加邊框
使用Range對象的Borders集合可以快速的對單元格區域的每個邊框應用相同的格式,而Range對象的BorderAround方法則可以快速地為單元格區域添加一個外邊框。
如下面的代碼所示:
Sub 給單元格設置圖框()
Dim rng As Range
Set rng = Range("A4:E10")
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
rng.BorderAround xlContinuous, xlMedium, 5
Set rng = Nothing
End Sub
代碼解析:
AddBorders過程為單元格區域A4:B10設置內部統一邊框並添加一個加粗外邊框。 第4行到第8行代碼使用Borders屬性引用單元格區域的Borders集合;
其中第5行代碼設置其邊框樣式線條的樣式;
第6行代碼設置邊框線條的粗細;
第7行代碼設置邊框的顏色;
應用於Range對象的Borders集合代表Range對象的4個邊框(左邊框、右邊框、頂部邊框和底部邊框)的4個Border對象組成的集合,這4個邊框既可單獨返回,也可作為一個組同時返回。 第9行代碼使用BorderAround方法為單元格區域添加一個加粗外邊框;
應用於Range對象的BorderAround方法向單元格區域添加整個區域的外邊框,並設置該邊框的相關屬性.
其語法如下: BorderAround(LineStyle, Weight, ColorIndex, Color) 其中LineStyle參數設置邊框線條的樣式,Weight參數設置邊框線條的粗細,ColorIndex 設置邊框顏色,Color參數以RGB值指定邊框的顏色。 注意 指定Color參數可以設置顏色為當前調色板之處的其它顏色,不能同時指定ColorIndex參數和Color參數。
運行AddBorders過程,結果如下: