如何用VBA快速設定框線

chou680702

各位菁英好：

在版上爬了許久的文，發現無人問關於框線的問題。
能否請教一下，如果要利用vba的語法來設定excel範圍內的框線，如[a1:e5]全部的框線(含內外框)，何種方式會比較快？
我有先用錄製的方式，但是語法看來相當長。

yagi2008

参考下列代码：
    With Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom)      '对sheet1表的b2单元格的底部边框设置（参数表示单元格的哪个框线）
        .LineStyle = xlContinuous   '设置框线的线条样式
        .Weight = xlThin    '设置框线粗细
        .ColorIndex = 3    '设置框线颜色
    End With

不知道对您是否有帮助~~

chou680702

如果要設定全部的框線，就要設定6次，只是更改xlEdgeBottom，是嗎？
不知道還有沒有更快的方式，因為要一次要將區域內的框線設定。

LangQueS

Sub 数据区画线()
ActiveSheet.UsedRange.Borders.LineStyle = 1
End Sub

chou680702

應該是這樣，謝謝。