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

Question

以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应该能理解把

Answer 1

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