[已解决]请高手优化关于加边框的代码。在线等，急。。。。。

过江龙

 m = Target.Row
   Range(Cells(m, 1), Cells(m + 18, 7)).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
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

最佳答案

月排行榜 / 总排行榜

wayy

2010-10-30 13:02

Selection.Borders.LineStyle = True

with 后面的可以换为一句。

跳转到最佳答案楼层

wayy

Selection.Borders.LineStyle = True

with 后面的可以换为一句。

过江龙

谢谢楼上的老师，假如我要使这段代码对整个工作薄有效，该添加啥事件呢？

lpsh1985

[em09][em09][em09]

放在Thisworkbook里面？