Cập nhật dữ liệu mới từ file excel

[lehien11_86]

Mong Các vị tiền bối chỉ dùm.
E có 1 file excel gốc( file 1) nhưng hàng ngày phải cập nhật dữ liệu liên tục từ 1 file excel khác( file 2). 2 file này giống nhau chỉ khác là file 2 là file mới nên có thêm dữ liệu của file 1 và thêm những dữ liệu mới. Xin Hỏi các tiền bối có cách nào để mình biết có những dữ liệu mới nào thay đổi từ file 1 ko ? Em đính kèm file, Dữ liệu màu vàng là dữ liệu thay đổi cần quan tâm. Có cách nào ko Dùng macro ko ?Mong các vị Tiền bối chỉ giáo... Hihi.Cảm ơn nhìu nhìu.

 

[trantuonganh2008]

Bạn dùng chế độ link trong excel là được.

 

[yeuthamhangxom]

Bạn dùng chế độ link trong excel là được.

Chủ topic yêu cầu là (có cách nào để mình biết có những dữ liệu mới nào thay đổi từ file 1 ko ? ) Nếu làm giống bạn thì có phát hiện được điều đó không? Mình chưa thử cách của bạn. Theo mình nghĩ có thể dùng Data/Import External Data nhưng cách này cũng không phát hiện được (dữ liệu mới nào thay đổi từ file 1)
Không biết còn cách nào không nhỉ?
Chúc vui.

 

[Hai Lúa Miền Tây]

Mong Các vị tiền bối chỉ dùm.
E có 1 file excel gốc( file 1) nhưng hàng ngày phải cập nhật dữ liệu liên tục từ 1 file excel khác( file 2). 2 file này giống nhau chỉ khác là file 2 là file mới nên có thêm dữ liệu của file 1 và thêm những dữ liệu mới. Xin Hỏi các tiền bối có cách nào để mình biết có những dữ liệu mới nào thay đổi từ file 1 ko ? Em đính kèm file, Dữ liệu màu vàng là dữ liệu thay đổi cần quan tâm. Có cách nào ko Dùng macro ko ?Mong các vị Tiền bối chỉ giáo... Hihi.Cảm ơn nhìu nhìu.

Đây là code so sánh nội dung của 2 sheet:

Sub SoSanh2Sheet(ws1 As Worksheet, ws2 As Worksheet)
Dim r As Long, c As Integer
Dim lr1 As Long, lr2 As Long, lc1 As Integer, lc2 As Integer
Dim maxR As Long, maxC As Integer, cf1 As String, cf2 As String
Dim rptWB As Workbook, DiffCount As Long
    Application.ScreenUpdating = False
    Application.StatusBar = "Dang tao bao cao..."
    Set rptWB = Workbooks.Add
    Application.DisplayAlerts = False
    While Worksheets.Count > 1
        Worksheets(2).Delete
    Wend
    Application.DisplayAlerts = True
    With ws1.UsedRange
        lr1 = .Rows.Count
        lc1 = .Columns.Count
    End With
    With ws2.UsedRange
        lr2 = .Rows.Count
        lc2 = .Columns.Count
    End With
    maxR = lr1
    maxC = lc1
    If maxR < lr2 Then maxR = lr2
    If maxC < lc2 Then maxC = lc2
    DiffCount = 0
    For c = 1 To maxC
        Application.StatusBar = "So sanh cac cell " & Format(c / maxC, "0 %") & "..."
        For r = 1 To maxR
            cf1 = ""
            cf2 = ""
            On Error Resume Next
            cf1 = ws1.Cells(r, c).FormulaLocal
            cf2 = ws2.Cells(r, c).FormulaLocal
            On Error GoTo 0
            If cf1 <> cf2 Then
                DiffCount = DiffCount + 1
                Cells(r, c).Formula = "'" & cf1 & " <> " & cf2
            End If
        Next r
    Next c
    Application.StatusBar = "Dang dinh dang bang tinh..."
    With Range(Cells(1, 1), Cells(maxR, maxC))
        .Interior.ColorIndex = 19
    On Error GoTo 0
    End With
    Columns("A:D").AutoFit
    rptWB.Saved = True
    If DiffCount = 0 Then
        rptWB.Close False
    End If
    Set rptWB = Nothing
    Application.StatusBar = False
    Application.ScreenUpdating = True
    MsgBox "Co " & DiffCount & " cell co noi dung khac nhau", vbInformation, _
        "So sanh giua " & ws1.Name & " voi " & ws2.Name
End Sub
Sub SoSanh()
    SoSanh2Sheet Worksheets("Sheet1"), Worksheets("Sheet2")
End Sub

Bạn xem thêm file đính kèm nhé.