本文基于以下文件

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

（部分）內(nèi)容預(yù)覽：

1. 邊框樣式

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

結(jié)果如下：

這里的xlContinuous代表著一種默認(rèn)的Excel邊框風(fēng)格,，總共有以下幾種：

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

2. 邊框顏色

rng.Borders.ColorIndex = 3

或者

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

前面一種是直接使用VBA內(nèi)置的幾種顏色值,，后一種則可以直接使用RGB顏色,，可以實(shí)現(xiàn)更高的個(gè)性化。VBA內(nèi)置的顏色及對應(yīng)的值如下：

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

3. 邊框?qū)挾?/h2>

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

rng.Borders.Weight = xlThick

這里的xlThick也是一種內(nèi)置的屬性,，共有以下幾種：

同樣的，也可以使用它們對應(yīng)的值來代替,。

結(jié)果如下

4. 單邊框

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

rng.Borders(xlEdgeBottom).LineStyle = xlContinuous

結(jié)果如下：

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

rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous

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

5. 使用with語句

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

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

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

本系列教程其它文章

Excel VBA 入門（零）
Excel VBA入門（一）數(shù)據(jù)類型
Excel VBA入門（二）數(shù)組和字典
Excel VBA入門（三） 流程控制1－條件選擇
Excel VBA入門（四）流程控制2－循環(huán)控制
Excel VBA入門（五）Excel對象操作
Excel VBA入門（六）過程和函數(shù)
Excel VBA入門（七）注釋、宏按鈕及錯(cuò)誤處理
Excel VBA入門（八）單元格邊框
Excel VBA入門（九）操作工作薄