شمارش سلول هایی که دارای رنگ خاصی هستند!

**~M*E*H*D*I~** · 2014/04/13, 09:50

نوشته اصلی توسط amin10uri

سلام
نمی دونم سوال رو در جای مناسبی مطرح میکنم یا نه اگه جای سوالم اینجا نیست مدیران محترم تاپیک رو منتقل کنند

من دنبال راه حلی میگردم تعداد سلول هایی که داری رنگ خاصی هستند رو به صورت تعداد سلول بهم نشون بده
مثلا در پایگاه داد ه ای که شامل 365 روز سال هست یک سری از روزها که دارای ویژگی خاصی هست به یک رنگ خاص مثلا قرمز در میاریم و بعد به نحوی این روز ها شمرده بشن.
هیچ داده ای نمیشه وارد این سلول ها کرد چون فرمول های دیگه به هم میریزند.فقط و فقط با گزینه Theme Colore میشه جدا کرد

اساتید و دوستان محترم لطفا راهنمایی بفرمایید

ممنون

دوست عزیز ، امکان شمارش سلول هایی که بر اساس کاندیشنال فرمتینگ رنگ شدند در اکسل ورژن 2007 به بالا وجود نداره ، شما باید بر اساس همون شرطی که باعث قرمز شدن یک سلول میشه اقدام به شمارش کنید

**amin10uri** · 2014/04/13, 10:06

نوشته اصلی توسط ~M*E*H*D*I~

دوست عزیز ، امکان شمارش سلول هایی که بر اساس کاندیشنال فرمتینگ رنگ شدند در اکسل ورژن 2007 به بالا وجود نداره ، شما باید بر اساس همون شرطی که باعث قرمز شدن یک سلول میشه اقدام به شمارش کنید

این سلول ها به صورت دستی تغییر رنگ داده میشن ولی چون برای هر پرسنل یک پایگاه 365 روزه وجود داره نمیشه به صورت دستی شمارش کرد
شما چ راهی رو پیشنهاد میفرمایید؟

**Behnam** · 2014/04/13, 10:39

به این تایپیک یه سری بزن شاید کمکت کنه
جمع سلول های رنگی حاصل از conditional formating

**khakzad** · 2014/04/13, 13:21

سلام
فیلتر هم می تونید بکنید بر اساس رنگ و بعد از subtotal استفاده کنید

**komeilex** · 2014/04/13, 20:07

تشکر از اساتید عزیز.پیرو صحبت استاد وطن پرست شما می تونین با VB اینکار رو انجام بدین دوست عزیز.
می تونین یه تابع خودتون تعریف کنین که این کارو براتون انجام بده. به این توابع می گن UDF که مخفف User Define Function هستش.
برای این کار کافیه یه ماژول از مسیر زیر باز کنین و کد زیر رو توش بنویسین:
developer>>visual basic>>insert>>module

کد PHP:


Function CountColorIf(rSample As Range, rArea As Range) As Long   
    Dim rAreaCell As Range
    Dim lMatchColor As Long
    Dim lCounter As Long

    lMatchColor = rSample.Interior.Color
    For Each rAreaCell In rArea
        If rAreaCell.Interior.Color = lMatchColor Then
            lCounter = lCounter + 1
        End If
    Next rAreaCell
    CountColorIf = lCounter
 End Function

حالا خیلی راحت می تونی این تابع رو مثل مابقی توابع اکسل فراخوانی کنی.
موردی که پیش میاد اینه که این تابع به طور خودکار آبدیت نمیشه و شما باید از کلید های ترکیبی زیر برای آبدیت کردنش استفاده کنین:

کد PHP:


Ctrl+Alt+f9

یا می تونی با نوشتن یک ماکرو این کارو اتوماتیک انجام بدی. برای این کار از کد زیر استفاده کن:

کد PHP:


 Application.CalculateFull

و سپس این ماکرو رو به یک دکمه اختصاص بده و با زدن دکمه تابع آبدیت میشه.
برای توضیحات کامل می تونی به آدرس زیر بری:

Using COUNTIF with Colors

http://excelribbon.tips.net/T011725_Using_COUNTIF_with_Colors.html?awt_l=Ds2bF&awt_m=IpTDyOiix4R74X

Excel allows you to easily format cells with different fonts, borders, and colors. If you want to count the number of cells that use a particular background color, there are a couple of approaches you can use. This tip shows you how.