Vba sắp xếp và tổng hop dữ liệu

[nhocbtr]

CHÀO CÁC Bác
Em có một đề tài như sau:

Có một danh sách các sản phẩm A, B, C, D, E,.........
Tương ứng với nó là giá trị 1,2,3,4,5,6.....
các đầu việc này sấp xếp lung tung vi dụ

A giá trị là 1
D giá trị là 3
B giá trị là 15
B giá trị là 7
A giá trị là 19
C giá trị là 25
.......
EM CẦN VBA đầu tiên quét cột đầu việc nó nhận dữ liệu,
Sau đó quét cột giá trị nó nhận dữ liệu
Sau đó click vào một ô bấc kỳ nó sẽ cho ra bảng tổng hợp
A giá trị là : ( tổng các giá trị của A)
B giá trị là : ( tổng các giá trị của B)
C giá trị là : ( tổng các giá trị của C)
D giá trị là : ( tổng các giá trị của D)
HƯỚNG GIẢI QUYẾT NHƯ THẾ NÀO CÁC BÁC GIÚP EM VỚI Ạ, EM MỚI TỰ HỌC VBA NÊN CHẲNG BIẾT LÀM SAO CẢ

 

[nhocbtr]

VÍ DỤ NHƯ THẾ NÀY Ạ :
[TABLE="width: 338"]
[TR]
[TD="align: left"]CÔNG ViỆC [/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[/TR]
[TR]
[TD="align: left"]A[/TD]
[TD="align: right"]1[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD] [/TD]
[TD="align: right"]2[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]D[/TD]
[TD="align: right"]5[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]C[/TD]
[TD="align: right"]1[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD] [/TD]
[TD="align: right"]5[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]BẢNG TỔNG HỌP[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]CÔNG ViỆC [/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[/TR]
[TR]
[TD="align: left"]A[/TD]
[TD="align: right"]1[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD] [/TD]
[TD="align: right"]7[/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]C[/TD]
[TD="align: right"]1[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: left"]D[/TD]
[TD="align: right"]5[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]

 

[Quang_Hải]

VÍ DỤ NHƯ THẾ NÀY Ạ :
[TABLE="width: 338"]
[TR]
[TD="align: left"]CÔNG ViỆC[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[/TR]
[TR]
[TD="align: left"]A[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD][/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]D[/TD]
[TD="align: right"]5[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]C[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD][/TD]
[TD="align: right"]5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]BẢNG TỔNG HỌP[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]CÔNG ViỆC[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[/TR]
[TR]
[TD="align: left"]A[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD][/TD]
[TD="align: right"]7[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]C[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]D[/TD]
[TD="align: right"]5[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

Dùng mảng và dictionary giải quyết cái xẹt là xong. Trên diễn đàn dạng bài này nhiều như nấm.

 

[mhung12005]

VÍ DỤ NHƯ THẾ NÀY Ạ :
[TABLE="width: 338"]
[TR]
[TD="align: left"]CÔNG ViỆC[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[/TR]
[TR]
[TD="align: left"]A[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD][/TD]
[TD="align: right"]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]D[/TD]
[TD="align: right"]5[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]C[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD][/TD]
[TD="align: right"]5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]BẢNG TỔNG HỌP[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]CÔNG ViỆC[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[TD="align: left"]GIÁ TRỊ[/TD]
[/TR]
[TR]
[TD="align: left"]A[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]B[/TD]
[TD][/TD]
[TD="align: right"]7[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]C[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: left"]D[/TD]
[TD="align: right"]5[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]

Bạn thủ thủ tục này xem sao nhé.

 

[Quang_Hải]

Bạn thủ thủ tục này xem sao nhé.

Giả sử dữ liệu như trong bài 4, mình code thế này cho lẹ

Private Sub CommandButton1_Click()
[L1].CurrentRegion.Clear
Range([A1], [A1].End(2)).Copy [L1]
[A1].CurrentRegion.AdvancedFilter 2, , [L1], True
With [L1].CurrentRegion.SpecialCells(4)
   .Formula = "=SUMPRODUCT((R2C1:R1000C1=RC12)*(R1C2:R1C4=R1C)*R2C2:R1000C4)"
   .Value = .Value
End With
End Sub