So sánh dữ liệu 2 sheet và tô màu cell khác biệt (1 người xem)

Người dùng đang xem chủ đề này

TungNhiYB

Thành viên mới
Tham gia
13/7/10
Bài viết
12
Được thích
2
Anh/chị giúp em với. -=.,,

Em muốn so sánh dữ liệu ở 2 sheet này. Cụ thể là so sánh từng ngày của mỗi người trong tháng và ô nào khác nhau sẽ tự động tô màu đỏ.

Sheet NS là bên nhân sự chuyển qua cho em. Sheet 7 là em tự nhập bằng tay nên số thứ tự và số lượng người không giống nhau hoàn toàn (về mã nhân viên và tên thì đồng nhất) ạ.
 

File đính kèm

Anh/chị giúp em với. -=.,,

Em muốn so sánh dữ liệu ở 2 sheet này. Cụ thể là so sánh từng ngày của mỗi người trong tháng và ô nào khác nhau sẽ tự động tô màu đỏ.

Sheet NS là bên nhân sự chuyển qua cho em. Sheet 7 là em tự nhập bằng tay nên số thứ tự và số lượng người không giống nhau hoàn toàn (về mã nhân viên và tên thì đồng nhất) ạ.
Bạn cần tô màu 1 vài kết quả mong muốn(cell khác biệt) thì sẽ nhanh có đáp án hơn!
 
í chủ đề này hay nè . bữa nay ngồi nhìn các chiến sĩ trổ tài xem sao . hi hi
 
Bạn cần tô màu 1 vài kết quả mong muốn(cell khác biệt) thì sẽ nhanh có đáp án hơn!

Nếu em mà biết cell nào khác biệt thì em ngồi tìm thủ công rồi còn gì ạ !$@!!

Sao nhầm được. Chàng test thử chưa??? So sánh giữa 2 sheet khác nhau thì tô màu. Chàng thay đổi giá trị 1 cell, hoặc oánh đại 1 số nào đó vào ô trống trong các cột từ ngày 1 -> 31 thì nó nhảy màu đỏ mà.

Em tải file của anh về thấy vẫn giống file của em mà. Em đánh thử vào ô trống có thấy gì đâu ạ -+*/

2 Bác chú ý là bài post ở BOX "Hàm & Công thức" nha. code két......hok chịu!!!!--=0--=0--=0--=0

Tiêu rồi. Em gà quá, chưa biết post bài vô đâu nên post tạm vô đây. Sai chủ đề hả anh hpkhuong. |
Làm cách nào cũng được, em chỉ mong mọi người giúp sớm thôi ạ }}}}}
 
oan ức quá nhỉ . file mình download của hpKhuong có công thức đấy
 
Giỡn chơi hay thiệt đó cha??? download về có CF không vậy? chứ mà không có thiệt thì oan thật/ mà 2 người kia download mà cũng không có CF, còn tôi download về mà có thì cũng Oan thật.........|||||||||||||||

Thực sự là không có thật ạ -+*/

Mà anh ơi, mục đích của em không phải là, lấy 1 cái làm đúng chuẩn, rồi nhập tay với cái khác.
Ở đây là so sánh dữ liệu của hai sheet, không nhập thêm gì vào, mà vẫn thấy được sự khác biệt dữ liệu.

Vì số thứ tự và cách sắp xếp tên ở hai sheet là khác nhau nên khó hơn ạ (do bên sheet 7, có thể vẫn có tên những người nghỉ việc mà bên ns bỏ đi rồi) _)()(-
 
Ý tôi là nhập thử để test xem nó có đổi màu không. chứ thực sự nó đã tự tô màu đỏ ở các ô mà khác nhau giữa 2 sheet rồi mà.
Bạn mở file lên, sheet 7 ví dụ các cell sau màu đỏ: E6, S8, T10,..... Bạn kéo qua kéo lại , kéo lên kéo xuông của bảng xem thấy còn nhiều cell màu đỏ mà . Tương tự sang sheet ns cũng vậy mà.

Không thì lấy lại file fost này xem. cũng là file y chang post trên cơ mà

-------------------------------------------------
P/s: có khi nào quý vị xài Office cũ hơn chăng (của tôi Office 2013 64bit).............+-+-+-+

Trồi ôi. Em dùng có 2007 thôi anh ạ. Giờ làm sao, làm sao đây! -\\/.

À, mà thứ tự người hai bên không giống nhau anh ạ. Sắp xếp loạn xì ngậu. Số lượng người có khi cũng khác. Nếu chỉ đơn thuần so sánh dữ liệu tại ô em e không đúng. Vì Ô E6 bên sheet ns là Nguyễn Văn Hưởng, còn ô E6 bên sheet 7 là Hoàng Nhi Quỳnh!
 
Lần chỉnh sửa cuối:
Tại bạn không nhìn được file tôi đã làm.
Nó không căn cứ vào dòng so với dòng, cho dù dòng nào đi nữa. thì công thức nó vẫn xét MÃ số người + đúng ngày , nếu có sự khác biệt thì nó tô thôi. Nên không quan trọng việc khác dòng, nhiều hay ít...........người.

mà túm lại bạn không đọc được file thì tôi nói gì cũng =0 rồi.............

Vậy có cách nào khác không anh?
 
Phải công nhận là 2007 xem sẽ không thấy được thiệt. Office 2007 thật là "tào lao".
 
Run code

Mã:
Sub ss()
On Error Resume Next
Dim r As Range, s As Range, f, i
For Each r In Sheets("7").UsedRange.Rows
    If r.Cells(, 2) <> "" Then
        Set f = Sheets("ns").Cells.Find(r.Cells(, 2), , , xlWhole)
        If Not f Is Nothing Then
            Set s = Sheets("ns").Rows(f.Row).Offset(, f.Column - r.Cells(2).Column).Resize(, r.Count)
            For i = 1 To r.Cells.Count
                If r.Cells(, i) <> s.Cells(, i) Then
                    r.Cells(, i).Interior.Color = vbRed
                    s.Cells(, i).Interior.Color = vbRed
                End If
            Next
        Else: r.Interior.Color = vbYellow
        End If
    End If
Next
For Each r In Sheets("ns").UsedRange.Rows
    If r.Cells(, 2) <> "" Then
        Set f = Sheets("7").Cells.Find(r.Cells(, 2), , , xlWhole)
        If f Is Nothing Then r.Interior.Color = vbYellow
    End If
Next
End Sub
 
Giải quyết kiểu gì vậy bạn?
CHia sẻ mình vs.
 

Bài viết mới nhất

Back
Top Bottom