本文基于以下文件

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)格的名字外，也可以使用它對(duì)應(yīng)的值來(lái)代替。有興趣的杺嘗試下不同的邊框風(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)置的顏色及對(duì)應(yīng)的值如下：

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

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

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

rng.Borders.Weight = xlThick

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

同樣的，也可以使用它們對(duì)應(yīng)的值來(lái)代替。

結(jié)果如下

4. 單邊框

單邊框，也就是只要一個(gè)方向有邊框。只要在前面例子中的Borders后面加上括號(hào)，在括號(hào)內(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語(yǔ)句

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

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

記得在對(duì)對(duì)象操作完后，要加上End With

本系列教程其它文章

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