Tạo nút xóa dữ liệu theo màu của ô (1 người xem)

[210914101]

Chào các Anh, Chị!

Em có một khó khăn chưa biết làm thế nào, nhờ anh chị giúp đỡ e với.
Em có một mảng các dòng và cột.
Trong mảng này có các ô có một màu nền của ô giống nhau, vd: màu đỏ.
Em muốn tạo một nót bấm để xóa các ô có màu đỏ này đi.
Nhưng em không biết làm thế nào.
Mong các anh chị giúp đỡ.

 

[phulien1902]

Chào các Anh, Chị!

Em có một khó khăn chưa biết làm thế nào, nhờ anh chị giúp đỡ e với.
Em có một mảng các dòng và cột.
Trong mảng này có các ô có một màu nền của ô giống nhau, vd: màu đỏ.
Em muốn tạo một nót bấm để xóa các ô có màu đỏ này đi.
Nhưng em không biết làm thế nào.
Mong các anh chị giúp đỡ.

Bạn thử:

Sub abc()
    Dim Cll As Range, Rng As Range
    Set Rng = Range("A1:E100") ' Thay doi vung DL cua ban o day!
    For Each Cll In Rng
        If Cll.Interior.ColorIndex = 3 Then
            Cll.ClearContents
        End If
    Next
End Sub

 

[210914101]

cảm ơn bạn nhiều, mình không biết màu đỏ là được thể hiện ở điều kiện nào bạn.
Bạn chỉ mình với. Hi
cảm ơn bạn nhiều.

 

[210914101]

Mình làm chưa được, bạn giúp mình với. Mình gửi file lên bạn xem giúp mình với.

 

[be_09]

Mình làm chưa được, bạn giúp mình với. Mình gửi file lên bạn xem giúp mình với.

Bạn xóa định dạng có điều kiện đi là hết, không thể dùng code xóa dạng này.

 

[210914101]

Mình muốn xóa số trong ô có màu đó bạn. Định dạng là do mình tự tạo ra mà

 

[210914101]

Mình xóa thủ công hơi lâu, nên mới làm vậy để xóa bằng code

 

[phulien1902]

Mình làm chưa được, bạn giúp mình với. Mình gửi file lên bạn xem giúp mình với.

Bài toán của bạn không thể áp dụng Code trên được, bạn làm theo cách của bác Be09 nhé.

 

[210914101]

KHÔNG CÓ CÁCH NÀO KHÁC SAO CÁC BẠN.
GIÚP MÌNH VỚI

 

[be_09]

KHÔNG CÓ CÁCH NÀO KHÁC SAO CÁC BẠN.
GIÚP MÌNH VỚI

Không nên gõ chữ in là vi phạm nội quy.

Thực hiện như bài 5, hoặc chọn cột rồi Ctrl+H gõ con số cần xóa vào Find what rồi nhấn Replace All thì màu nó tự biến mất.

 

[210914101]

hi, mình nhầm. mình không biết, thực sự xin lỗi.

 

[HieuCD]

Mình làm chưa được, bạn giúp mình với. Mình gửi file lên bạn xem giúp mình với.

Chạy tạm code

Sub GPE()
    Dim Cell As Range, Rng As Range, tmp As String, n As Byte
    Set Rng = Range("A6", Range("J65500").End(xlUp).Offset(-1))
    tmp = CStr(Range("C3").Value)
    n = Len(tmp)
    For Each Cell In Rng
        If Left(Cell, n) = tmp Then
            Cell.ClearContents
        End If
    Next
End Sub

 

[210914101]

Bạn thật good, mình cảm ơn bạn rất nhiều. Cho bạn một like liền. hi