Tổng hợp dữ liệu với cấu trúc dữ liệu dữ liệu khác nhau

vanaccex · 17/4/19

Em Vân muốn cộng Tổng Giá trị duy nhất theo điều kiện cột Họ & tên Cột tính tổng là cột ( Lương cơ bản , Thành Tiền , Phụ cấp ăn ca , Phụ cấp công tác phí , Tổng lương)
+ Với bảng loại 1 là từ cột A đến cột J Kết quả hiện thỉ sẽ ở Sheet KetQua01.
+ Với bảng loại 2 là từ cột A đến cột G Kết quả hiện thỉ sẽ ở Sheet KetQua02.
Em Vân Cảm ơn anh (chị) trên diễn đàn Giaiphapexcel ạ !

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Em Vân muốn cộng Tổng Giá trị duy nhất theo điều kiện cột Họ & tên Cột tính tổng là cột ( Lương cơ bản , Thành Tiền , Phụ cấp ăn ca , Phụ cấp công tác phí , Tổng lương)
+ Với bảng loại 1 là từ cột A đến cột J Kết quả hiện thỉ sẽ ở Sheet KetQua01.
+ Với bảng loại 2 là từ cột A đến cột G Kết quả hiện thỉ sẽ ở Sheet KetQua02.
Em Vân Cảm ơn anh (chị) trên diễn đàn Giaiphapexcel ạ !

Lương căn bản bạn tính như thế nào? Bạn cần cộng tổng hay chỉ gom nhóm cột này?
Cột thành tiền cho báo cáo 02 là Tổng lương?

vanaccex · 17/4/19

Hai Lúa Miền Tây đã viết:
Lương căn bản bạn tính như thế nào? Bạn cần cộng tổng hay chỉ gom nhóm cột này?

Dạ em Vân muốn tính tổng luôn anh ạ. Cột lương căn bản Giống với cột Lương cơ bản ( là 1 anh ạ ). Em Vân chưa để ý kĩ vụ này !

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Dạ em Vân muốn tính tổng luôn anh ạ. Cột lương căn bản Giống với cột Lương cơ bản ( là 1 anh ạ ). Em Vân chưa để ý kĩ vụ này !

Còn ý 2 nữa bạn
Cột thành tiền cho báo cáo 02 là Tổng lương?

vanaccex · 17/4/19

Hai Lúa Miền Tây đã viết:
Còn ý 2 nữa bạn
Cột thành tiền cho báo cáo 02 là Tổng lương?

Dạ cột thành tiền cho báo cáo 02 là cột Thành tiền của Của loại bảng 02 anh ạ !

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Dạ cột thành tiền cho báo cáo 02 là cột Thành tiền của Của loại bảng 02 anh ạ !

Bạn dùng code sau nhé:

Mã:

Sub KetQua01()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet3.Range("B2").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5),sum(F6),sum(F7),sum(F8) from [Data$B9:I] where F2 is not null and F2 <>'CV' group by F1,F2")
    End With
   
End Sub
Sub KetQua02()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet1.Range("B2").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5) from [Data$B9:I] where F2 is not null and F2 <>'CV' group by F1,F2")
    End With
   
End Sub

vanaccex · 17/4/19

Hai Lúa Miền Tây đã viết:

Bạn dùng code sau nhé:

Mã:

Sub KetQua01()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet3.Range("B2").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5),sum(F6),sum(F7),sum(F8) from [Data$B9:I] where F2 is not null and F2 <>'CV' group by F1,F2")
    End With

End Sub
Sub KetQua02()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet1.Range("B2").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5) from [Data$B9:I] where F2 is not null and F2 <>'CV' group by F1,F2")
    End With

End Sub

Dạ code vẫn chưa chạy đúng ý em Vân ạ, với Phần cấu trúc bảng 2 là vẫn chưa phân biệt được so với bảng 01 mà đang được cộng tổng tất cả ạ !

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Dạ code đúng ý em Vân rồi ạ. Tuy nhiên em Vân chưa hiểu cách thức sao để phân biệt được 2 loại cấu trúc ở trên anh ạ !

Bạn có thể tham khảo những bài viết về ADO căn bản của mình nhé.

vanaccex · 17/4/19

Hai Lúa Miền Tây đã viết:
Bạn có thể tham khảo những bài viết về ADO căn bản của mình nhé.

Dạ vâng ạ !. Em Vân sửa đổi phần câu trả lời của mình anh ạ ! bởi em Vân test chưa kĩ anh ạ !

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Dạ vâng ạ !. Em Vân sửa đổi phần câu trả lời của mình anh ạ ! bởi em Vân test chưa kĩ anh ạ !

Chưa phân biệt thế nào bạn nói rõ mình xem nhé.

vanaccex · 17/4/19

Hai Lúa Miền Tây đã viết:
Chưa phân biệt thế nào bạn nói rõ mình xem nhé.

Có nghĩa là các bảng có cấu trúc từ A đến I sẽ cộng vào 1 sheet kết quả, Và các bảng có cấu trúc từ A đến G sẽ cộng vào sheet kết quả anh ạ

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Có nghĩa là các bảng có cấu trúc từ A đến I sẽ cộng vào 1 sheet kết quả, Và các bảng có cấu trúc từ A đến G sẽ cộng vào sheet kết quả anh ạ

Bạn thử lại như sau nhé:

Mã:

Sub KetQua01()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet3.Range("B3").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5),sum(F6),sum(F7),sum(F8) from [Data$B9:I] where F2 is not null and F2 <>'CV' and F8 is not null group by F1,F2")
    End With
   
End Sub
Sub KetQua02()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet1.Range("B3").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5) from [Data$B9:I] where F2 is not null and F2 <>'CV' and F8 is null group by F1,F2")
    End With
   
End Sub

vanaccex · 17/4/19

Hai Lúa Miền Tây đã viết:

Bạn thử lại như sau nhé:

Mã:

Sub KetQua01()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet3.Range("B3").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5),sum(F6),sum(F7),sum(F8) from [Data$B9:I] where F2 is not null and F2 <>'CV' and F8 is not null group by F1,F2")
    End With
  
End Sub
Sub KetQua02()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
        Sheet1.Range("B3").CopyFromRecordset .Execute("Select F1,F2,sum(F3),sum(F4),sum(F5) from [Data$B9:I] where F2 is not null and F2 <>'CV' and F8 is null group by F1,F2")
    End With
  
End Sub

Dạ lần này thì kết quả đúng ý em Vân rồi ạ !, Em Vân cảm ơn anh ạ !. Em Vân đang kiểm tra vụ Nhân viên Phạm Thế Bắc đang có 2 tên bởi khách nhau 1 dấu Cách ở cuối tên thôi ạ !

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Dạ lần này thì kết quả đúng ý em Vân rồi ạ !, Em Vân cảm ơn anh ạ !. Em Vân đang kiểm tra vụ Nhân viên Phạm Thế Bắc đang có 2 tên bởi khách nhau 1 dấu Cách ở cuối tên thôi ạ !

Dấu cách cuối và không cách thì nó sẽ tự động gom lại thành 1 là không cách mà bạn

vanaccex · 17/4/19

Hai Lúa Miền Tây đã viết:
Dấu cách cuối và không cách thì nó sẽ tự động gom lại thành 1 là không cách mà bạn

Em Vân lại chưa biết đến cái này trong ADO. em Vân cảm ơn anh ạ !

Hai Lúa Miền Tây · 17/4/19

vanaccex đã viết:
Em Vân lại chưa biết đến cái này trong ADO. em Vân cảm ơn anh ạ !

Làm nhiều sẽ tự rút ra cho mình kinh nghiệm thôi bạn.

Tổng hợp dữ liệu với cấu trúc dữ liệu dữ liệu khác nhau

vanaccex

Thành viên tiêu biểu

File đính kèm

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

vanaccex

Thành viên tiêu biểu

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

vanaccex

Thành viên tiêu biểu

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

vanaccex

Thành viên tiêu biểu

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

vanaccex

Thành viên tiêu biểu

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

vanaccex

Thành viên tiêu biểu

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

vanaccex

Thành viên tiêu biểu

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

vanaccex

Thành viên tiêu biểu

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

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