Nhờ rút gọn code đóng khung

[Son-Thuy]

Chào các bạn!
Tui muốn đóng khung khối ô Range("A16") với khung viền dày và đậm
Tui có record code đóng khung nhưng thấy dài dòng và khó hiểu
Nhờ các bạn Rút gọn và dễ hiểu, dễ áp dụng

Sub Macro3()
    Range("A1:D6").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Xin cảm ơn các bạn!

 

[huuthang_bd]

Nấu cao luôn thì còn lại bao nhiêu đây.

Sub Macro3()
    With Range("A1:D6")
        .Borders.LineStyle = xlNone
        .BorderAround xlContinuous, xlThick, xlAutomatic
    End With
End Sub

 

[be_09]

Chào các bạn!
Tui muốn đóng khung khối ô Range("A16") với khung viền dày và đậm
Tui có record code đóng khung nhưng thấy dài dòng và khó hiểu
Nhờ các bạn Rút gọn và dễ hiểu, dễ áp dụng

Sub Macro3()
    Range("A1:D6").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Xin cảm ơn các bạn!

Đăng bài không cụ thể lắm, vậy tham khảo code sau:

Sub NetDutVaViengDam()
With Worksheets("Sheet1")
        .Range("A1").CurrentRegion.Borders.ColorIndex = xlNone
        .Range("A1:D1").Borders.Weight = xlMedium
        .Range("A1").CurrentRegion.Offset(1).Borders.LineStyle = xlThin
        .Range("A1").CurrentRegion.BorderAround xlContinuous, xlThick
End With
End Sub