مشکل در اجرای ماکروی شمارش رنگ ها

[sabertb]

سلام خدمت اساتید عزیز
سوال من در رابطه با کد زیر می باشد. چرا این کد درجا با تغییر رنگ تغییر نمیکند مثلا من یه بازه دارم برای جست و جو یک سلول برای معرفی رنگ وقتی سلول رو مثلا رنگ قرمز معرفی میکنم بعد میرم تو بازه جست و جو رنگ چند سلول اش رو قرمز میکنم جواب نمیدهد و باید داخل فرمول دوباره کلید Enter بزنم تا جواب بده

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

[sabertb]

من هرجور تعریف میکنم این مشکل رو دارد روش دوم

Function GetColorCount(CountRange As Range, CountColor As Range)Dim CountColorValue As Integer
Dim TotalCount As Integer
CountColorValue = CountColor.Interior.ColorIndex
Set rCell = CountRange
For Each rCell In CountRange
    If rCell.Interior.ColorIndex = CountColorValue Then
        TotalCount = TotalCount + 1
    End If
Next rCell
GetColorCount = TotalCount
End Function

یعنی هر وقت رنگ هارو تغییر میدم تعداد درجا تغییر نمیکنه و نیاز داره من یه بار داخل فرمول Enter بزنم ، جالب اینجاست که فایل های نمونه ای که دانلود کردم با این کد ها درجا کار میکنه

[Amir Ghasemiyan]

سلام دوست عزيز
علت اينه كه فانكشن زماني اجرا ميشه كه شما تغييري در محتويات سلول ها اعمال كنيد. تغيير رنگ دادن تاثيري در اين قضيه نداره.
اون فايلي كه ميگيد بطور اتومات اجرا ميكنه رو بذاريد بررسي كنم.

[sabertb]

سلام دوست عزيز
علت اينه كه فانكشن زماني اجرا ميشه كه شما تغييري در محتويات سلول ها اعمال كنيد. تغيير رنگ دادن تاثيري در اين قضيه نداره.
اون فايلي كه ميگيد بطور اتومات اجرا ميكنه رو بذاريد بررسي كنم.

همین فایل آخری که گذاشتم این طور عمل میکنه ، در جا شمارش رنگ هارو انجام میده