Excel VBA入門（八）單元格邊框

本文基於以下文件

http://pan.baidu.com/s/1nvJtsu9

（部分）內容預覽：

1. 邊框樣式

Sub cell_format()n Dim sht As Worksheetn Dim rng As Rangen n Set sht = Worksheets("Parameter")n Set rng = sht.Range("B2:C20")n n 設置邊框格式n 這是常規的實線、細線，默認顏色為黑色n rng.Borders.LineStyle = xlContinuous nEnd Subn

結果如下：

這裡的xlContinuous代表著一種默認的Excel邊框風格，總共有以下幾種：

除了直接用各種風格的名字外，也可以使用它對應的值來代替。有興趣的杺嘗試下不同的邊框風格，看看效果。

2. 邊框顏色

rng.Borders.ColorIndex = 3n

或者

rng.Borders.Color = RGB(0, 255, 0)n

前面一種是直接使用VBA內置的幾種顏色值，後一種則可以直接使用RGB顏色，可以實現更高的個性化。VBA內置的顏色及對應的值如下：

所以示例代碼中，ColorIndex = 3，即表示使用的是紅色。結果如下：

3. 邊框寬度

（在做這一步之前，我把前面的邊框給清掉了）

rng.Borders.Weight = xlThick

這裡的xlThick也是一種內置的屬性，共有以下幾種：

同樣的，也可以使用它們對應的值來代替。

結果如下

4. 單邊框

單邊框，也就是只要一個方向有邊框。只要在前面例子中的Borders後面加上括弧，在括弧內指定邊就行了，其它設置不變：

rng.Borders(xlEdgeBottom).LineStyle = xlContinuousn

結果如下：

這裡代碼裡面使用的xlEdgeBottom表示下邊框的意思，但要提醒的是，這個「下邊框」指的是整個單元格區域（B2:C20）的底部邊框，而不是「這個區域內部所有單元格的底部邊框」。如果為要內部所有單元格都加上底線，可以用：

rng.Borders(xlInsideHorizontal).LineStyle = xlContinuousn

其它形式的邊框，可以自己去摸索

5. 使用with語句

前面1、2、3節，在設置邊框的樣式、顏色、寬度時，都使用的http://rng.Borders.xxx的形式，其實VBA中支持with語句，可以省去一些重複的代碼，更簡潔高效。如可用以下代碼同時設置表格樣式、顏色、寬度：

With rng.Bordersn .LineStyle = xlContinuousn .ColorIndex = 3n .Weight = xlThickn End Withn

記得在對對象操作完後，要加上End With