Prenesite primer delovnega zvezka
Ta vadnica vam bo pokazala, kako šteti ali seštevati celice določene barve ozadja z uporabo VBA.
Razmislite o naslednjem obsegu v Excelu.
Excel nima vgrajene funkcije za štetje barvnih celic. Namesto tega moramo z uporabo VBA ustvariti uporabniško definirano funkcijo.
Count Cells - Ustvarite funkcijo po meri VBA
Štetje, koliko celic je določene barve z uporabo VBA, je stvar ustvarjanja uporabniško določene funkcije (UDF), ki bo preklapljala po vseh celicah v obsegu in ugotavljala, ali se barva ozadja vsake celice ujema z barvo ozadja, ki jo testirajo in nato uporabijo to funkcijo na Excelovem delovnem listu.
V VBA ustvarimo funkcijo za štetje izbranih celic.
| 12345678910111213141516 | Funkcija CountCellsByColor (rng kot obseg, barvna celica kot obseg) kot dvojnaZatemni dblCount As DoubleZatemni rngCell As Range'Zanka po vsaki celici v razponuZa vsak rng Celica V rng'preverite, ali je notranja barva iste barve kot celica, ki ste jo izbraliČe je rngCell.Interior.Color = ColorCell.Interior.Color PotemČe je IsNumeric (rngCell.Value) = True Potem'če je barva pravilna, povečajte število za 1.dblCount = dblCount + 1Konec ČeKonec ČeNaslednji"Vrnite vrednost v ExcelCountCellsByColor = dblCountKončana funkcija |
Nato uporabite to funkcijo na delovnem listu za vrnitev vrednosti.
| 1 | = CountCellsByColor (B2: E10, G4) |
- Kliknite oranžno celico v G4 in kliknite Vstavi funkcijo.
- Izberite Uporabnik definiran kot kategorijo, nato pa izberite CountCellsByColor kot funkcijo za uporabo.
- Kliknite v redu.
- Označite obseg, ki vsebuje vse obarvane celice.
- Izberite ColorCellin nato kliknite v redu.
Ponovite postopek za štetje celic z zeleno barvo ozadja.
| 1 | = CountCellsByColor (B2: E10, G5) |
Vsote celic - ustvarite funkcijo VBA po meri
Podobno funkcijo po meri ustvarimo v VBA, da seštejemo vrednosti celic določene barve.
| 12345678910111213141516 | Funkcija SumCellsByColor (rng kot obseg, barvna celica kot obseg) kot dvojnaZatemni dblSum kot dvojnoZatemni rngCell As Range"Zanka po vsaki celici v razponuZa vsak rngCell V rng'preverite, ali je notranja barva iste barve kot celica, ki ste jo izbraliČe je rngCell.Interior.Color = ColorCell.Interior.Color PotemČe je IsNumeric (rngCell.Value) = True, potem'dodajte vrednost spremenljivki, če je barva pravilnadblSum = dblSum + rngCell.ValueKonec ČeKonec ČeNaslednji"Vrnite vrednost v ExcelSumCellsByColor = dblSumKončana funkcija |
Nato bi to funkcijo na delovnem listu znova uporabili za povzetek potrebnih celic.
| 1 | = SumCellsByColor (B2: E10, G7) |
