Emily întreabă:
Vă rugăm să ne sfătuiți soluția formular pentru numărarea numărului de celule care au o anumită culoare backgorund (adică aceste celule conțin unele date, totuși culoarea este importantă pentru a le număra).
În mod logic, cred că ar trebui să urmeze un formular standard, adică
CountIF(A01:A55,"backgroundcolour=red")Cred că culoarea roșie ar trebui identificată cu numărul 3 (conform fișierului de ajutor)
Trebuie să știu cum să codez culoarea celulei de fundal, adică colorfill ?, backgroundcolour ?, interior.color? … ???
Emily - dacă ar fi atât de ușor. Trebuie să aveți o funcție definită de utilizator în VBA. Mai jos este codul funcției. Trebuie să introduceți acest lucru într-un nou modul de cod din registrul de lucru.
Odată ce ați introdus codul, puteți utiliza această formulă:
=CountColor(A1:A99,D2)
Unde D2 are formatul de fundal pe care doriți să îl numărați.
Iată codul:
Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function
