Tiettyyn soluväriin liittyvien solujen määrä VBA:n avulla

  • Artikkeli
  • Koskee seuraavia::
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Yhteenveto

Microsoft Excelin Kaavat-välilehdessä tiedämme, että Lisää funktioita>tilastollinen -luokassa on funktio nimeltä COUNTIF, joka laskee tietyn ehdon täyttävien solujen määrän alueella. Funktion ehdot on rajoitettu tekstiin tai lukuihin. VBA:n avulla voimme kuitenkin luoda funktion, jolla lasketaan muiden ehtojen, kuten solun värin, solujen määrä.

COUNTIF

Lisätietoja

VBA:n avulla voidaan luoda käyttäjän määrittämä funktio (UDF) ja tallentaa se apuohjelmatiedostoon, jotta sitä voidaan käyttää muissa työkirjoissa ja siirtää muihin tietokoneisiin.

UDF:n luominen

Seuraavassa on ohjeet UDF-kohteen luomiseen solujen värien laskemiseksi:

  1. Avaa Microsoft Excel ja näytä Visual Basic Editor (VBE) -ikkuna painamalla Alt+F11.

  2. Luo moduuli valitsemalla Lisää-valikostaModuuli . Kirjoita sitten seuraava komentosarja:

    Function CountCcolor(range_data As range, criteria As range) As Long     Dim datax As range     Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data     If datax.Interior.ColorIndex = xcolor Then         CountCcolor = CountCcolor + 1     End If Next datax End Function

    Luo moduuli valitsemalla Lisää-valikosta Moduuli. Kirjoita sitten seuraava komentosarja

  3. Palaa Exceliin sulkella VBE-ikkuna.

  4. Jotta voit testata UDF:ää, luo esimerkkitietoja, jotka sisältävät eri väreissä olevan solusarakkeen.

  5. Kirjoita funktio soluun D3:

=CountCcolor(range_data,criteria)

  • Valitse "range_data"-argumentissa solu C2 - C51.

  • Valitse ehtoargumentissa solu F1.

    Kirjoita soluun D3 funktio: =CountCcolor

  1. Paina Enter-näppäintä. Solun F2 tulos on 6. Tämä tarkoittaa, että sinisellä sävytettyjen solujen määrä on 6.

    Paina Enter-näppäintä ja solussa F2 tulos on 6. Se tarkoittaa, että sinisen solun väristen solujen määrä on 6 solua.

  2. Voit testata muilla väreillä. Muuta solun F1 väriä millä tahansa haluamallasi värillä käyttämällä aloitussivun>täyttöväriä.

    Voit myös testata toista väriä. Muuta solun F1 väriä millä tahansa haluamallasi värillä käyttämällä muotoilusivellintä saman värin saamiseksi

  3. Voit myös zipata UDF-tiedoston niin, että funktiota voidaan käyttää toisessa työkirjassa tai toisessa tietokoneessa. Voit tehdä sen seuraavasti:

    Vaihe 1: Työkirjan tallentaminen

    a. Valitse Tiedosto ja sitten Tallenna nimellä. ( Valitse Selaa tarvittaessa.)

    b. Valitse muotoiluksi Excel-Add-In (.xlam) ja anna tiedostolle nimi, kuten CountCcolor.

    Huomautus

    Voit tallentaa Add-In mihin tahansa haluamaasi tiedostoon. Mutta jos haluat, että se näkyy Add-In Excel-ohjelmassasi, tallenna se oletussijaintiin. Windows 7:ssä Microsoft Excelin kaikkien versioiden oletussijainti on: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Vaihe 2: Asenna apuohjelma

    a. Avaa Microsoft Excel tietokoneessa, johon haluat asentaa apuohjelman.

    b. Avaa Add-Ins -valintaikkuna valitsemalla Excel 2013:n ja sitä uudempien versioiden Excel-apuohjelmatKehittäjä-välilehdessä. (Excel 2010:n apuohjelmat.)

    c. Valitse Apuohjelmat-valintaikkunassaSelaa. Valitse Add-In-valintaikkunassa Selaa-painike, jolloin näkyviin tulee Selaa-valintaikkuna.

    d. Siirry tiedoston sijaintiin, johon Add-In tiedosto tallennetaan (kuten USB-asemaan tai pilvipohjaiseen kansioon). Valitse tiedosto ja valitse sitten Avaa.

    e. Varmista Add-Ins-valintaikkunassa, että apuohjelman valintaruutua ei ole valittu. Valitse sitten OK. Varmista Add-Ins-valintaikkunassa, että apuohjelman valintaruutua ei ole valittu. Valitse sitten OK.

Laske solun väri -UDF on asennettu ja valmis käytettäväksi. Voit käyttää tätä funktiota milloin tahansa sijoittamalla kohdistimen mihin tahansa laskentataulukon soluun ja kirjoittamalla:

=CountCcolor(range_data,criteria)

Yhteisöratkaisujen sisällön vastuuvapauslauseke

MICROSOFT CORPORATION JA/TAI SEN TOIMITTAJAT EIVÄT ESITÄ MITÄÄN TÄSSÄ OLEVIEN TIETOJEN JA NIIHIN LIITTYVIEN GRAFIIKOIDEN SOVELTUVUUDESTA, LUOTETTAVUUDESTA TAI TARKKUUDESTA. KAIKKI NÄMÄ TIEDOT JA NIIHIN LIITTYVÄT GRAFIIKAT TOIMITETAAN SELLAISENAAN ILMAN MINKÄÄNLAISTA TAKUUTA. MICROSOFT JA/TAI SEN TOIMITTAJAT EIVÄT VASTAA NÄISTÄ TIEDOISTA JA NIIHIN LIITTYVISTÄ GRAFIIKASTA, MUKAAN LUKIEN EPÄSUORAT TAKUUT JA MYYNTIKELPOISUUTTA, SOVELTUVUUTTA TIETTYYN TARKOITUKSEEN, TYÖNKALTAISTA TYÖTÄ, OMISTUSTA JA RIKKOMATTOMUUTTA KOSKEVAT TAKUUT. YOU SPECIFICALLY AGREE THAT IN ANY EVENTS SHALL MICROSOFT AND/OR ITS SUPPLIERS BE LIABLE FOR DIRECT, INDIRECT, PUNITIVE, INCIDENTAL, SPECIAL, CONSEQUENTIAL DAMAGES OR ANY ANY DAMAGES ANY DAMAGES INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF USE, DATA OR PROFITS, ARISING OF OR ANY WAY RELATED TO THE DATA AND INABILITY TO USE THE INFORMATION AND RELATED GRAPHICS CONTAINED HEREIN, RIIPPUMATTA SIITÄ, PERUSTUUKO SIIHEN SOPIMUS, TORT, NEGLIGENCE, STRICT LIABILITY TAI MUU, VAIKKA MICROSOFTILLE TAI SEN TOIMITTAJILLE OLISI ILMOITETTU VAHINKOJEN MAHDOLLISUUDESTA.