Tính tổng giá trị cột A khi cột B có màu nền (1 người xem)

[Nguyễn Ngọc 1988]

Em muốn tính tổng giá trị cột A khi mà màu nền ở cột B là màu xanh thì phải làm như nào ạ?
Có thể dùng công thức hay VBA nào không ạ
Mong các pro giúp đỡ.

 

[hungpecc1]

Em muốn tính tổng giá trị cột A khi mà màu nền ở cột B là màu xanh thì phải làm như nào ạ?
Có thể dùng công thức hay VBA nào không ạ
Mong các pro giúp đỡ.

99,99% phải dùng VBA

 

[ltxuantuoi]

filter rồi subtotal,

 

[hungpecc1]

Em muốn tính tổng giá trị cột A khi mà màu nền ở cột B là màu xanh thì phải làm như nào ạ?
Có thể dùng công thức hay VBA nào không ạ
Mong các pro giúp đỡ.

Trong file đính kèm có sẵn code VBA rồi, tôi đấu nối chắp vá 1 tẹo thấy cũng chạy ra kết quả :
Function SumCellsByColor_byHungnm(rData As Range, ColorRng As Range, cellRefColor As Range) Dim indRefColor As Long, i As Long, Arr Dim cellCurrent As Range Dim sumRes Application.Volatile sumRes = 0: Arr = rData indRefColor = cellRefColor.Interior.Color For Each cellCurrent In ColorRng i = i + 1 If indRefColor = cellCurrent.Interior.Color Then sumRes = sumRes + Arr(i, 1) End If Next cellCurrent SumCellsByColor_byHungnm = sumRes End Function

 

[be_09]

Em muốn tính tổng giá trị cột A khi mà màu nền ở cột B là màu xanh thì phải làm như nào ạ?
Có thể dùng công thức hay VBA nào không ạ
Mong các pro giúp đỡ.

Góp ý cho bạn:
1/ Thông thường người ta Sum và đếm màu thì sử dụng trực tiếp tính số lượng tại Cell chứa màu, như cách làm ở sheet1 (chứ không ai đếm qua trung gian cột khác).
2/ Nếu đếm trung gian qua cột khác thì người ta sử dụng ngay loại dữ liệu chứa ở cột khác (File bạn là cột B) để tính bằng cách sử dụng PivotTable như cách làm ở sheet2.

 

[Nguyễn Ngọc 1988]

Trong file đính kèm có sẵn code VBA rồi, tôi đấu nối chắp vá 1 tẹo thấy cũng chạy ra kết quả :
Function SumCellsByColor_byHungnm(rData As Range, ColorRng As Range, cellRefColor As Range) Dim indRefColor As Long, i As Long, Arr Dim cellCurrent As Range Dim sumRes Application.Volatile sumRes = 0: Arr = rData indRefColor = cellRefColor.Interior.Color For Each cellCurrent In ColorRng i = i + 1 If indRefColor = cellCurrent.Interior.Color Then sumRes = sumRes + Arr(i, 1) End If Next cellCurrent SumCellsByColor_byHungnm = sumRes End Function View attachment 225733

Cảm ơn pro. Mình cũng chỉ cần nv.