Excelissä ei ole funktiota, joka tekisi laskutoimituksia solujen värin perusteella. Mutta käyttämällä komentoa Microsoft Visual Basic for Applications (VBA) on mahdollista tehdä mukautettuja funktioita solujen väriin perustuvaa laskentaa varten. Tässä artikkelissa näytän, miten voit luoda ja käyttää ColorFunction-toimintoa Excelissä.

Oletetaan, että meillä on tietokokonaisuus yrityksen tuotetilauksista. Sarakkeen Tilaus Määrä Toimitetut tilaukset on väritetty vaaleanvihreällä ja toimituksessa olevat tilaukset vaaleanoranssilla. Nyt voimme selvittää niiden asiakkaiden määrän, jotka joko saivat tai eivät saaneet tilauksiaan, laskemalla samat värilliset solut. Toimitetun tai toimituksessa olevan tilauksen kokonaismäärä saadaan laskemalla samat värilliset solut yhteen.

Lataa harjoituskirja

ColorFunction Excelissä

Vaihe 1 : Makromoduulin avaaminen VBA-ikkunassa

Ensin sinun on avattava VBA ikkuna painamalla ALT+F11. Klikkaa sen jälkeen oikealla hiiren painikkeella arkin nimeä vasemmasta paneelista ja siirry kohtaan Insert> Moduuli

Tämän seurauksena Moduuli laatikko avataan.

Vaihe 2 : VBA-koodin lisääminen ColorFunctionin luomista varten

Aseta seuraava koodi kohtaan Moduuli laatikko ja sulje VBA ikkuna.

 Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range Dim lCol As Long Dim vResult lCol = rColor.Interior.ColorIndex If SUM = True Then For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = WorksheetFunction.SUM(rCell, vResult) End If Next rCell Else For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = 1 +vTulos End If Seuraava rCell End If ColorFunction = vTulos End Function End Function 

Tässä VBA-koodi luo mukautetun funktion nimeltä ColorFunction joka laskee värilliset solut, jos annamme argumentiksi FALSE ja laskee yhteen värilliset solut, jos annamme argumentin muodossa TOTTA.

Vaihe 3 : Työkirjan tallentaminen Excel-makrojen käyttöönotettavaksi työkirjaksi.

Sinun on tallennettava Excel-työkirja osoitteeseen .xlsm muodossa, jotta voit tallentaa mukautetun toimintosi. Mene ensin osoitteeseen Tiedosto Excel-ikkunan vasemmasta yläkulmasta.

Valitse sen jälkeen Tallenna nimellä.

Valitse sitten Excel-makroilla varustettu työkirja (*xlsm) ja klikkaa Tallenna.

Vaihe 4 : ColorFunctionin käyttäminen värillisten solujen laskemiseen

Nyt voit käyttää mukautettua VäriToiminto.

Jos haluat saada vaaleanvihreiden solujen lukumäärän, kirjoita seuraava kaava tyhjään soluun,

=ColorFunction(F5,$D$5:$D$11,FALSE)

Tässä, F5 = Kriteeri solu, jonka väri lasketaan.

$D$5:$D$11 = Laskenta-alue

FALSE osoittaa, että lasketaan niiden solujen lukumäärä, joilla on sama väri kuin kriteerisolulla.

Paina ENTER ja saat vaaleanvihreiden solujen lukumäärän.

Vastaavalla tavalla saat vaaleanoranssien solujen lukumäärän.

Vaihe 5 : ColorFunctionin käyttäminen värillisten solujen summaamiseen

Jos haluat saada vaaleanvihreiden solujen summan, kirjoita seuraava kaava tyhjään soluun,

=ColorFunction(F5,$D$5:$D$11,TRUE)

Tässä, F5 = Peruste solu, jonka väri lasketaan yhteen.

$D$5:$D$11 = Summan vaihteluväli

TRUE tarkoittaa, että niiden solujen lukumäärä, joilla on sama väri kuin kriteerisolulla, lasketaan yhteen.

saat vaaleanvihreiden solujen summan painamalla painiketta ENTER.

Vastaavalla tavalla saat vaaleanoranssien solujen summan.

Vaihtoehtoisia tapoja laskea ja laskea yhteen värillinen solu

Sen sijaan, että käytät VäriToiminto, voit saada värillisten solujen lukumäärän tai laskea värillisten solujen summan kahdella eri tavalla.

1. FILTER- ja SUBTOTAL-toimintojen käyttäminen

Voit saada värillisten solujen lukumäärän ja summan käyttämällä komentoa Suodatin ja SUBTOTAL-toiminto .

Mene ensin osoitteeseen Tiedot välilehti ja klikkaa Suodatin.

Sen jälkeen jokaisen sarakeotsikon viereen ilmestyy alaspäin osoittava nuoli. Napsauta alaspäin osoittavaa nuolta sarakeotsikon vieressä olevan Tilaus Määrä (Värillinen sarake), siirry osoitteeseen Suodata värin mukaan ja valitse vaaleanvihreä väri.

Nyt näet tässä sarakkeessa vain vaaleanvihreää dataa. Laskennan saamiseksi kirjoita seuraava kaava,

=SUBTOTAL(2,D5:D11)

Tässä 2 osoittaa, että solu lasketaan ja D5:D11 on tietojen vaihteluväli.

Kun olet painanut ENTER saat vaaleanvihreiden solujen lukumäärän.

Saat värillisten solujen summan kirjoittamalla seuraavan kaavan,

=SUBTOTAL(9,D5:D11)

Tässä 9 tarkoittaa, että solu lasketaan yhteen ja D5:D11 on tietojen vaihteluväli

Kun olet painanut ENTER saat vaaleanvihreiden solujen summan.

Vaihtamalla suodattimen vaalean oranssiin väriin saat oranssin väristen solujen lukumäärän ja summan.

2. GET.CELL-toiminnon käyttäminen

Käyttämällä GET.CELL toiminnolla voit myös laskea ja laskea yhteen värilliset solut.

Mene ensin osoitteeseen Kaavat välilehti ja valitse Määrittele nimi.

A Uusi nimi Kirjoita nimi, kuten Väri vuonna Nimi Box. ja Aseta kaava kohtaan Viittaa ruutuun ja paina SELVÄ.

=GET.CELL(38,'GET CELL'!$D5)

Tässä 38 tarkoittaa, että kaava antaa viitattujen solujen värikoodin ja 'GET CELL'!$D5 on viitattu solu (ensimmäinen solu värillisen sarakkeen sarakeotsikon jälkeen).

Kirjoita nyt =Color (Nimi, jonka annoit aiemmin Määrittele nimet laatikko) värillisen sarakkeen viereisessä sarakkeessa.

Kun olet painanut ENTER ja vetämällä solua E5 tietokokonaisuutesi loppuun, saat kaikkien sarakkeen värillisten solujen värikoodit. E .

Kirjoita nyt seuraava kaava saadaksesi vaaleanvihreiden solujen lukumäärän.

=COUNTIF($E$5:$E$11,50)

Tässä, $E$5:$E$11 on laskenta-alue ja 50 on vaaleanvihreä värikoodi.

Kun olet painanut Kirjoita saat vihreiden solujen lukumäärän.

Kirjoita seuraava kaava saadaksesi vaaleanvihreiden solujen summan,

=SUMIF(E5:E11,50,D5:D11)

Tässä, E5:E11 on kriteerien vaihteluväli, 50 tarkoittaa vaaleanvihreää värikoodia, ja D5:D11 on summa-alue.

Paina ENTER ja saat kaikkien vihreiden solujen summan.

Vastaavalla tavalla voit saada vaalean oranssin väristen solujen lukumäärän ja summan.

Päätelmä

Toivottavasti artikkelin läpikäymisen jälkeen voit nyt luoda ja käyttää ColorFunctionia Excelissä. Jos kohtaat ongelmia, jätä kommentti.