Brojanje ćelija unutarnjom bojom pomoću VBA - Excel savjeti

Emily pita:

Molimo vas da li biste mogli savjetovati formularno rješenje za brojanje broja ćelija koje imaju određenu pozadinsku boju (tj. Ove ćelije sadrže neke podatke, no boja je najvažnija za njihovo brojanje).

Logično smatram da bi trebao slijediti standardni formular tj

CountIF(A01:A55,"backgroundcolour=red")

Vjerujem da bi crvenu boju trebalo označavati brojem 3 (prema datoteci pomoći)

Moram znati kako kodirati boju pozadinske ćelije, tj. Ispunu boje ?, pozadinu boje ?, unutrašnjost boje? … ???

Emily - kad bi barem bilo tako lako. U VBA morate imati korisnički definiranu funkciju. Ispod je kôd funkcije. To morate unijeti u novi modul koda u radnu knjigu.

Nakon što unesete kôd, možete koristiti ovu formulu:

=CountColor(A1:A99,D2)

Gdje D2 ima pozadinski format koji želite brojati.

Evo koda:

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

Zanimljivi članci...