ساختن تابع جديد : جمع زدن سلولهاي همرنگ بوسيله vb بدون ستونهاي كمكي

[misammisam]

باسلام
بعضي وقتها طبق شكل زير ما تعدادي داده داريم كه با رنگهاي مشخص طبقه بندي شدن و حالا احتياج داريم روي اين اطلاعات ، عملياتهايي مثل جمع زدن انجام بديم ، البته با شرط رنگ خود سلول كه داده درش قرار داره .
مثلا جمع سلولهاي فقط قرمز رنگ رو احتياج داريم .
فایل پیوست 4805

براي اين كار يك ماژول در قسمت vb ساخته و كد زير رو داخلش مينويسيم .

Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
  If cl.Interior.ColorIndex = ColIndex Then
    cSum = WorksheetFunction.Sum(cl, cSum)
  End If
Next cl
SumByColor = cSum
End Function 

حالا وارد خود محيط اكسل ميشويم ، ميبينيد كه يك تابع به اسم SumByColor در قسمت توابع اضافه شده ، اين تابع داراي دو قسمت است ، قسمت اول CellColor كه يك سلول حاوي رنگ مورد نظر انتخاب و قسمت دوم RRange كه كل محدوده مورد نظر جهت جمع زدن انتخاب ميشود .
دقت كنيد در صورتي كه رنگ سلول مرجع يا سلولهاي محدوده كلي رو عوض كرديد ، روي سلول فرمول دابل كليك كنيد و اينتر رو بزنيد كه فرمول رفرش بشود و محاسبات اعمال بگردد .

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