thanks for your help, but...
trong phần data thì tên chỉ xuất hiện 1 lần chứ không ghi ra nhiều lần nên Pivot Table chưa thík hợp. còn cách nào nửa ko bạn.
Bạn đã fải xài DSUM() rối thì fải tuân thủ cấu trúc của CSDL
& mình sẽ hướng dẫn bạn 1 cách dùng DSUM() thông qua macro như sau:
PHP:
Sub gpeDSUM()
Dim WF As Object, Cls As Range, Clls As Range, Rng As Range
Set WF = Application.WorksheetFunction
Set Rng = [B1].CurrentRegion
For Each Cls In Range([m2], [m2].End(xlDown))
[E2].Value = Cls.Value
For Each Clls In Range([o2], [o2].End(xlDown))
[f2].Value = Clls.Value
With [H65500].End(xlUp).Offset(1)
.Value = Cls.Value
.Offset(, 1).Value = Clls.Value
.Offset(, 2).Value = WF.DSum(Rng, [C1], [E1:F2])
End With
Next Clls
Next Cls
End Sub
Trước khi chạy macro bạn có các việc sau:
(1) Các ô trống trên cột 'A' đem tô nền màu nào đó, như màu nền số 35. Để làm gì ư; Để sau khi chạy macro thì bạn xóa những gì có trong các ô có màu nền này
(2) Điền đầy các ô màu nền này các giá trị tên thích ứng
(3) Tạo DS (danh sách) duy nhứt:
(3.1) Tại cột M bắt đầu từ M1 ta lập DS từ cột 'A'
(3.2) Tương tự lập DS duy nhứt của cột B tại cột 'O'
(4) Chép A1:C1 sang H1:J1 & A1:B1 sang E1:F1
(5) Chạy macro để kết quả hiễn thị lên vùng cột 'H:J'
/(/ếu bạn muốn hoàn nguyên cột 'A' bằng macro thì mình sẽ không nề hà gì, tuy đó là việc làm không ưa gì cho lắm (Vì sao ư: Vì trái quy luật!)
& mình sẽ hướng dẫn bạn 1 cách dùng DSUM() thông qua macro như sau:
PHP:
Sub gpeDSUM()
Dim WF As Object, Cls As Range, Clls As Range, Rng As Range
Set WF = Application.WorksheetFunction
Set Rng = [B1].CurrentRegion
For Each Cls In Range([m2], [m2].End(xlDown))
[E2].Value = Cls.Value
For Each Clls In Range([o2], [o2].End(xlDown))
[f2].Value = Clls.Value
With [H65500].End(xlUp).Offset(1)
.Value = Cls.Value
.Offset(, 1).Value = Clls.Value
.Offset(, 2).Value = WF.DSum(Rng, [C1], [E1:F2])
End With
Next Clls
Next Cls
End Sub
Trước khi chạy macro bạn có các việc sau:
(1) Các ô trống trên cột 'A' đem tô nền màu nào đó, như màu nền số 35. Để làm gì ư; Để sau khi chạy macro thì bạn xóa những gì có trong các ô có màu nền này
(2) Điền đầy các ô màu nền này các giá trị tên thích ứng
(3) Tạo DS (danh sách) duy nhứt:
(3.1) Tại cột M bắt đầu từ M1 ta lập DS từ cột 'A'
(3.2) Tương tự lập DS duy nhứt của cột B tại cột 'O'
(4) Chép A1:C1 sang H1:J1 & A1:B1 sang E1:F1
(5) Chạy macro để kết quả hiễn thị lên vùng cột 'H:J'
/(/ếu bạn muốn hoàn nguyên cột 'A' bằng macro thì mình sẽ không nề hà gì, tuy đó là việc làm không ưa gì cho lắm (Vì sao ư: Vì trái quy luật!)
... hic
