Tóm lại ý bạn muốn gì: Là đổi màu cho Sheet tab hay đổi màu các cell trong sheet
Vẫn phải hỏi lại lần nữa: Tôi nghĩ là đâu chỉ so cột Hệ Số không thôi ---> Lý ra phải tính luôn cột TÊN chứ ---> Với tên ấy, hệ số ấy nhưng nếu sang sheet khác mà cố khác biệt thì sẽ tô màu, đúng không?
Nếu trong file của bạn chỉ có 2 sheet như trong bài và bạn chắc cú là danh sách ở 2 sheet hoàn toàn trùng khớp với nhau ở cột B thì bạn thử làm thế này
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
Dim VungTT, VungBL, I
Set VungTT = Sheets("thong tin").Range(Sheets("thong tin").[d4], Sheets("thong tin").[d1000].End(xlUp))
Set VungBL = Sheets("bang luong").Range(Sheets("bang luong").[d4], Sheets("bang luong").[d1000].End(xlUp))
VungTT.Interior.ColorIndex = xlNone: VungBL.Interior.ColorIndex = xlNone
For I = 1 To VungTT.Rows.Count - 1
If VungTT(I) <> VungBL(I) Then
VungTT(I).Interior.ColorIndex = 3
VungBL(I).Interior.ColorIndex = 3
End If
Next
Application.ScreenUpdating = True
End SubĐể khỏi phải sửa nhiều lần, theo mình, bạn phải cho biết mình phải lấy cột nào làm chuẩn để dò, nếu trong file của bạn có dữ liệu duy nhất ( thí dụ Mã Nhân viên chẳng hạn) mình sẽ tóm cột đó làm chuẩn để dò, nếu trùng Mã mà khác hệ số thì tô màu, dùng tên cũng được (nếu bạn muốn) nhưng nếu trong danh sách của bạn có 2 hoặc nhiều hơn 2 người trùng tên là code mình bị "tèo" ngay. Híc
Thì bạn......cứ đổi dữ liệu "búa xua" đi xem sao, thí dụ bạn đổi lung tung ở sheet "THONG TIN" xong bạn chọn sheet "BANG LUONG" xem sao, sau đó bạn chọn lại sheet "THONG TIN" xem có gì xảy ra ( bạn làm ngược lại cũng được). code không quan tâm về vị trí và nội dung của dỏng, cứ tìm mã ở 2 sheet trùng nhau thì so sánh hệ số, nếu hệ số khác nhau thì tô màu còn giống thì chẳng làm gì cả
Híc, hình như cái này khác một trời một vực với câu hỏi lúc đầu á
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Ws, VungTT, VungBL, I, Wf, iHang, DoTT, DoBL
Set Wf = Application.WorksheetFunction
Set VungTT = Sheets("THONG TIN").Range(Sheets("THONG TIN").[b3], Sheets("THONG TIN").[b1000].End(xlUp))
Set VungBL = Sheets("BANG LUONG").Range(Sheets("BANG LUONG").[b4], Sheets("BANG LUONG").[b1000].End(xlUp))
If ActiveSheet.Name = "THONG TIN" Or ActiveSheet.Name = "BANG LUONG" Then
VungTT.Offset(, 2).Resize(, 4).Interior.ColorIndex = xlNone
Union(VungBL.Offset(, 3), VungBL.Offset(, 6), VungBL.Offset(, 16), VungBL.Offset(, 17)).Interior.ColorIndex = xlNone
On Error Resume Next
For I = 1 To VungTT.Rows.Count
iHang = Wf.Match(VungTT(I), VungBL, 0)
DoTT = VungTT(I).Offset(, 2) & VungTT(I).Offset(, 3) & VungTT(I).Offset(, 4) & VungTT(I).Offset(, 5)
DoBL = VungBL(iHang).Offset(, 3) & VungBL(iHang).Offset(, 6) & VungBL(iHang).Offset(, 16) & VungBL(iHang).Offset(, 17)
If DoTT <> DoBL Then
VungTT(I).Offset(, 2).Resize(, 4).Interior.ColorIndex = 3
VungBL(iHang).Offset(, 3).Interior.ColorIndex = 3
VungBL(iHang).Offset(, 6).Interior.ColorIndex = 3
VungBL(iHang).Offset(, 16).Resize(, 2).Interior.ColorIndex = 3
End If
Next I
End If
End SubCó 2 vấn đề
Public Sub Tim()
Dim d, Ws, MaChuan, MaDo, I, J, M, K
Set Ws = Sheets("THONG TIN CHUAN")
Set MaChuan = Ws.Range(Ws.[b4], Ws.[b10000].End(xlUp)): Set MaDo = Range([b4], [b10000].End(xlUp))
Set d = CreateObject("scripting.dictionary"): K = 2
For I = 1 To MaChuan.Rows.Count
If Not d.exists(MaChuan(I).Value) Then d.Add MaChuan(I).Value, I
Next I
For I = 1 To MaDo.Rows.Count
M = d.Item(MaDo(I).Value)
For J = 2 To 5
If MaChuan(M).Offset(, J) <> MaDo(I).Offset(, J) Then
K = K + 1
MaChuan(M).Offset(, J).Interior.ColorIndex = K
MaDo(I).Offset(, J).Interior.ColorIndex = K
End If
Next J
Next I
End SubTrả về không màu sau khi sửa không có vấn đề gì, thêm tý tẹo code
Cái này sao bạn không đưa dữ liệu có cấu trúc đúng như file dữ liệu của bạn, thêm cột là sao??? bạn thường xuyên thêm cột và không biết thêm bao nhiệu cột ( do công việc) hay cấu trúc dữ liệu của bạn khác với bài này ???
Híc, có gì đâu mà ngại, giúp được nhau cái gì là giúp thôi mà
- Chọn thanh lệnh "Control ToolBox" ==> chọn cái hình giống cây thước vuông "Design Mode" ==>bấm vào nó 1 phát ==> thò anh tý vào cái nút ==> bấm giữ trái ==> đem tới chỗ mình muốn
Muốn vậy thì phải mở và khóa sheet bằng VBA
Muốn
