Giúp mình ghép các Sheet thành 1 Sheet tổng hợp

nahiep79 · 4/8/09

Mình có một có một vấn đề xin được các bạn giúp đỡ. Mình có một file thống kê trong đó các sheet có cùng một cấu trúc. Minh muốn tổng hợp các sheet này thành một sheet tổng hợp. Và dữ liệu bên trong được sắp xếp theo cột " Ngày trả tiền ". Mình gửi file đính kèm theo các bạn giải quyết giúp mình.
Xinh chân thành cảm ơn !!

Ba Tê · 13/9/14

chuotchuix đã viết:
thank bạn nhiều.nhưng ban ơi mình chỉ muốn lấy những ô mình tô đỏ thôi thi code sao bạn.code cua ban thi no lay hêt luôn

Cụ thể ô tô đỏ là ô của cột nào, những dòng nào?
Bạn làm kết quả thủ công ra thử xem.

chuotchuix · 13/9/14

Hai Lúa Miền Tây ko phai dau ban code cua ban rất ok.chắc do mình nói bạn ko hiểu được đó. file cua mình tới gần 8mb nên minh ko dua lên được. nếu bạn thấy file trực tiếp bạn sẽ hiểu y mình.ko ban có the cho mình địa chỉ mail minh nho bạn giúp minh được ko.
mail minh la: minhdungtoday@gmail.com

Nguyen Hai Linh · 19/9/16

Bạn ơi
Mình đã trả lời của bạn và thấy rất dễ hiểu
Tuy nhiên lúc thao tác lại có vấn đề
Mình muốn tạo 1 file quản lý nhân viên kinh doanh
1 sheet là 1 tên nhân viên, file tổng hợp mình muốn tổng hợp theo tên nhân viên, mỗi khi sheet nhân viên thêm thông tin thì sheet tổng hợp tự động update thì làm như nào ạ?
Và cụ thể dán code thì dán như nào ạ?
Mình là thành viên mới mong các bạn chỉ giáo ạ
Cảm ơn nhìu

Nguyen Hai Linh · 19/9/16

Hai Lúa Miền Tây đã viết:
Bạn dùng code sau nhé:

[GPECODE=sql]Sub Union_HLMT()
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
var1 = ""
var1 = var1 & "SELECT F1, " & vbCrLf
var1 = var1 & " F3, " & vbCrLf
var1 = var1 & " F4, " & vbCrLf
var1 = var1 & " F9, " & vbCrLf
var1 = var1 & " F12 " & vbCrLf
var1 = var1 & "FROM [GIANG$A2:V1000] " & vbCrLf
var1 = var1 & "UNION ALL " & vbCrLf
var1 = var1 & "SELECT F1, " & vbCrLf
var1 = var1 & " F3, " & vbCrLf
var1 = var1 & " F4, " & vbCrLf
var1 = var1 & " F9, " & vbCrLf
var1 = var1 & " F12 " & vbCrLf
var1 = var1 & "FROM [HOA$A2:V1000] " & vbCrLf
var1 = var1 & "UNION ALL " & vbCrLf
var1 = var1 & "SELECT F1, " & vbCrLf
var1 = var1 & " F3, " & vbCrLf
var1 = var1 & " F4, " & vbCrLf
var1 = var1 & " F9, " & vbCrLf
var1 = var1 & " F12 " & vbCrLf
var1 = var1 & "FROM [HA$A2:V1000] " & vbCrLf
var1 = var1 & "UNION ALL " & vbCrLf
var1 = var1 & "SELECT F1, " & vbCrLf
var1 = var1 & " F3, " & vbCrLf
var1 = var1 & " F4, " & vbCrLf
var1 = var1 & " F9, " & vbCrLf
var1 = var1 & " F12 " & vbCrLf
var1 = var1 & "FROM [TUAN$A2:V1000] " & vbCrLf
var1 = var1 & "UNION ALL " & vbCrLf
var1 = var1 & "SELECT F1, " & vbCrLf
var1 = var1 & " F3, " & vbCrLf
var1 = var1 & " F4, " & vbCrLf
var1 = var1 & " F9, " & vbCrLf
var1 = var1 & " F12 " & vbCrLf
var1 = var1 & "FROM [HUY$A2:V1000] " & vbCrLf
var1 = var1 & "UNION ALL " & vbCrLf
var1 = var1 & "SELECT F1, " & vbCrLf
var1 = var1 & " F3, " & vbCrLf
var1 = var1 & " F4, " & vbCrLf
var1 = var1 & " F9, " & vbCrLf
var1 = var1 & " F12 " & vbCrLf
var1 = var1 & "FROM [HIEP$A2:V1000] "
With adoRS
.ActiveConnection = adoConn
.Open var1
End With
With Sheets("tonghop")
.[A2:AP65000].ClearContents
.[A2].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing

End Sub
[/GPECODE]

Bạn ơi
Mình đã đọc trả lời của bạn và thấy rất dễ hiểu
Tuy nhiên lúc thao tác lại có vấn đề
Mình muốn tạo 1 file quản lý nhân viên kinh doanh
1 sheet là 1 tên nhân viên, file tổng hợp mình muốn tổng hợp theo tên nhân viên, mỗi khi sheet nhân viên thêm thông tin thì sheet tổng hợp tự động update thì làm như nào ạ?
Và cụ thể dán code thì dán như nào ạ?
Mình là thành viên mới mong các bạn chỉ giáo ạ
Cảm ơn nhìu

quanluu · 19/9/16

Nguyễn Hải Linh đã viết:
Bạn ơi
Mình đã trả lời của bạn và thấy rất dễ hiểu
Tuy nhiên lúc thao tác lại có vấn đề
Mình muốn tạo 1 file quản lý nhân viên kinh doanh
1 sheet là 1 tên nhân viên, file tổng hợp mình muốn tổng hợp theo tên nhân viên, mỗi khi sheet nhân viên thêm thông tin thì sheet tổng hợp tự động update thì làm như nào ạ?
Và cụ thể dán code thì dán như nào ạ?
Mình là thành viên mới mong các bạn chỉ giáo ạ
Cảm ơn nhìu

Bạn thử code này

Mã:

 Sub tonghop()
    Dim sh As Worksheet, lastcol As Integer
    Set cn = CreateObject("ADODB.Connection")
    cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";")
    With ActiveSheet
    lastcol = .Cells(2, Columns.Count).End(xlToLeft).Column
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> .nameThen
            Set rs = cn.Execute("select f1,f2,f8,f11 from [" & sh.Name & "$A3:K1000]")
            For i = 1 To lastcol
                If .Cells(2, i) = sh.Name Then
                    .Cells(4, i).CopyFromRecordset rs
                    Exit For
                End If
            Next
        End If
    Next
    End With
 End Sub

Nguyen Hai Linh · 21/9/16

Em đã dùng nhưng bị lỗi Syntax Error ạ
Phải làm sao đây ạ?
Em cảm ơn

quanluu1989 đã viết:

Bạn thử code này

Mã:

 Sub tonghop()
    Dim sh As Worksheet, lastcol As Integer
    Set cn = CreateObject("ADODB.Connection")
    cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";")
    With ActiveSheet
    lastcol = .Cells(2, Columns.Count).End(xlToLeft).Column
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> .nameThen
            Set rs = cn.Execute("select f1,f2,f8,f11 from [" & sh.Name & "$A3:K1000]")
            For i = 1 To lastcol
                If .Cells(2, i) = sh.Name Then
                    .Cells(4, i).CopyFromRecordset rs
                    Exit For
                End If
            Next
        End If
    Next
    End With
 End Sub

quanluu · 21/9/16

Nguyễn Hải Linh đã viết:
Em đã dùng nhưng bị lỗi Syntax Error ạ
Phải làm sao đây ạ?
Em cảm ơn

Mình test trên file đính kèm có lỗi gì đâu nhỉ? mà nó báo lỗi dòng nào vậy bạn? bạn dùng office bao nhiêu?

vantruong477 · 21/9/16

Hai Lúa Miền Tây đã viết:
Ngay từ đầu phải chi bạn đưa dữ liệu thật lên thì đỡ cho mọi người.
Bạn chạy code sau nhé:

[GPECODE=sql]Sub Union_HLMT()
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
Dim var1 As String, i As Integer
For i = 1 To 6
var1 = var1 & "SELECT F1, " & vbCrLf
var1 = var1 & " F3, " & vbCrLf
var1 = var1 & " F4, " & vbCrLf
var1 = var1 & " F9, " & vbCrLf
var1 = var1 & " F12 " & vbCrLf
var1 = var1 & "FROM [" & Sheets(i).Name & "$A8:L1000] " & vbCrLf
var1 = var1 & "WHERE F3 IS NOT NULL " & vbCrLf
var1 = var1 & "UNION ALL" & vbCrLf
Next
With adoRS
.ActiveConnection = adoConn
.Open Left(var1, Len(var1) - 11)
End With
With Sheet1
.[A3:E65000].ClearContents
.[A3].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing

End Sub

[/GPECODE]

bài viết hay, đáng để học hỏi thêm bạn hai lúa à

Nguyen Hai Linh · 22/9/16

Em dùng office 2013 ạ
Nó báo lỗi 2 dòng bên ảnh ạ

quanluu1989 đã viết:
Mình test trên file đính kèm có lỗi gì đâu nhỉ? mà nó báo lỗi dòng nào vậy bạn? bạn dùng office bao nhiêu?

quanluu · 22/9/16

Nguyễn Hải Linh đã viết:
Em dùng office 2013 ạ
Nó báo lỗi 2 dòng bên ảnh ạ

Name và Then bi dính liền nhau, bạn chỉ thêm dấu cách cho nó

...<> .Name then
.....

Nguyen Hai Linh · 22/9/16

Em cảm ơn anh rất rất nhiều?
Em đã làm được ạ
Cho em hỏi anh có dạy những lớp viết code như thế không ạ?

quanluu1989 đã viết:
Name và Then bi dính liền nhau, bạn chỉ thêm dấu cách cho nó

...<> .Name then
.....

quanluu · 22/9/16

Nguyễn Hải Linh đã viết:
Em cảm ơn anh rất rất nhiều?
Em đã làm được ạ
Cho em hỏi anh có dạy những lớp viết code như thế không ạ?

Chào bạn,
Trình code của mình còn gà lắm, mình toàn học code trên GPE thui, nên mình không có dạy.

Nguyen Hai Linh · 22/9/16

Thế em xin hỏi luôn
Tương lai phòng em lên khoảng 10 nhân viên, tức là thêm khoảng 6 sheet nữa thì lúc đó em viết code khác ạ?

quanluu1989 đã viết:
Chào bạn,
Trình code của mình còn gà lắm, mình toàn học code trên GPE thui, nên mình không có dạy.

quanluu · 22/9/16

Nguyễn Hải Linh đã viết:
Thế em xin hỏi luôn
Tương lai phòng em lên khoảng 10 nhân viên, tức là thêm khoảng 6 sheet nữa thì lúc đó em viết code khác ạ?

K bạn, chỉ cần tên sheet và tên trong list tổng hợp giống nhau là đc. Bạn cứ test là biết liền

Giúp mình ghép các Sheet thành 1 Sheet tổng hợp

nahiep79

Thành viên mới

File đính kèm

Ba Tê

Cạo Rồi Khỏi Gội

chuotchuix

Thành viên hoạt động

Nguyen Hai Linh

Thành viên mới

File đính kèm

Nguyen Hai Linh

Thành viên mới

File đính kèm

quanluu

Thành viên gắn bó

Nguyen Hai Linh

Thành viên mới

quanluu

Thành viên gắn bó

vantruong477

Thành viên mới

Nguyen Hai Linh

Thành viên mới

File đính kèm

quanluu

Thành viên gắn bó

Nguyen Hai Linh

Thành viên mới

quanluu

Thành viên gắn bó

Nguyen Hai Linh

Thành viên mới

quanluu

Thành viên gắn bó

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

Facebook

Group

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