Bạn tham khảo ở đây nhé.thinhpt đã viết:
michealvu đã viết:
tình hình la em muốn hỏi các bác là làm sao để có thể tính tổng của các ô có củng màu sắc trong một cột, tức là điều kiện lọc là cùng màu thì cộng lại ây ạ. thaks các bác nhiều!!!!
Bạn thử dùng hàm tự tạo này xem !tình hình la em muốn hỏi các bác là làm sao để có thể tính tổng của các ô có củng màu sắc trong một cột, tức là điều kiện lọc là cùng màu thì cộng lại ây ạ. thaks các bác nhiều!!!!
Function Demtheomau(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim ICol As Long
Dim vResult
ICol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = ICol Then
vResult = WorksheetFunction.SUM(rCell) + vResult
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = ICol Then
vResult = 1 + vResult
End If
Next rCell
End If
Demtheomau = vResult
End Function
tình hình la em muốn hỏi các bác là làm sao để có thể tính tổng của các ô có củng màu sắc trong một cột, tức là điều kiện lọc là cùng màu thì cộng lại ây ạ. thaks các bác nhiều!!!!
Làm đươc đấy!
tình hình la em muốn hỏi các bác là làm sao để có thể tính tổng của các ô có củng màu sắc trong một cột, tức là điều kiện lọc là cùng màu thì cộng lại ây ạ. thaks các bác nhiều!!!!
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
cảm ơn các bác nhiều, em làm được rôi. hiii 
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?
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function
công thức đếm người tham dự ngày
Xin gởi một cách giải
Public Function tongmau(vung, mau As Range) As Long
Dim i, kq As Long
i = mau.Interior.ColorIndex
For Each mau In vung
If mau.Interior.ColorIndex = i Then kq = kq + mau
Next
tongmau = kq
End Function
=SUMPRODUCT((LEFT(TEXT($A$2:$A$32,"[$-409A]ddd"),3)=D2)*($B$2:$B$32))
