[VBA] Μετράω πλήθος κελιών με το ίδιο background color

[Tasos]

Καλησπέρα!
Μπάμπη, επειδή η συνάρτηση (που κατά τα άλλα λειτουργεί) έχει κάποια λαθάκια και επειδή σε ενδιαφέρει μόνο το πλήθος των κελιών,
θα σου πρότεινα την παρακάτω συνάρτηση:

Option Explicit

Function ColoredCellsCount(ColoredCell As Range, RangeToCount As Range)
    Dim c As Range, lColor As Long, tmpCount As Long
    lColor = ColoredCell.Interior.Color
    For Each c In RangeToCount
        If c.Interior.Color = lColor Then
            tmpCount = tmpCount + 1
        End If
    Next
    ColoredCellsCount = tmpCount
End Function

Ο τύπος που χρησιμοποιείται στο φύλλο είναι: =ColoredCellsCount(D6;D6:H6)+(NOW()*0)

Επειδή δεν προκαλείται υπολογισμός όταν χρωματίζεται ένα κελί από το χρήστη, η καλύτερη λύση
είναι να προστεθεί το +(NOW()*0) στον τύπο το οποίο προκαλεί τον υπολογισμό της
συνάρτησης κάθε φορά που υπολογίζεται το βιβλίο. Θα λειτουργήσει και όταν πατηθεί το πλήκτρο F9.

Με εκτίμηση

Τάσος