Giúp e tô màu ô theo điều kiện? (1 người xem)

[bibiranro]

e có 1 cột dữ liệu chứa số 1 và 2 tại mỗi ô, e muốn tô màu cho 1 dãy ô liên tiếp có từ 4 ô chứa số 1 trở lên, tương tự cho số 2 cũng vậy, trong file e gửi lên là e tô màu thủ công, muốn dùng công thức hay hàm thì e phải làm thế nào vậy? các ace giúp e với.

 

[SA_DQ]

(huyện này chắc fải xử bằng macro thôi;

Bạn xem trong file đính kèm

 

[Ba Tê]

e có 1 cột dữ liệu chứa số 1 và 2 tại mỗi ô, e muốn tô màu cho 1 dãy ô liên tiếp có từ 4 ô chứa số 1 trở lên, tương tự cho số 2 cũng vậy, trong file e gửi lên là e tô màu thủ công, muốn dùng công thức hay hàm thì e phải làm thế nào vậy? các ace giúp e với.

Thêm một Code "Xi Ma Chao" cho vui.
[GPECODE=vb]Public Sub XiMaChao()
Dim Rws As Long, I As Long, K As Long, Mau As Long
Rws = [B65536].End(xlUp).Row
Range("B1").Resize(Rws).Interior.ColorIndex = 0
For I = 2 To Rws
If Cells(I, 2) <> Cells(I - 1, 2) Then
K = 1
ElseIf Cells(I, 2) = Cells(I - 1, 2) Then
K = K + 1
End If
If Cells(I, 2) <> Cells(I + 1, 2) Then
If K >= 4 Then
Mau = IIf(Mau = 4, 6, 4)
Cells(I, 2).Offset(-K + 1).Resize(K).Interior.ColorIndex = Mau
K = 0
End If
End If
Next I
End Sub[/GPECODE]

 

[Tóc gió thôi bay]

e có 1 cột dữ liệu chứa số 1 và 2 tại mỗi ô, e muốn tô màu cho 1 dãy ô liên tiếp có từ 4 ô chứa số 1 trở lên, tương tự cho số 2 cũng vậy, trong file e gửi lên là e tô màu thủ công, muốn dùng công thức hay hàm thì e phải làm thế nào vậy? các ace giúp e với.

chọn ô B2
conditional formatting
condition 1: formula is=IF(ROW()>=4,MAX(COUNTIF(OFFSET(B2,1-ROW($1:$4),,4),1)),MAX(COUNTIF(OFFSET(B2,ROW($1:2)-ROW(),,4),1)))=4 . format...vàng
condition 2: formula is=IF(ROW()>=4,MAX(COUNTIF(OFFSET(B2,1-ROW($1:$4),,4),2)),MAX(COUNTIF(OFFSET(B2,ROW($1:2)-ROW(),,4),2)))=4 . format...xanh
cầm chổi nhúng vô ô B2 rồi quét xuống dưới

 

[huuthang_bd]

chọn ô B2
conditional formatting
condition 1: formula is=IF(ROW()>=4,MAX(COUNTIF(OFFSET(B2,1-ROW($1:$4),,4),1)),MAX(COUNTIF(OFFSET(B2,ROW($1:2)-ROW(),,4),1)))=4 . format...vàng
condition 2: formula is=IF(ROW()>=4,MAX(COUNTIF(OFFSET(B2,1-ROW($1:$4),,4),2)),MAX(COUNTIF(OFFSET(B2,ROW($1:2)-ROW(),,4),2)))=4 . format...xanh
cầm chổi nhúng vô ô B2 rồi quét xuống dưới

Tôi làm theo toàn bị treo ứng dụng