Tính tổng số liệu các file vào 1 file tổng (1 người xem)

  • Thread starter Thread starter van80
  • Ngày gửi Ngày gửi
Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
V

van80

Thành viên chính thức
Tham gia
5/7/09
Bài viết
73
Được thích
4
Chào các anh chị trên diễn đàn !
Mình làm công tác điều tra phổ cập, ở địa phương của mình chia ra thành 20 địa bàn điều tra về số liệu. Mỗi địa bàn 2 cán bộ đi điều tra và báo cáo số liệu ( mẫu báo cáo file đính kèm ). Nhiệm vụ của mình tập hợp 20 mẫu số liệu này lại thành 1. Nếu tổng hợp bằng thủ công thì sai sót rất nhiều. Mong các anh chị giúp mình trên file tonghop mình muốn viết một nút lệnh khi click chuột vào thì số liệu các file cộng dồn vào file tonghop ( tính tổng số liệu các file vào 1 file tổng). Trân trọng cám ơn.
File đính kèm mình chỉ làm mẫu 6 địa bàn.
File đính kèm :View attachment file.rar
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
van80 đã viết:
Chào các anh chị trên diễn đàn !
Mình làm công tác điều tra phổ cập, ở địa phương của mình chia ra thành 20 địa bàn điều tra về số liệu. Mỗi địa bàn 2 cán bộ đi điều tra và báo cáo số liệu ( mẫu báo cáo file đính kèm ). Nhiệm vụ của mình tập hợp 20 mẫu số liệu này lại thành 1. Nếu tổng hợp bằng thủ công thì sai sót rất nhiều. Mong các anh chị giúp mình trên file tonghop mình muốn viết một nút lệnh khi click chuột vào thì số liệu các file cộng dồn vào file tonghop ( tính tổng số liệu các file vào 1 file tổng). Trân trọng cám ơn.
File đính kèm mình chỉ làm mẫu 6 địa bàn.
File đính kèm :View attachment 109445
Nhấp chuột vào đây để mở rộng...
Nếu làm thủ công thì tôi sẽ làm thế này, đảm bảo không sai sót:
1. Mở file tổng hợp (và xóa vùng dữ liệu đi).
2. Mở file con thứ 1, copy vùng dữ liệu, paste special qua file tổng hợp với tùy chọn Add.
3. Đóng file con thứ 1 đi, mở file con thứ 2 và làm tương tự... cho đến khi hết các file con thì thôi.
4. Lưu file tổng hợp lại.
 
Upvote 0
nghiaphuc đã viết:
Nếu làm thủ công thì tôi sẽ làm thế này, đảm bảo không sai sót:
1. Mở file tổng hợp (và xóa vùng dữ liệu đi).
2. Mở file con thứ 1, copy vùng dữ liệu, paste special qua file tổng hợp với tùy chọn Add.
3. Đóng file con thứ 1 đi, mở file con thứ 2 và làm tương tự... cho đến khi hết các file con thì thôi.
4. Lưu file tổng hợp lại.
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã gợi ý. Nhưng k được bạn ơn ! Ở đây mình muốn tính tổng số liệu các file vào file tonghop. Ví dụ: Năm 2007 tại ô c13 file k1 =11, k2 = 20, k3 = 14, k4 = 14, k5 = 13, k6 = 15 thì trong file tonghop tai c13 = 87
 
Upvote 0
van80 đã viết:
Chào các anh chị trên diễn đàn !
Mình làm công tác điều tra phổ cập, ở địa phương của mình chia ra thành 20 địa bàn điều tra về số liệu. Mỗi địa bàn 2 cán bộ đi điều tra và báo cáo số liệu ( mẫu báo cáo file đính kèm ). Nhiệm vụ của mình tập hợp 20 mẫu số liệu này lại thành 1. Nếu tổng hợp bằng thủ công thì sai sót rất nhiều. Mong các anh chị giúp mình trên file tonghop mình muốn viết một nút lệnh khi click chuột vào thì số liệu các file cộng dồn vào file tonghop ( tính tổng số liệu các file vào 1 file tổng). Trân trọng cám ơn.
File đính kèm mình chỉ làm mẫu 6 địa bàn.
File đính kèm :View attachment 109445
Nhấp chuột vào đây để mở rộng...
Dạng bài này mình viết nhiều lần trên diễn đàn rồi. Bạn chịu khó tìm chút sẽ có mà. Chỉnh sửa code lại chút là xài được. Trong file của bạn mình thấy có code chắc là bạn biết về code thì bài này không khó đâu.
 
Upvote 0
van80 đã viết:
Cám ơn bạn đã gợi ý. Nhưng k được bạn ơn ! Ở đây mình muốn tính tổng số liệu các file vào file tonghop. Ví dụ: Năm 2007 tại ô c13 file k1 =11, k2 = 20, k3 = 14, k4 = 14, k5 = 13, k6 = 15 thì trong file tonghop tai c13 = 87
Nhấp chuột vào đây để mở rộng...
Bạn cứ làm y như các bước của tôi ở bài trên, đảm bảo chính xác.
Tôi thấy trong file của bạn cũng có 1 sub TongHop (nhìn quen quen, hình như là code của tôi), chỉ cần sửa lại một chút là được.
Code này là tôi viết theo đúng trình tự như bài trên của tôi (trừ bước 4: Lưu file tổng hợp):
[GPECODE=vb]Sub TongHop()
Dim i As Integer, Wb As Workbook

With Application
.ScreenUpdating = False: .DisplayAlerts = False: .Calculation = xlCalculationManual
End With
With Application.FileDialog(1)
.Title = "Chon File thanh phan"
.FilterIndex = 3
.InitialFileName = ThisWorkbook.Path
.AllowMultiSelect = True: .Show
If .SelectedItems.Count = 0 Then Exit Sub
Sheets("mau1").[C13:AC24].ClearContents
For i = 1 To .SelectedItems.Count
With Workbooks.Open(.SelectedItems(i))
.Sheets(1).[C13:AC24].Copy
ThisWorkbook.Sheets("mau1").[C13:AC24].PasteSpecial xlPasteValues, 2
.Close False
End With
Next
End With
With Application
.ScreenUpdating = True: .DisplayAlerts = True: .Calculation = xlCalculationAutomatic
End With
End Sub[/GPECODE]
 
Upvote 0
van80 đã viết:
Cám ơn bạn đã gợi ý. Nhưng k được bạn ơn ! Ở đây mình muốn tính tổng số liệu các file vào file tonghop. Ví dụ: Năm 2007 tại ô c13 file k1 =11, k2 = 20, k3 = 14, k4 = 14, k5 = 13, k6 = 15 thì trong file tonghop tai c13 = 87
Nhấp chuột vào đây để mở rộng...
Tặng bạn code này. Copy hết đám rừng này cho vào 1 module và chạy xem kết quả
Ui da, sao mà đỏ hết trơn thế?
PHP: 
Function GetListFile(ByVal Folder As String, ByVal Search As String, ByVal InSub As Boolean)
  Dim sComm As String, tmp As String, tmpFile, arr, sPath As String
  On Error Resume Next
  If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
  sPath = """" & Folder & "*" & Search & "*"""
  With CreateObject("Scripting.FileSystemObject")
    tmpFile = .GetTempName
    sComm = "DIR " & sPath & " /ON /B /A-D " & IIf(InSub, "/S", " ") & " >" & tmpFile
    CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
    With .OpenTextFile(tmpFile, 1, , -2)
      tmp = Trim(.ReadAll)
      If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
      If Len(tmp) Then GetListFile = Split(tmp, vbCrLf)
      .Close
    End With
  End With
  Kill tmpFile
End Function
Sub quanghai()
Application.ScreenUpdating = False
Dim arr, i As Long, WB As Workbook, j As Long, TH As Workbook, n As Long
Dim kq1(1 To 5, 1 To 27), kq2(1 To 4, 1 To 27), nguon1(), nguon2()
Set TH = ThisWorkbook
arr = GetListFile(ThisWorkbook.Path, "*.xls?", True)
For i = 0 To UBound(arr)
   If arr(i) <> ThisWorkbook.FullName Then
      Set WB = Workbooks.Open(arr(i))
      With WB
         nguon1 = .ActiveSheet.[C13:AC17].Value
         nguon2 = .ActiveSheet.[C19:AC22].Value
         For n = 1 To 27
            For j = 1 To 5
               kq1(j, n) = kq1(j, n) + nguon1(j, n)
               If j <> 5 Then
                  kq2(j, n) = kq2(j, n) + nguon2(j, n)
               End If
            Next
         Next
         .Close False
      End With
   End If
Next
[C13].Resize(5, 27) = kq1
[C19].Resize(4, 27) = kq1
MsgBox "Done"
Application.ScreenUpdating = True
End Sub
 
Upvote 0
quanghai1969 đã viết:
Tặng bạn code này. Copy hết đám rừng này cho vào 1 module và chạy xem kết quả
Ui da, sao mà đỏ hết trơn thế?
Nhấp chuột vào đây để mở rộng...
Cho vào tag GPECODE, thêm vài dấu Tab, đảm bảo đẹp ngay:
[GPECODE=vb]Function GetListFile(ByVal Folder As String, ByVal Search As String, ByVal InSub As Boolean)
Dim sComm As String, tmp As String, tmpFile, arr, sPath As String
On Error Resume Next
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
sPath = """" & Folder & "*" & Search & "*"""
With CreateObject("Scripting.FileSystemObject")
tmpFile = .GetTempName
sComm = "DIR " & sPath & " /ON /B /A-D " & IIf(InSub, "/S", " ") & " >" & tmpFile
CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
With .OpenTextFile(tmpFile, 1, , -2)
tmp = Trim(.ReadAll)
If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
If Len(tmp) Then GetListFile = Split(tmp, vbCrLf)
.Close
End With
End With
Kill tmpFile
End Function
'------------------------------------------------------------------------------
Sub QuangHai()
Application.ScreenUpdating = False
Dim arr, i As Long, WB As Workbook, j As Long, TH As Workbook, n As Long
Dim kq1(1 To 5, 1 To 27), kq2(1 To 4, 1 To 27), nguon1(), nguon2()
Set TH = ThisWorkbook
arr = GetListFile(ThisWorkbook.Path, "*.xls?", True)
For i = 0 To UBound(arr)
If arr(i) <> ThisWorkbook.FullName Then
Set WB = Workbooks.Open(arr(i))
With WB
nguon1 = .ActiveSheet.[C13:AC17].Value
nguon2 = .ActiveSheet.[C19:AC22].Value
For n = 1 To 27
For j = 1 To 5
kq1(j, n) = kq1(j, n) + nguon1(j, n)
If j <> 5 Then kq2(j, n) = kq2(j, n) + nguon2(j, n)
Next
Next
.Close False
End With
End If
Next
[C13].Resize(5, 27) = kq1
[C19].Resize(4, 27) = kq1
MsgBox "Done"
Application.ScreenUpdating = True
End Sub[/GPECODE]
 
Upvote 0
nghiaphuc đã viết:
Cho vào tag GPECODE, thêm vài dấu Tab, đảm bảo đẹp ngay:
[GPECODE=vb]Function GetListFile(ByVal Folder As String, ByVal Search As String, ByVal InSub As Boolean)
Dim sComm As String, tmp As String, tmpFile, arr, sPath As String
On Error Resume Next
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
sPath = """" & Folder & "*" & Search & "*"""
With CreateObject("Scripting.FileSystemObject")
tmpFile = .GetTempName
sComm = "DIR " & sPath & " /ON /B /A-D " & IIf(InSub, "/S", " ") & " >" & tmpFile
CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
With .OpenTextFile(tmpFile, 1, , -2)
tmp = Trim(.ReadAll)
If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
If Len(tmp) Then GetListFile = Split(tmp, vbCrLf)
.Close
End With
End With
Kill tmpFile
End Function
'------------------------------------------------------------------------------
Sub QuangHai()
Application.ScreenUpdating = False
Dim arr, i As Long, WB As Workbook, j As Long, TH As Workbook, n As Long
Dim kq1(1 To 5, 1 To 27), kq2(1 To 4, 1 To 27), nguon1(), nguon2()
Set TH = ThisWorkbook
arr = GetListFile(ThisWorkbook.Path, "*.xls?", True)
For i = 0 To UBound(arr)
If arr(i) <> ThisWorkbook.FullName Then
Set WB = Workbooks.Open(arr(i))
With WB
nguon1 = .ActiveSheet.[C13:AC17].Value
nguon2 = .ActiveSheet.[C19:AC22].Value
For n = 1 To 27
For j = 1 To 5
kq1(j, n) = kq1(j, n) + nguon1(j, n)
If j <> 5 Then kq2(j, n) = kq2(j, n) + nguon2(j, n)
Next
Next
.Close False
End With
End If
Next
[C13].Resize(5, 27) = kq1
[C19].Resize(4, 27) = kq1
MsgBox "Done"
Application.ScreenUpdating = True
End Sub[/GPECODE]
Nhấp chuột vào đây để mở rộng...
Cám ơn các anh chị nhiều ! để mình thử xem sao. có lẽ các anh cũng biết trong file của mình gởi lên cũng chứa nhiều đoạn code. Mình cần học hỏi các anh nhiều hơn.
 
Upvote 0
nghiaphuc đã viết:
Cho vào tag GPECODE, thêm vài dấu Tab, đảm bảo đẹp ngay:
[GPECODE=vb]Function GetListFile(ByVal Folder As String, ByVal Search As String, ByVal InSub As Boolean)
Dim sComm As String, tmp As String, tmpFile, arr, sPath As String
On Error Resume Next
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
sPath = """" & Folder & "*" & Search & "*"""
With CreateObject("Scripting.FileSystemObject")
tmpFile = .GetTempName
sComm = "DIR " & sPath & " /ON /B /A-D " & IIf(InSub, "/S", " ") & " >" & tmpFile
CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
With .OpenTextFile(tmpFile, 1, , -2)
tmp = Trim(.ReadAll)
If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
If Len(tmp) Then GetListFile = Split(tmp, vbCrLf)
.Close
End With
End With
Kill tmpFile
End Function
'------------------------------------------------------------------------------
Sub QuangHai()
Application.ScreenUpdating = False
Dim arr, i As Long, WB As Workbook, j As Long, TH As Workbook, n As Long
Dim kq1(1 To 5, 1 To 27), kq2(1 To 4, 1 To 27), nguon1(), nguon2()
Set TH = ThisWorkbook
arr = GetListFile(ThisWorkbook.Path, "*.xls?", True)
For i = 0 To UBound(arr)
If arr(i) <> ThisWorkbook.FullName Then
Set WB = Workbooks.Open(arr(i))
With WB
nguon1 = .ActiveSheet.[C13:AC17].Value
nguon2 = .ActiveSheet.[C19:AC22].Value
For n = 1 To 27
For j = 1 To 5
kq1(j, n) = kq1(j, n) + nguon1(j, n)
If j <> 5 Then kq2(j, n) = kq2(j, n) + nguon2(j, n)
Next
Next
.Close False
End With
End If
Next
[C13].Resize(5, 27) = kq1
[C19].Resize(4, 27) = kq1
MsgBox "Done"
Application.ScreenUpdating = True
End Sub[/GPECODE]
Nhấp chuột vào đây để mở rộng...
Mình thử rồi đoạn code chạy rất tốt. Nhưng còn một số ô không tính được. Ví dụ M13, N13, O13 VÀ M22, N22, O22 không tính được bị bỏ trống và một số ô khác cũng vậy. Bạn xem lại dùm cám ơn nhiều.
 
Upvote 0
nghiaphuc đã viết:
Bạn cứ làm y như các bước của tôi ở bài trên, đảm bảo chính xác.
Tôi thấy trong file của bạn cũng có 1 sub TongHop (nhìn quen quen, hình như là code của tôi), chỉ cần sửa lại một chút là được.
Code này là tôi viết theo đúng trình tự như bài trên của tôi (trừ bước 4: Lưu file tổng hợp):
[GPECODE=vb]Sub TongHop()
Dim i As Integer, Wb As Workbook

With Application
.ScreenUpdating = False: .DisplayAlerts = False: .Calculation = xlCalculationManual
End With
With Application.FileDialog(1)
.Title = "Chon File thanh phan"
.FilterIndex = 3
.InitialFileName = ThisWorkbook.Path
.AllowMultiSelect = True: .Show
If .SelectedItems.Count = 0 Then Exit Sub
Sheets("mau1").[C13:AC24].ClearContents
For i = 1 To .SelectedItems.Count
With Workbooks.Open(.SelectedItems(i))
.Sheets(1).[C13:AC24].Copy
ThisWorkbook.Sheets("mau1").[C13:AC24].PasteSpecial xlPasteValues, 2
.Close False
End With
Next
End With
With Application
.ScreenUpdating = True: .DisplayAlerts = True: .Calculation = xlCalculationAutomatic
End With
End Sub[/GPECODE]
Nhấp chuột vào đây để mở rộng...
Mình cũng không hiểu vẫn không chạy được.
 
Upvote 0
van80 đã viết:
Mình thử rồi đoạn code chạy rất tốt. Nhưng còn một số ô không tính được. Ví dụ M13, N13, O13 VÀ M22, N22, O22 không tính được bị bỏ trống và một số ô khác cũng vậy. Bạn xem lại dùm cám ơn nhiều.
Nhấp chuột vào đây để mở rộng...
Đoạn code mà bạn trích dẫn là của anh Quang Hải, tôi chỉ bố trí lại cho đẹp mắt thôi. Code của tôi nằm ở bài #5 kìa, bạn đã thử chưa? Tôi thấy có vấn đề gì với các ô này đâu.
Trong file đính kèm, bạn nhấn nút lệnh "Tổng hợp từ các file con" và chọn các file từ k1 đến k6 xem kết quả có như ý không.
 

File đính kèm

Upvote 0
nghiaphuc đã viết:
Đoạn code mà bạn trích dẫn là của anh Quang Hải, tôi chỉ bố trí lại cho đẹp mắt thôi. Code của tôi nằm ở bài #5 kìa, bạn đã thử chưa? Tôi thấy có vấn đề gì với các ô này đâu.
Trong file đính kèm, bạn nhấn nút lệnh "Tổng hợp từ các file con" và chọn các file từ k1 đến k6 xem kết quả có như ý không.
Nhấp chuột vào đây để mở rộng...
Bài của anh chạy rất tốt. Nhưng không phải như vậy đâu anh ơi. ý của mình là file tonghop phải tổng hợp các số liệu từ các file k1 đến k6 ( số liệu phải cộng dồn vào file tonghop ) Ví dụ tại c13 của file tonghop = 87 ( cộng từ k1 đến k6 )
 
Upvote 0
van80 đã viết:
Bài của anh chạy rất tốt. Nhưng không phải như vậy đâu anh ơi. ý của mình là file tonghop phải tổng hợp các số liệu từ các file k1 đến k6 ( số liệu phải cộng dồn vào file tonghop ) Ví dụ tại c13 của file tonghop = 87 ( cộng từ k1 đến k6 )
Nhấp chuột vào đây để mở rộng...
Thì kết quả là 87 chứ sao nữa?! Bạn xem hình nhé.
TongHop_zps71067ef2.png


Có lẽ bạn không chọn cả 6 file mà chỉ chọn 1 trong 6 file. Bạn chọn luôn cả 6 file k1 --> k6 xem nào.
 
Upvote 0
van80 đã viết:
Mình thử rồi đoạn code chạy rất tốt. Nhưng còn một số ô không tính được. Ví dụ M13, N13, O13 VÀ M22, N22, O22 không tính được bị bỏ trống và một số ô khác cũng vậy. Bạn xem lại dùm cám ơn nhiều.
Nhấp chuột vào đây để mở rộng...
Ối giời ơi, mình không kiểm tra code. Thử lại đám rừng lần nữa xem sao
Mã: 
Option Explicit
Function GetListFile(ByVal Folder As String, ByVal Search As String, ByVal InSub As Boolean)
  Dim sComm As String, tmp As String, tmpFile, arr, sPath As String
  On Error Resume Next
  If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
  sPath = """" & Folder & "*" & Search & "*"""
  With CreateObject("Scripting.FileSystemObject")
    tmpFile = .GetTempName
    sComm = "DIR " & sPath & " /ON /B /A-D " & IIf(InSub, "/S", " ") & " >" & tmpFile
    CreateObject("Wscript.Shell").Run "cmd /u /c " & sComm, 0, True
    With .OpenTextFile(tmpFile, 1, , -2)
      tmp = Trim(.ReadAll)
      If Right(tmp, 2) = vbCrLf Then tmp = Left(tmp, Len(tmp) - 2)
      If Len(tmp) Then GetListFile = Split(tmp, vbCrLf)
      .Close
    End With
  End With
  Kill tmpFile
End Function
'.....................................................................
Sub quanghai()
Application.ScreenUpdating = False
Dim arr, i As Long, WB As Workbook, j As Long, TH As Workbook, n As Long
Dim kq(1 To 12, 1 To 27), nguon()
Set TH = ThisWorkbook
arr = GetListFile(ThisWorkbook.Path, "*.xls?", True)
For i = 0 To UBound(arr)
   If arr(i) <> ThisWorkbook.FullName Then
      Set WB = Workbooks.Open(arr(i))
      With WB
         nguon = .ActiveSheet.[C13:AC24].Value
         For n = 1 To 27
            For j = 1 To 12
                  kq(j, n) = kq(j, n) + nguon(j, n)
            Next
         Next
         .Close False
      End With
   End If
Next
[C13].Resize(12, 27) = kq
MsgBox "Done"
Application.ScreenUpdating = True
End Sub
 
Upvote 0
nghiaphuc đã viết:
Thì kết quả là 87 chứ sao nữa?! Bạn xem hình nhé.
TongHop_zps71067ef2.png


Có lẽ bạn không chọn cả 6 file mà chỉ chọn 1 trong 6 file. Bạn chọn luôn cả 6 file k1 --> k6 xem nào.
Nhấp chuột vào đây để mở rộng...
Cám ơn anh rất nhiều. Mình chọn từng k thì kết quả không đúng, bây giờ mình chọn một lúc từ k1 đến k6 thì kết mới đúng. Anh cũng biết rồi trong module có rất nhiều code cũng từ của anh mà ra đó.
 
Upvote 0
van80 đã viết:
Cám ơn anh rất nhiều. Mình chọn từng k thì kết quả không đúng, bây giờ mình chọn một lúc từ k1 đến k6 thì kết mới đúng. Anh cũng biết rồi trong module có rất nhiều code cũng từ của anh mà ra đó.
Nhấp chuột vào đây để mở rộng...
Anh ơi lại có vấn đề lỗi rồi, mỗi file mình chèn thêm vài sheets mới kể cả file tổng hợp thì số liệu không cập nhật được. Anh giúp dùm nha.
 
Upvote 0
van80 đã viết:
Anh ơi lại có vấn đề lỗi rồi, mỗi file mình chèn thêm vài sheets mới kể cả file tổng hợp thì số liệu không cập nhật được. Anh giúp dùm nha.
Nhấp chuột vào đây để mở rộng...
Vậy thì bạn phải đưa file mới này lên đây. Do trong file mẫu của bạn thì mỗi file chỉ có 1 sheet nên code trên là OK rồi.
Cấu trúc file tổng và các file con này có giống nhau không vậy bạn? Nếu giống nhau (cả về tên sheet, vị trí sheet và cấu trúc bảng trên sheet) thì việc tổng hợp cũng không đến nỗi nào, chỉ dài hơn code trên một chút thôi.
 
Upvote 0
nghiaphuc đã viết:
Vậy thì bạn phải đưa file mới này lên đây. Do trong file mẫu của bạn thì mỗi file chỉ có 1 sheet nên code trên là OK rồi.
Cấu trúc file tổng và các file con này có giống nhau không vậy bạn? Nếu giống nhau (cả về tên sheet, vị trí sheet và cấu trúc bảng trên sheet) thì việc tổng hợp cũng không đến nỗi nào, chỉ dài hơn code trên một chút thôi.
Nhấp chuột vào đây để mở rộng...
Một lần nữa xin cám ơn anh nhiều để mình xem lại và báo lại sau nha.( khoảng 10 phút thôi )
 
Upvote 0
van80 đã viết:
Một lần nữa xin cám ơn anh nhiều để mình xem lại và báo lại sau nha.( khoảng 10 phút thôi )
Nhấp chuột vào đây để mở rộng...
Mình thử rồi vẫn không được khi chèn thêm các sheet mới. Cấu trúc các sheet mới này không giống nhau kể cả tên và vị trí.( mình vẫn giũ nguyên sheet số liệu ban đầu)
 
Upvote 0
van80 đã viết:
Mình thử rồi vẫn không được khi chèn thêm các sheet mới. Cấu trúc các sheet mới này không giống nhau kể cả tên và vị trí.( mình vẫn giũ nguyên sheet số liệu ban đầu)
Nhấp chuột vào đây để mở rộng...
Ay za, vậy thì dựa vào cái gì để biết là mình phải tổng hợp từ đâu tới đâu?! Tổng hợp theo mẫu mà cứ mỗi người một phách thì sao mà tổng hợp được! Các sheet mới này có dùng để tổng hợp không vậy bạn? Các sheet cần tổng hợp thì có điểm gì chung không? Chẳng hạn như các ô AA2 chứa tên file (k1, k2,...) hoặc tên sheet có dạng DB* như file mẫu bạn đã đưa.
 
Lần chỉnh sửa cuối:
Upvote 0
nghiaphuc đã viết:
Ay za, vậy thì dựa vào cái gì để biết là mình phải tổng hợp từ đâu tới đâu?! Tổng hợp theo mẫu mà cứ mỗi người một phách thì sao mà tổng hợp được! Các sheet mới này có dùng để tổng hợp không vậy bạn? Các sheet cần tổng hợp thì có điểm gì chung không? Chẳng hạn như các ô AA2 chứa tên file (k1, k2,...) hoặc tên sheet có dạng DB* như file mẫu bạn đã đưa.
Nhấp chuột vào đây để mở rộng...
Các sheet tổng hợp(chứa số liệu ) vẫn giữ nguyên mình chèn thêm một vài sheet mới của từng file thôi mà.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
407
Đọc
48K
dinhduy
D
N
Cách để lọc dữ liệu gốc qua các sheet cần phân loại! (1 người xem)
Trả lời
0
Đọc
25
ntct129
N
N
Thử lập trình XLL add-in bằng C/C++ (2 người xem)
    • Thích
Trả lời
4
Đọc
596
nguyendang95
N
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
8
Đọc
2K
macarongwin
M
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU (1 người xem)
Trả lời
4
Đọc
243
langtu12345
L
D
sử dụng công cụ addvanced filter để lọc dữ liệu. xin chỉ giúp
Trả lời
2
Đọc
48
HieuCD
H
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao
Trả lời
15
Đọc
411
Phan Thế Hiệp
Phan Thế Hiệp
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11/2024 (1 người xem)
    • Thích
    • Yêu thích
Trả lời
4
Đọc
499
SA_DQ
SA_DQ
S
Xin giúp đỡ về hàm BS_A2T trả về lỗi #NAME
    • Thích
Trả lời
4
Đọc
1K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
D
Lọc các ô có dữ liệu trùng nhau trong một cột. Xin chỉ giúp
Trả lời
4
Đọc
209
DeTong
D
N
  • Question Question
Giúp thu gọn sắp xếp bảng dữ liệu liệu về dạng cột
Trả lời
7
Đọc
216
Zizi One
Zizi One
N
Tìm công thức để lọc theo 2 điều kiện
Trả lời
2
Đọc
100
ntct129
N
Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools AI v10 (2024)
    • Thích
Trả lời
59
Đọc
8K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Nói để AI thực hiện; Tạo văn bản từ giọng nói trong Excel và Add-in A-Tools
    • Thích
Trả lời
0
Đọc
72
Nguyễn Duy Tuân
Nguyễn Duy Tuân
nguyenlinhit
Giúp đỡ giải pháp áp dụng công thức DAX vào trường hợp sau
Trả lời
2
Đọc
83
nguyenlinhit
nguyenlinhit
ninhnv.ctt49
Nhờ Cao Nhân Giúp Về File Quản lý Văn Phòng Phẩm (1 người xem)
Trả lời
3
Đọc
143
ninhnv.ctt49
ninhnv.ctt49
Trungvt3
File excel bị ẩn các công cụ trên tab khác (như data, insert...) (1 người xem)
Trả lời
1
Đọc
72
befaint
befaint
N
Thuế thu nhập cá nhân
    • Chấp nhận
Trả lời
2
Đọc
168
Phan Thế Hiệp
Phan Thế Hiệp
V
Nhờ mọi người chỉ giúp e VBA này (1 người xem)
Trả lời
1
Đọc
99
BuiQuangThuan
B
K
Điền giá trị ô thay vì địa chỉ ô
Trả lời
0
Đọc
67
kamikaze11
K
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom