Excel 中用VBA加表线的问题

With Range("A1:B5,C:D,H:I").Borders(xlEdgeLeft)

'没有括号时，所有的边框

'括号内，xlEdgeLeft左边框，xlEdgeRight右边框,xlEdgeTop上边框,xlEdgeBottom下边框

'xlInsideVertical内部竖直线、xlInsideHorizontal内部水平线

.LineStyle = xlContinuous '普通线型，xlDot点线、xlDouble双细线……

.Weight = xlThin '线粗，xlHairline极细、xlThin细、xlMedium中、xlThick粗，也可以是数值

.ColorIndex = xlAutomatic '自动的颜色值，可以是0~50的整数，自己试试颜色

End With

-------------

其实，对那个 *** 作不会，可以先录制，然后到模块里看录制的代码，遇到不认识的关键字，用鼠标点在他中间，按F1会出现对应的系统帮助，里面很详细的

Sub abc()

''''增加线

Sheet1.Range("a1:c5").Borders.LineStyle = 1

''''删除线

Sheet1.Range("a1:c5").Borders.LineStyle = 0

End Sub

AddLine 方法

当本方法应用于 Shapes 对象时，返回一个 Shape 对象，该对象代表工作表中的新线条。当本方法应用于 CanvasShapes 对象时，返回一个 Shape 对象，该对象代表绘图画布中的新线条。

语法：

expression.AddLine(BeginX, Beginy, EndX, EndY)

其中：

expression 必选。该表达式返回 Shapes 对象。

BeginX, BeginY Single 类型，必需。相对于文档的左上角，以磅为单位给出线条的起点位置。

EndX, EndY Single 类型，必需。相对于文档的左上角，以磅为单位给出线条的终点位置。

示例：

本示例向 myDocument 中添加蓝色的虚线。

Set myDocument = Worksheets(1)

With myDocument.Shapes.AddLine(10, 10, 250, 250).Line

.DashStyle = msoLineDashDotDot

.ForeColor.RGB = RGB(50, 0, 128)

End With

---