Kuinka laskea värilliset solut Excelissä?
On useita tapoja laskea solut excel-solun värin perusteella.
- Menetelmä # 1 - Laske solut värillisinä käyttämällä suodatusmenetelmää osatoiminnon kanssa
- Tapa # 2 - Laske värilliset solut luomalla toiminto VBA-koodilla
Keskustelkaamme nyt kaikista menetelmistä yksityiskohtaisesti yhdessä esimerkin kanssa -
# 1 Suodatusmenetelmän käyttö osatoiminnon kanssa
Kuten sanoin, meillä on useita menetelmiä solujen laskemiseksi excel-solun värin perusteella. Tämä menetelmä käyttää Suodatin ja välisumma -toimintoa.
- Vaihe 1: Ensinnäkin meidän on sovellettava välisummafunktiota, joten avaa tietojen lopussa SUBTOTAL-funktio Excelissä.
- Vaihe 2: Kun olemme avaaneet SUBTOTAL-toiminnon, meille toimitetaan tämän alla oleva toimintoluettelo; koska laskemme soluja, valitse toiminto " 2 - LASKE ".
- Vaihe 3: Kun olet valinnut seuraavaksi välisumman menetelmän, meidän on valittava laskettava solualue.
- Vaihe 4: OK, nyt näiden solujen määrä on 7.
- Vaihe 5: Edellä mainituille tiedoille rakenne soveltaa suodatinvaihtoehtoa.
- Vaihe 6: Napsauta avattavaa suodatinluetteloa siirtyäksesi Suodata värin mukaan. Se näyttää kaikki suodattavat värit.
- Vaihe 7: Valitse jokin väreistä, ja meillä on nämä värilliset rivit.
- Vaihe 8: Kuten yllä voit nähdä, SUBTOTAL-funktiomme näyttää vain suodatettujen rivien määrän. Koska oranssilla värillä on vain kaksi riviä, SUBTOTAL-funktio näyttää vain kolmen; vastaavasti valitse toinen väri ja katso, toimiiko se täydellisesti vai ei.
Luku on 2, joten meillä on päivitetty tulos.
# 2 Luo toiminto VBA-koodauksella
Kuten sanoin teille, valitettavasti meillä ei ole sisäänrakennettua toimintoa, joka voi auttaa meitä laskemaan solut värien perusteella Excelissä. Olemme kertoneet, ettei sisäänrakennettua toimintoa ole, mutta kauneus on se, että voimme luoda oman toiminnon käyttämällä VBA-koodausta.
Alla on koodi, jonka olen jo kirjoittanut toiminnon luomiseksi solujen laskemiseksi värin perusteella.
Koodi:
Toiminto ColorCount (ColorCell As Range, DataRange As Range) Himmennä Data_Range As Range Dim Cell_Color As Long Cell_Color = ColorCell.Interior.ColorIndex jokaiselle Data_Range-alueelle DataRange Jos Data_Range.Interior.ColorIndex = Cell_Color Sitten ColorCount = ColorCount + 1 End If Next DataRange Toiminto
Sinun tarvitsee vain kopioida yllä oleva koodi ja liittää se VBA-moduuliin alla olevan kuvan mukaisesti.
Palaa nyt taulukkoon, jossa meillä on tietoja, ja luo kolme värillistä solua.
Laita yhtälömerkki ja avaa funktio, jonka olemme luoneet käyttämällä yllä olevaa koodia.
Ensimmäinen argumentti tällä toiminnolla on "meidän on valittava laskettava värisolu", joten tässä tapauksessa valitsen E2-solun.
Toinen argumentti on, millä solualueella meidän on laskettava valittu solun väri.
OK, se on kaikki mitä tarvitsemme tähän toimintoon. Sulje kiinnike ja paina Enter-näppäintä saadaksesi valitun soluvärin määrän.
Tee samalla tavalla myös muille värillisille soluille. Saamme seuraavan tuloksen.
Tämä tehdään käyttämällä VBA: n " Käyttäjän määrittelemää toimintoa", se selaa tarjotun solualueen läpi ja laskee lukumäärän solut, joilla on täsmälleen sama väri kuin annetulla soluvärillä.
Sitten se laskee yhteen kaikki sovitetut värisolut ja palauttaa tuloksen kyseisen värisolun lukumääränä.
Näin voimme laskea solut väreillä excel-muodossa. On myös muita menetelmiä, mutta ne ovat hieman monimutkaisia, joten mene helpompaan oppimisen alkaessa.
Muistettavaa täällä
- Funktio SUBTOTAL laskee vain näkyvät solut, joten suodattimen ollessa käytössä se laskee vain suodatetut värilliset solut.
- VBA-koodi on UDF-toiminnolle, koska sisäänrakennettuja toimintoja ei ole, joten meidän on luotava oma.
