Giúp về liên kết giữa các file

Liên hệ QC

hvtonline

Thành viên mới
Tham gia
13/12/10
Bài viết
2
Được thích
0
Chào mọi người! Các bạn coi trong ô F4 trong file "1. Bieu_C1 (Tieu hoc giua nam)PGD KNÔ.xls" dùm mình cái nha! mình liên kết tới các file nhưng khi mình kéo xuống thì báo lỗi mong các bạn chỉ giúp mình với thanks nhiều
 

File đính kèm

  • TIỂU HỌC.zip
    287.2 KB · Đọc: 24
Chào mọi người! Các bạn coi trong ô F4 trong file "1. Bieu_C1 (Tieu hoc giua nam)PGD KNÔ.xls" dùm mình cái nha! mình liên kết tới các file nhưng khi mình kéo xuống thì báo lỗi mong các bạn chỉ giúp mình với thanks nhiều
Nguyên nhân là do các ô ở hàng 4 và hàng 5 (F4:F5, G4:G5,...) có sử dụng Merge cells, còn các ô phía dưới thì không.
Bạn thử sử dụng code này cho file tổng hợp (1. Bieu_C1 (Tieu hoc giua nam)PGD KNÔ.xls):
PHP:
Sub TongHop()
    Dim FileS As FileSearch
    Dim Wb As Workbook, Wb1 As Workbook, Rng As Range
    Dim F As Variant
 
    Set Rng = Selection: Rng.ClearContents
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Set Wb = ThisWorkbook
    FPath = Wb.Path
    Set FileS = Application.FileSearch
    With FileS
        .NewSearch
        .Filename = "*.xls"
        .LookIn = FPath
        .SearchSubFolders = False
        .Execute
    End With
    For Each F In FileS.FoundFiles
        If F = Wb.FullName Then GoTo NextFile
        Workbooks.Open F
        Set Wb1 = Workbooks(Replace(F, FPath & "\", ""))
        With Rng
            Wb1.Sheets(.Parent.Name).Range(.Address).Copy
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
        End With
        Wb1.Close False
NextFile:
    Next F
    Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub
Cách sử dụng: Chép file đính kèm dưới đây và dán chồng lên file của bạn => Mở file này lên => Chọn vùng cần tổng hợp dữ liệu (không được chứa Merge cells) và nhấn Ctrl+t để chạy code.
Cách làm này hơi thủ công vì phải chọn lần lượt từng vùng rồi chạy code. Tuy nhiên, đây là giải pháp tạm thời và file tổng hợp nhẹ vì không chứa công thức liên kết tới các file, bạn chỉ cần lập công thức ở một số vị trí cần thiết. Hơn nữa, có bao nhiêu file con cũng được.
Lưu ý là cấu trúc các file phải hoàn toàn giống nhau thì code chạy mới đúng.
 

File đính kèm

  • 1. Bieu_C1 (Tieu hoc giua nam)PGD KNÔ.rar
    21.7 KB · Đọc: 15
Web KT
Back
Top Bottom