macro đổi màu 1 ô thành nhiều màu theo điều kiện

[huonglypolice]

mình có 1 yêu cầu sau: khi cột B2=1 thì A2 màu đỏ,C2=1 thì A2 màu xanh (tất nhiên là chỉ 1 trong các cột bằng 1 thôi, cái đó thì mình sử dụng bằng hộp thoại thông báo error alert đc rồi nhưng có macro đưa ra thông báo thì càng tốt), mình mới làm đc 3 màu theo conditional formatting và 1 màu đen mặc định nhưng nếu số lượng yêu cầu lớn hơn_tức là cần nhiều cột hơn để đổi màu của A2, a3... thì làm 1 macro ntn? mình đã thử làm rồi nhưng nó chạy chưa chính xác, mong các pro help! Tương tự như các dòng tiếp theo, duyệt từ b2, b3,...(dùng next i) và cả c2, c3....thank all, ôi ko thể attach file đc!

 

[ChanhTQ@]

Theo tôi phải là

Const Str_ As String = "GIKOQS"
    . . . .
      For Jf = 6 To 1     ' Step - 1   !'
         If Cells(iJ, Mid(Str_, Jf, 1)).Value = 1 Then
            Cells(iJ, "A").Interior.ColorIndex = Jf + 33
              exit for
         End if
      Next 
    Next iJ

Nến xét rừ phải qua. Nếu thỏa thì next iJ sẽ giảm số lần Next (theo như yêu cầu)

Vậy chỉ cần đổi trật tự hằng số Str_ là được mà!

Bài này có thể xóa, nhưng nên sau vài giờ tồn tại! Xin Cảm ơn MOD/SMOD nhiều!!!

 

[huonglypolice]

Vậy chỉ cần đổi trật tự hằng số Str_ là được mà!

Bài này có thể xóa, nhưng nên sau vài giờ tồn tại! Xin Cảm ơn MOD/SMOD nhiều!!!

Bài này mình làm ra rồi, tại thêm mấy cái điều kiện nên nó ko chạy! Giờ mình giải ra rồi, tại cái cột mình làm bắt đầu từ dòng thứ 8 cho nên phải đặt n=cells(8,1) mới đúng, trong bài thử nghiệm là (1,1) thì chạy ra luôn đúng, hjhj, cám ơn các bạn rất nhiều!