Excelis ei ole funktsiooni, mis võimaldaks teha arvutusi lahtrite värvuse põhjal. Kuid kasutades Microsoft Visual Basic for Applications (VBA) on võimalik teha kohandatud funktsioone arvutuste tegemiseks lahtrite värvi alusel. Selles artiklis näitan teile, kuidas saate luua ja kasutada ColorFunction'i Excelis.

Oletame, et meil on andmekogum ettevõtte tootetellimuse kohta. Veerg Tellimuse kogus on värvitud vastavalt nende tarnestatusele. Väljaantud tellimused on värvitud helerohelisega ja tellimused, mis on tarnejärgus, on värvitud helerohelisega. Nüüd saame leida nende klientide arvu, kes kas said või ei saanud oma tellimusi, lugedes samu värvilisi lahtreid. Väljaantud või tarnejärgus olevate tellimuste üldkoguse saab leida samade värviliste lahtrite summeerimisel.

Lae alla praktiline töövihik

ColorFunction Excelis

1. samm : Makromooduli avamine VBA aknas

Kõigepealt tuleb avada VBA aknas, vajutades ALT+F11. Pärast seda klõpsake vasakpoolsel paneelil lehe nimele paremal ja valige Insert> Moodul

Selle tulemusena on Moodul kast avatakse.

2. samm : VBA-koodi sisestamine ColorFunctioni loomiseks

Sisestage järgmine kood, mis asub Moodul kasti ja sulgege VBA aken.

 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 +vTulemus End If Järgmine rCell End If ColorFunction = vTulemus End Function 

Siin VBA kood loob kohandatud funktsiooni nimega ColorFunction mis loeb värvilisi lahtreid, kui me anname argumendi kui VALE ja võtab värvilised lahtrid kokku, kui anname argumendi kujul TÕENE.

3. samm : Töövihiku salvestamine Exceli makrotoimingutega töövihikuna

Exceli töövihik tuleb salvestada aadressil .xlsm formaadis oma kohandatud funktsiooni salvestamiseks. Kõigepealt minge aadressile Faili Exceli akna vasakust ülemisest nurgast.

Pärast seda valige Salvesta kui.

Seejärel valige Exceli makrofunktsiooniga töövihik (*xlsm) ja klõpsake Salvesta.

4. samm : ColorFunctioni kasutamine värviliste lahtrite loendamiseks

Nüüd saate kasutada oma kohandatud Värvifunktsioon.

Heleroheliste lahtrite arvu saamiseks sisestage tühja lahtrisse järgmine valem,

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

Siin, F5 = Kriteeriumi lahter, mille värvi arvestatakse

$D$5:$D$11 = vahemik loendamiseks

VALE näitab, et loendatakse nende lahtrite arvu, millel on sama värvus kui kriteeriumi lahtril.

Press SISESTA ja saate heleroheliste rakkude arvu.

Samamoodi saate heleroosa rakkude arvu.

5. samm : ColorFunctioni kasutamine värviliste lahtrite summeerimiseks

Helerohelist värvi lahtrite summa saamiseks sisestage tühja lahtrisse järgmine valem,

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

Siin, F5 = Kriteeriumi lahter, mille värvi summeeritakse.

$D$5:$D$11 = Summa vahemik

TÕELINE näitab, et kriteeriumi lahtriga sama värvi lahtrite arv liidetakse kokku.

saate heleroheliste lahtrite summa, kui vajutate SISESTAGE.

Samamoodi saate heleroosa lahtrite summa.

Alternatiivsed viisid värviliste rakkude loendamiseks ja summeerimiseks

Selle asemel, et kasutada Värvifunktsioon, saate värviliste lahtrite arvu või värviliste lahtrite summa kahel erineval viisil.

1. Funktsioonide FILTER ja SUBTOTAL kasutamine

Värviliste lahtrite arvu ja summa saad kätte, kui kasutad funktsiooni Filter ja funktsioon SUBTOTAL .

Kõigepealt minge Andmed vahekaart ja klõpsa Filter.

Pärast seda ilmub allapoole suunatud nool iga veeru päise kõrvale. Klõpsake allapoole suunatud noolt kõrval oleva Tellimuse kogus (Värviline veerg), minge aadressile Filtreeri värvi järgi ja valige heleroheline värv.

Nüüd näete selles veerus ainult helerohelist värvi andmeid. Loenduse saamiseks sisestage järgmine valem,

=SUBTIIMSUMMA(2,D5:D11)

Siin 2 näitab, et lahtrit loendatakse ja D5:D11 on andmete vahemik.

Pärast vajutamist SISESTA saate helerohelist värvi rakkude arvu.

Värviliste lahtrite summa saamiseks sisestage järgmine valem,

=SUBTOTAL(9,D5:D11)

Siin 9 näitab, et lahter liidetakse kokku ja D5:D11 on andmete vahemik

Pärast vajutamist SISESTA saate helerohelist värvi lahtrite summa.

Muutes filtri heleroosa värviks, saate oranži värvi lahtrite arvu ja summa.

2. Funktsiooni GET.CELL kasutamine

Kasutades GET.CELL funktsiooniga saab ka värvilisi lahtreid loendada ja summeerida.

Kõigepealt minge Valemid vahekaart ja valige Määratleda nimi.

A Uus nimi ilmub kast. Sisestage nimi, näiteks Värv aastal Nimi Box. ja Sisestage valemiga Viitab kasti ja vajutage OKEI.

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

Siin 38 näitab, et valem annab viidatud lahtri värvikoodi ja 'GET CELL'!$D5 on viidatud lahter (esimene lahter pärast värvilise veeru päise lahtrit).

Nüüd sisestage =Color (Nimi, mille olete eelnevalt andnud Määrake nimed kast) kõrvalolevasse värvilise veeru veergu.

Pärast vajutamist SISESTA ja lohistades lahtrit E5 oma andmestiku lõppu, saate kõigi oma veeru värviliste lahtrite värvikoodid. E .

Nüüd sisestage järgmine valem, et saada helerohelist värvi lahtrite arv

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

Siin, $E$5:$E$11 on loenduse vahemik ja 50 on heleroheline värvikood.

Pärast vajutamist Sisesta saate roheliste värviliste lahtrite arvu.

Kirjutage järgmine valem, et saada helerohelist värvi lahtrite summa,

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

Siin, E5:E11 on kriteeriumide vahemik, 50 tähistab helerohelist värvikoodi ja D5:D11 on summa vahemik.

Press SISESTA ja saad kõigi roheliste värviliste lahtrite summa.

Samamoodi saate heleroosa värvi lahtrite arvu ja summa.

Kokkuvõte

Ma loodan, et pärast artikli läbimist saate nüüd luua ja kasutada ColorFunction'i Excelis. Kui teil tekib mõni probleem, palun jätke kommentaar.