xóa khung bằng VBA

[nguyendangkhoi]

Chào các anh chị trong diễn đàn.Em là thành viên mới nên có gì sơ xuất mong các anh chị bỏ qua.

Nhờ các anh chị trong GPE hướng dẫn em cách xóa tòan bộ khung (borders) trong 1 sheet .(làm bằng Macro)

 

[Po_Pikachu]

Bạn thử Record 1 Macro với thao tác là xóa khung thì sẽ được như vầy thôi. (Nhấn Alt + F11 để xem code)

Sub xoakhung()
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Thân.

 

[nguyendangkhoi]

Bạn thử Record 1 Macro với thao tác là xóa khung thì sẽ được như vầy thôi. (Nhấn Alt + F11 để xem code)

Sub xoakhung()
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Thân.

Sao no chỉ xóa những ô mình chọn thôi. em muốn khi nấn vo thì nó sẽ xóa toàn bộ khung trong sheet đó. nhờ anh hướng dẫn cụ thể hơn.
cám ơn anh nhiều

 

[Po_Pikachu]

Vậy thì sữa code đi 1 chút xíu thôi!

Sub xoakhung()
    Cells.Borders(xlDiagonalDown).LineStyle = xlNone
    Cells.Borders(xlDiagonalUp).LineStyle = xlNone
    Cells.Borders(xlEdgeLeft).LineStyle = xlNone
    Cells.Borders(xlEdgeTop).LineStyle = xlNone
    Cells.Borders(xlEdgeBottom).LineStyle = xlNone
    Cells.Borders(xlEdgeRight).LineStyle = xlNone
    Cells.Borders(xlInsideVertical).LineStyle = xlNone
    Cells.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Thân.

 

[hoangvuluan]

Bạn dùng macro này để xóa border cho 1 sheet:

Sub DelAllBorder()
ActiveSheet.Cells.Borders.LineStyle = xlNone
End Sub

 

[ndu96081631]

Dùng cái này đây:

Sub RemoveBorders()
    Selection.Borders.LineStyle = 0
End Sub

Hoặc:

Sub RemoveBorders()
  Cells.Borders.LineStyle = 0
End Sub

để xóa toàn bộ border trong sheet