Cần sửa VBA xóa tô màu nền

[barney1]

Em đang có 1 VBA tô màu nền xen kẽ đen- trắng , viết dữ liệu cột B xong thì sẽ tự tô màu các dòng chẵn. Nhưng với các dòng đã viết dữ liệu rồi, xóa dữ liệu thì các dòng tô màu không tự xóa theo. Các bác chỉ giúp cách sửa code

Sub ToMau1()
Dim ws As Worksheet
Dim lastRowA As Long
Dim lastRowB As Long
Dim lastColumn As Long
Dim i As Long
Dim j As Long
Dim cell As Range



Set ws = ThisWorkbook.Sheets("GOI")

' Xac dinh dong cuoi- cot B
lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).row
' Xac dinh dong cuoi tu cot F
lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).row


If lastRowB > 1 Then
Range("A1:E" & lastRowA).Interior.ColorIndex = xlColorIndexNone
For i = 1 To lastRowB
' Kiem tra neu chan
If i Mod 2 = 0 Then
' Tô màu den cot cuoi co du lieu
For j = 1 To lastColumn
ws.Cells(i, j).Interior.Color = RGB(218, 218, 218)
Next j
End If
Next i

End If
End Sub

 

[Hoàng Tuấn 868]

tô màu nền xen kẽ đen- trắng

Tô màu thế này mà dữ liệu nhiều lên thì file nặng thôi rồi, có khi mở còn không nổi bạn ơi.

 

[bebo021999]

Bạn cho ví dụ cụ thể:
Ví dụ:
Xóa nội dung ô B6 (dòng chẵn) , cả dòng 6 tô màu trắng
Nhập nội dung ô B6 (dòng chẵn) , cả dòng 6 tô màu đen
Hoặc xóa cả dòng từ 6:10, bắt đầu từ dòng 6 trở xuống tô màu lại theo quy tắc dòng chẵn thì tô.
....
Đại loại như vậy đó.

 

[TongDe]

Thêm 1 dòng Range("A10:F100").ClearFormats trước khi thực hiện lệnh tô màu...

 

[barney1]

Thêm 1 dòng Range("A10:F100").ClearFormats trước khi thực hiện lệnh tô màu...

mình chỉ cần xóa ở khoảng cuối cùg, sau khi viết thừa, mình xóa ký tự ở khoảng cuối- thì nó cũng xóa màu đi cùng

 

[TongDe]

Đơn giản nhất là chuyển qua table;
không cần cốt kiếc gì cả;
lại có nhiều style để lựa chọn...