شمارش و جمع سلول های رنگی

[ali.b]

با سلام
با این روش می تونین سلول های رنگی که در اکسل رو بشمارین مثلا ببیند چندتا زرد یا آبی و همچنین جمع اونها

ابتدا وارد محیط (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= محدوده ای که برای شمارش مد نظرتون هست

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.