Tạo pivottable cho dữ liệu được tổng hợp từ 2 sheet

2 Responses

1. hands says:

   01/02/2023 at 9:26 am

   Các bạn cho mình hỏi, mình có 2 bảng dữ liệu như file đính kèm.
   1. Khi mình pivot riêng lẻ thì lọc được điều kiện ngày thanh toán, sau đó là code thanh toán như 2 bảng pivot ở sheet1.
   2. Tuy nhiên khi consol lại như bảng bên dưới thì Điều kiện (row) lúc này chỉ được chọn 1 trong 2. Tức là chỉ xem được số tiền thanh toán theo ngày or số tiền trả theo code.
   Các bạn có thể hướng dẫn giúp mình làm sao có thể consol data mà vẫn lọc được 2 điều kiện như từng bảng rời ko ạ ?

   Many thanks

   cái này phải dùng cách khác mới được vui lòng xem file

   Bạn hướng dẫn cách làm được ko ạ?

   cách hưỡng dẫn đây
   [URL='https://www.giaiphapexcel.com/forum/showthread.php?89218-T%E1%BA%A1o-pivottable-cho-d%E1%BB%AF-li%E1%BB%87u-%C4%91%C6%B0%E1%BB%A3c-t%E1%BB%95ng-h%E1%BB%A3p-t%E1%BB%AB-2-sheet&p=556441#post556441']https://www.giaiphapexcel.com/forum/…-được-tổng-hợp-từ-2-sheet&p=556441#post556441

   Tạo 2 name ở 2 sheet, làm tương tự như clip bên dưới:T0WN0UtoBhM

   Rất hay anh Hai Lúa ạh.
   Nhưng dữ liệu lớn có vẻ căng (e chưa thử)
   12 Name tương đương 12 tháng, mỗi Name tren dưới 100k bản ghi liệu excel có chịu nổi không anh?

   Nếu dữ liệu 12 tháng như F1 nơi có thể chơi ăn gian kiểu khác–=0
   ví dụ như kết hợp cùng VBA chẳng hạn

   Ý anh Thương có phải rút ngắn tối đa các bản ghi bằng VBA -> sau đó mới SQL ?

   Đã VBA rồi thì không cần SQL xem đây.Chỉ cần vậy thôi(VBA+PIVOTtable)–=0
   Option Explicit

   Sub Getdata_fromsheets()
   Dim sh As Object, Data As Range, T As Double
   T = Timer
   Application.ScreenUpdating = False
   Sheets("Temp").Range("3:65000").ClearContents
   Sheets("PVT").Range("3:65000").ClearContents
   For Each sh In ThisWorkbook.Sheets
   If sh.name <> "PVT" Then
   sh.Range("A4").CurrentRegion.Offset(1).copy
   Sheets("Temp").Range("A65536").End(3).Offset(1).PasteSpecial (12)
   Application.CutCopyMode = False
   End If
   Next
   Call PIVOT_ADD
   Application.ScreenUpdating = True
   Sheets("PVT").Range("A1") = Timer – T
   End Sub

   Sub PIVOT_ADD()
   Dim PVT As PivotTable, PVT_Data As Range
   Set PVT_Data = Sheets("Temp").Range("A2").CurrentRegion
   ActiveWorkbook.PivotCaches.Create(xlDatabase, PVT_Data).CreatePivotTable (Sheets("PVT").Range("C12")), "Pivot"
   Set PVT = ActiveSheet.PivotTables("Pivot")
   With PVT
   With .PivotFields("S")
   .Orientation = xlRowField
   .Position = 1
   End With
   With .PivotFields("Paid Date")
   .Orientation = xlPageField
   .Position = 1
   End With
   .AddDataField PVT.PivotFields("OUT"), ".OUT", xlSum
   .PivotFields(".OUT").NumberFormat = "#,##0"
   .TableStyle2 = "OPTION1"
   .RowAxisLayout xlTabularRow
   End With
   ActiveWorkbook.RefreshAll
   End Sub

   Không ổn a Thương ơi.
   Như em nói mỗi Name có trên dưới 100k bản ghi, mà 12 name thì hơn cả triệu dòng
   theo em hiểu thủ tục get data của Anh là copy dữ liệu về 1 sheet.
   1 sheet cũng chỉ có hơn triệu dòng vậy giải pháp này chắc phá sản rồi.

   nếu dữ liệu nhiều hơn số dòng của 1 sheet thì lúc đó tôi sẽ cho code chạy từ sheet 1–10 để cho pvt rút gọn dữ liệu, sau đó lấy kết quả ở pvt gán ngược lại sheets nguồn của PVT,
   còn 2 sheet còn lại cứ gom nối vào là xong.
   với các này thjif đảm bảo bạn có 36 sheet cũng chẳng sao nhé–=0

   Reply
2. hands says:

   01/02/2023 at 9:30 am

   Em muốn làm trên 2 sheet thì thêm tên lệnh như thế nào ạ?
   2851

   Dùng VBA thử nha bạn
   Sub mongmuon()
   Dim J As Integer
   On Error Resume Next
   Sheets(1).Select
   Worksheets.Add
   Sheets(1).Name = "mongmuon"
   Sheets(2).Activate
   Range("A1").EntireRow.Select
   Selection.Copy Destination:=Sheets(1).Range("A1")
   For J = 2 To Sheets.Count
   Sheets(J).Activate
   Range("A1").Select
   Selection.CurrentRegion.Select
   Selection.Offset(1, 0).Resize(Selection.Rows.Count – 1).Select
   Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
   Next
   End Sub

   Dùng VBA thử nha bạn:

   Reply