ali.b
2014/07/08, 14:47
با سلام
با این روش می تونین سلول های رنگی که در اکسل رو بشمارین مثلا ببیند چندتا زرد یا آبی و همچنین جمع اونها
ابتدا وارد محیط (VBA (Alt + F11 بشن بعد از منوی Insert گزینه module رو انتخاب کنید و این کد رو توش قرار بدین
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
بعد در یک سلول که میخواین داده ها توش نمایش داده بشه این کدها رو وارد میکنین
Count the colored cells: =colorfunction(A;B:C;FALSE)
Sum the colored cells: =colorfunction(A;B:C;TRUE)
A= سلولی که معیار رنگ هست یعنی اگه میخواین زرد ها رو بررسی کنین باید رنگ این سلول باید زرد باشه تا ازش الگو بگیره
B:C= محدوده ای که برای شمارش مد نظرتون هست
با این روش می تونین سلول های رنگی که در اکسل رو بشمارین مثلا ببیند چندتا زرد یا آبی و همچنین جمع اونها
ابتدا وارد محیط (VBA (Alt + F11 بشن بعد از منوی Insert گزینه module رو انتخاب کنید و این کد رو توش قرار بدین
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
بعد در یک سلول که میخواین داده ها توش نمایش داده بشه این کدها رو وارد میکنین
Count the colored cells: =colorfunction(A;B:C;FALSE)
Sum the colored cells: =colorfunction(A;B:C;TRUE)
A= سلولی که معیار رنگ هست یعنی اگه میخواین زرد ها رو بررسی کنین باید رنگ این سلول باید زرد باشه تا ازش الگو بگیره
B:C= محدوده ای که برای شمارش مد نظرتون هست