So sánh dữ liệu 2 sheet cùng cấu trúc (1 người xem)

[thutran0801]

Chào mọi người, mình đang gặp vấn đề so sánh dữ liệu giữa 2 sheet. Mình có tìm kiếm trên diễn đàn và tìm thấy 1 bài hay về vấn đề này nhưng code áp dụng là đổi màu chỗ khác dữ liệu còn cái mình cần là chèn ngày tháng ở cột sau cùng của cell vừa sửa dữ liệu, mong mọi người giúp đỡ


link nguồn: http://www.giaiphapexcel.com/forum/...biệt-trong-các-cột-của-2-file-excel-và-tô-màu

 

[befaint]

Chào mọi người, mình đang gặp vấn đề so sánh dữ liệu giữa 2 sheet. Mình có tìm kiếm trên diễn đàn và tìm thấy 1 bài hay về vấn đề này nhưng code áp dụng là đổi màu chỗ khác dữ liệu còn cái mình cần là chèn ngày tháng ở cột sau cùng của cell vừa sửa dữ liệu, mong mọi người giúp đỡ
link nguồn: http://www.giaiphapexcel.com/forum/showthread.php?69327-So-sánh-sự-khác-biệt-trong-các-cột-của-2-file-excel-và-tô-màu

Thay vì đỗi màu những ô khác dữ liệu, mình cần đc giúp thêm ngày tháng vào Update day

(1):
"Thay" tức là loại bỏ cái cũ.
"Thêm" tức là cho thêm vào cái cũ (giữ lại cái đã có).
Túm lại là "thay" hay "thêm"?
(2): "ngày tháng vào Update day" nghĩa là như nào? Cho ví dụ minh họa?

 

[thutran0801]

(1):
"Thay" tức là loại bỏ cái cũ.
"Thêm" tức là cho thêm vào cái cũ (giữ lại cái đã có).
Túm lại là "thay" hay "thêm"?
(2): "ngày tháng vào Update day" nghĩa là như nào? Cho ví dụ minh họa?

Cám ơn bạn mình cần thay vì đổi màu thì sẽ chèn ngày tháng vào cột update day trong file mẫu mình up trên đó

 

[thutran0801]

(1):
"Thay" tức là loại bỏ cái cũ.
"Thêm" tức là cho thêm vào cái cũ (giữ lại cái đã có).
Túm lại là "thay" hay "thêm"?
(2): "ngày tháng vào Update day" nghĩa là như nào? Cho ví dụ minh họa?

Ví dụ khi mình sửa bất kì cell nào dòng đầu tiên sau khi bấm button update thì cột Update day sẽ hiển thị ngày tháng hiện tại lên

 

[PacificPR]

Vậy thì sửa lại Code của bạn 1 tý thôi

Sub KT()
    Dim x, y As Integer, Er As Long
    Application.ScreenUpdating = False
Er = Sheet2.Range("A65535").End(3).Row
Ecol = Sheet2.Range("IV1").End(xlToLeft).Column
With Sheet2
   .Range(.Cells(2, 1), .Cells(Er, Ecol)).Interior.ColorIndex = xlNone
    For x = 2 To Er
        For y = 1 To Ecol - 1
            If .Cells(x, y).Value <> Sheets("dulieu").Cells(x, y).Value Then
                .Cells(x, Ecol) = Now
                With .Cells(x, y).Interior
                    .ColorIndex = 40
                    .Pattern = xlSolid
                End With
            End If
        Next y
    Next x
End With
Application.ScreenUpdating = True
End Sub

 

[thutran0801]

Vậy thì sửa lại Code của bạn 1 tý thôi

Sub KT()
    Dim x, y As Integer, Er As Long
    Application.ScreenUpdating = False
Er = Sheet2.Range("A65535").End(3).Row
Ecol = Sheet2.Range("IV1").End(xlToLeft).Column
With Sheet2
   .Range(.Cells(2, 1), .Cells(Er, Ecol)).Interior.ColorIndex = xlNone
    For x = 2 To Er
        For y = 1 To Ecol - 1
            If .Cells(x, y).Value <> Sheets("dulieu").Cells(x, y).Value Then
                .Cells(x, Ecol) = Now
                With .Cells(x, y).Interior
                    .ColorIndex = 40
                    .Pattern = xlSolid
                End With
            End If
        Next y
    Next x
End With
Application.ScreenUpdating = True
End Sub

Hay quá, cám ơn bạn nhiều nha!!!

 

[thutran0801]

Vậy thì sửa lại Code của bạn 1 tý thôi

Sub KT()
    Dim x, y As Integer, Er As Long
    Application.ScreenUpdating = False
Er = Sheet2.Range("A65535").End(3).Row
Ecol = Sheet2.Range("IV1").End(xlToLeft).Column
With Sheet2
   .Range(.Cells(2, 1), .Cells(Er, Ecol)).Interior.ColorIndex = xlNone
    For x = 2 To Er
        For y = 1 To Ecol - 1
            If .Cells(x, y).Value <> Sheets("dulieu").Cells(x, y).Value Then
                .Cells(x, Ecol) = Now
                With .Cells(x, y).Interior
                    .ColorIndex = 40
                    .Pattern = xlSolid
                End With
            End If
        Next y
    Next x
End With
Application.ScreenUpdating = True
End Sub

Bạn cho mình hỏi là đoạn code nào dùng để chèn ngày tháng vào cột H vậy bạn? giả sử thay vì cột H thì mình muốn sửa lại thành cột khác đc ko ví dụ như L hay M hay N gì đó. Cám ơn bạn

 

[PacificPR]

Bạn cho mình hỏi là đoạn code nào dùng để chèn ngày tháng vào cột H vậy bạn? giả sử thay vì cột H thì mình muốn sửa lại thành cột khác đc ko ví dụ như L hay M hay N gì đó. Cám ơn bạn

Cái này đó bạn

 .Cells(x, Ecol) = Now

Hoặc viết như thế này

.Range("H" & x)=Now

 

[thutran0801]

Cái này đó bạn

 .Cells(x, Ecol) = Now

Hoặc viết như thế này

.Range("H" & x)=Now

Cám ơn bạn cho mình hỏi 1 vấn đề cuối nữa thôi mình muốn chèn thêm 4 dòng nhưng sửa code lại ko chạy bạn cho hỏi mình sửa vậy có đúng k...

With Sheet2
   .Range(.Cells(5, 1), .Cells(Er, Ecol)).Interior.ColorIndex = xlNone
    For x = 5 To Er
        For y = 1 To Ecol - 1
            If .Cells(x, y).Value <> Sheets("dulieu").Cells(x, y).Value Then
                .Range("H" & x) = Date & "" & "-" & "" & Time

 

[PacificPR]

Bạn sửa lại chỗ xác đinh cột cuối cùng chứa dữ liệu:

Ecol = Sheet2.Range("IV4").End(xlToLeft).Column

 

[thutran0801]

Bạn sửa lại chỗ xác đinh cột cuối cùng chứa dữ liệu:

Ecol = Sheet2.Range("IV4").End(xlToLeft).Column

Cám ơn bạn nhiều nha, vấn đế vướn lâu nay cuối cùng cũng làm đc..