怎样在vb中设置execl表格的边框线？

[zl413]

例如，将表格设置成只有横线没有竖线？

[zephyr_zhao]

以a1;c3区域为例

Range("A1:C3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft) ‘画左边竖线
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop) ’画上面横线
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone‘不画下面横线
Selection.Borders(xlEdgeRight).LineStyle = xlNone ’不画右面竖线
Selection.Borders(xlInsideVertical).LineStyle = xlNone ‘不画内部竖线
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone ’不换内部横线
End Sub

应该能理解把

[zephyr_zhao]

给分哦

[jafi]

要是再有问题，录制一个宏，看看不就得喽