TÔ MÀU trong excel theo điều kiện.TÔ MÀU dữ liệu TRÙNG nhau với màu khác nhau

9 Comments

1. 

   Cho e xin code với cô giáo

2. 

   Cô giáo nói ngọng N và L

3. 

   admin gửi xin code với

4. 

   Nói ngọng nghịu quá, nghe mệt quá.

5. 

   Nhận xét k có c ơi

6. 

   sao k có mã code hả c

7. 

   ko thấy công thức hả chị ơi? cho em xin công thức ạ daisy.anhle@gmail.com . Em xin cảm ơn ạ.

8. 

   Mình muốn tô màu với 2 điều kiện 1 lượt được không bạn. Ví dụ tô màu những ô số 30 và 28

9. 

   Đây là hai thủ tục tô màu và hủy tô màu
   Sub ToMau()
   
   Dim ws As Worksheet
   
   Dim cell As Range
   
   Dim myrng As Range
   
   Dim clr As Long
   
   Dim lastcell As Range
   
   Dim i As Long
   
   Dim lastrow As Long

   Set ws = ThisWorkbook.ActiveSheet

   'Vung can danh dau gia tri trung nhau
   Set myrng = Sheet8.Range("C4:c" & Sheet8.Range("A" & Sheet8.Rows.Count).End(xlUp).Row) 'lua chon vung c4 den c cuoi cùng

   With myrng
   
   Set lastcell = .Cells(.Cells.Count)
   
   End With

   myrng.Interior.ColorIndex = xlNone
   
   clr = 3

   For Each cell In myrng
   
   'Kiem tra so gia tri trung nhau trong vung, neu co hai gia tri trung nhau tro len thi thuc hien
   
   If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then
   
   'Neu la o dau tien cua cac gia tri trung nhau trong vung
   
   If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Address = cell.Address Then
   
   'Thiet lap mau
   
   cell.Interior.ColorIndex = clr
   
   clr = clr + 1
   
   i = i + 1
   
   Else
   
   'Thiet lap mau tu o thu 2 voi cac gia tri trung nhau
   
   cell.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Interior.ColorIndex
   
   End If
   
   End If
   
   Next
   
   'Lay dong cuoi cung cua vung du lieu
   
   'lastrow = Cells(Rows.Count, "A").End(xlUp).Row
   
   'Range("A" & lastrow + 2).Value = "Tong so co" & i & " gia tri trung nhau"
   
   End Sub
   ==============================
   Sub HuyBo_Mau()
   
   Dim myrng As Range
   
   Set myrng = Sheet8.Range("C4:C" & Sheet8.Range("A" & Sheet8.Rows.Count).End(xlUp).Row)
   
   With myrng.Interior
   
   .Pattern = xlNone
   
   .TintAndShade = 0
   
   .PatternTintAndShade = 0
   
   End With
   
   End Sub