Code tô màu có điều kiện trong mảng..

Liên hệ QC

quanthienhan

Thành viên hoạt động
Tham gia
4/2/07
Bài viết
120
Được thích
3
Các bạn có thể cho mình xin cái code tô màu này được không ạ..xin cảm ơn nhiều ..
 

File đính kèm

  • tomau.xls
    13.5 KB · Đọc: 34
Các bạn có thể cho mình xin cái code tô màu này được không ạ..xin cảm ơn nhiều ..
Của bạn đây, nhớ ennable Macros trước khi mở File nhé!
Public Sub tomau()
Dim rng As Range, cll As Range
Set rng = Range("G4:J6")
For Each cll In rng
If cll.Value = Range("E1").Value Then
cll.Interior.ColorIndex = 3
Else
cll.Interior.ColorIndex = 0
End If
Next cll
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT
Back
Top Bottom