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

本文基於以下文件

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

（部分）內容預覽：

1. 邊框樣式

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

結果如下：

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

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

2. 邊框顏色

rng.Borders.ColorIndex = 3

或者

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

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

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

3. 邊框寬度

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

rng.Borders.Weight = xlThick

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

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

結果如下

4. 單邊框

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

rng.Borders(xlEdgeBottom).LineStyle = xlContinuous

結果如下：

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

rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous

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

5. 使用with語句

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

    With rng.Borders
        .LineStyle = xlContinuous
        .ColorIndex = 3
        .Weight = xlThick
    End With

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

---

本系列教程其它文章

Excel VBA 入門（零）
Excel VBA 入門（一）數據類型
Excel VBA 入門（二）數組和字典
Excel VBA 入門（三） 流程控制1－條件選擇
Excel VBA 入門（四）流程控制2－循環控制
Excel VBA 入門（五）Excel對象操作
Excel VBA 入門（六）過程和函數
Excel VBA 入門（七）注釋、宏按鈕及錯誤處理
Excel VBA 入門（八）單元格邊框
Excel VBA 入門（九）操作工作薄
Excel VBA 入門（十）用戶窗體開發