Thủ công vẫn được với điều kiện bạn xài Excel 2007, nó cho phép Filter theo màu ---> Khi ấy bạn kết hợp với hàm SUBTOTAL là rahIic hic... khó hiểu thế này thì mình phải từ bỏ ý định để làm thủ công mất thui. huuuuuuuuu
Cách khác tức là lập trình ấy... Bạn đưa file lên đi
Bạn nên miêu tả sơ qua chứ ---> Mở file định làm nhưng thấy ghi gì gì tùm lum bên trong nên càng không hiểu
Option Explicit
Function SumColorCells(LookUpRange As Range) As Double
Dim Clls As Range
For Each Clls In LookUpRange
With Clls
If .Offset(, -3).Value = Range("Tong").Value Then _
SumColorCells = SumColorCells + .Value
End With
Next Clls
End FunctionOption Explicit
Function SumColorCells(LookUpRange As Range) As Double
Dim Clls As Range
For Each Clls In LookUpRange
With Clls
If .Offset(, Range("Tong").Column - LookUpRange.Column).Value = Range("Tong").Value Then _
SumColorCells = SumColorCells + .Value
End With
Next Clls
End Function
Function SumColor(rg As Range) As Double
For Each it In rg
If it.Interior.ColorIndex <> -4142 Then SumColor = SumColor + it
Next
End Function
thành thật là cảm ơn bạn rất nhiều!nhờ bạn bớt chút thời gian giải thích dùm mình 2 cách đó 1 cách chi tiết nữa dc ko vậy?
