【VBA】设置单元格边框

Sub 绘制四周边框(Rng)
    With Rng
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
    End With
End Sub

Sub 绘制四周边框(Rng)
    With Rng
        .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, ColorIndex:=3
    End With
End Sub

Sub 绘制所有边框(Rng)
    With Rng
        .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous, Weight:=xlMedium
        .Borders(xlInsideVertical).LineStyle = xlContinuous, Weight:=xlMedium
    End With
End Sub