Xóa ô có vạch chéo (1 người xem)

[hungdiep85]

Chào các Thầy/Cô và Anh/Chị


Trong file đính kiềm, Không biết có thể nào dùng code để xóa hết những ô không có đánh dấu vạch chéo không.


Mong các Thầy/Cô và Anh/Chị giúp em đoạn code với.


Em cảm ơn trước ah.

 

[leonguyenz]

Chào các Thầy/Cô và Anh/Chị
Trong file đính kiềm, Không biết có thể nào dùng code để xóa hết những ô không có đánh dấu vạch chéo không.
Mong các Thầy/Cô và Anh/Chị giúp em đoạn code với.
Em cảm ơn trước ah.

Thử code này xem:

Sub Gpe_DelX()
Dim Cel As Range
For Each Cel In Selection
    If Cel.Borders(5).LineStyle = xlNone Or _
        Cel.Borders(6).LineStyle = xlNone Then
        Cel.Clear
    End If
Next Cel
End Sub

 

[doatmenhhon]

Thử code này xem:

Sub Gpe_DelX()
Dim Cel As Range
For Each Cel In Selection
    If Cel.Borders(5).LineStyle = xlNone Or _
        Cel.Borders(6).LineStyle = xlNone Then
        Cel.Clear
    End If
Next Cel
End Sub

Híc em bấm mỏi cả tay mà chả có gì đặc biệt xảy ra ka ka ^^

 

[Ngoai Thanh]

Híc em bấm mỏi cả tay mà chả có gì đặc biệt xảy ra ka ka ^^

Bạn nhìn code có dòng For Each Cel In Selection
Tức là trước khi chạy code phải chọn vùng cần tác động.

 

[diemhuyenanh]

phải vầy mới đúng
Sub Gpe_DelX()
Dim sRng As Range, cl As Range
Set sRng = Sheets("sheet1").Range("C3:V5")
For Each cl In sRng
If cl.Borders(xlDiagonalDown).LineStyle = xlnone Or cl.Borders(xlDiagonalUp).LineStyle = xlnone Then
cl.Delete shift:=xlUp
End If
Next cl
End Sub

 

[hungdiep85]

Thử code này xem:

Sub Gpe_DelX()
Dim Cel As Range
For Each Cel In Selection
    If Cel.Borders(5).LineStyle = xlNone Or _
        Cel.Borders(6).LineStyle = xlNone Then
        Cel.Clear
    End If
Next Cel
End Sub

Cảm ơn anh nhiều lắm

 

[gtri]

Cảm ơn anh nhiều lắm

Vậy là xóa được ô nào?

 

[hungdiep85]

Vậy là xóa được ô nào?

xóa được rồi đó anh. em copy lên lại để thử xóa lại thôi à.

 

[doatmenhhon]

xóa được rồi đó anh. em copy lên lại để thử xóa lại thôi à.

Ý Gtri chắc đang khiếu nại treo đầu dê nhưng lại bán thịt chó ý mà ^^