Satura rādītājs
Programmā Excel nav funkcijas, lai veiktu aprēķinus, pamatojoties uz šūnu krāsu. Bet, izmantojot Microsoft Visual Basic lietojumprogrammām (VBA) ir iespējams izveidot pielāgotas funkcijas aprēķiniem, pamatojoties uz šūnu krāsu. Šajā rakstā es parādīšu, kā varat izveidot un izmantot ColorFunction programmā Excel.
Pieņemsim, ka mums ir datu kopa par kāda uzņēmuma produktu pasūtījumiem. Slejā Pasūtījuma daudzums Piegādātie pasūtījumi ir iekrāsoti gaiši zaļā krāsā, bet pasūtījumi, kas ir piegādes procesā, ir iekrāsoti gaiši oranžā krāsā. Tagad mēs varam atrast to klientu skaitu, kuri ir vai nu saņēmuši, vai nav saņēmuši savus pasūtījumus, saskaitot tās pašas krāsainās šūnas. Kopējo piegādāto vai piegādājamo pasūtījumu daudzumu var atrast, saskaitot tās pašas krāsainās šūnas.
Lejupielādēt Practice Workbook
Krāsu funkcija programmā Excel.xlsmColorFunction programmā Excel
1. solis : Makro moduļa atvēršana VBA logā
Vispirms ir jāatver VBA logu, nospiežot ALT+F11. Pēc tam ar peles labo pogu noklikšķiniet uz lapas nosaukuma kreisajā panelī un dodieties uz Insert> Modulis
Rezultātā Modulis tiks atvērts lodziņš.
2. solis : VBA koda ievietošana ColorFunction izveidei
Ievietojiet šādu kodu Modulis un aizveriet VBA logs.
Funkcija 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 +vResult End If Next rCell End If ColorFunction = vResult End Function End Function 
Šeit VBA kods izveido pielāgotu funkciju ar nosaukumu ColorFunkcija kas saskaitīs krāsainas šūnas, ja mēs norādīsim argumentu kā FALSE un summēs krāsainās šūnas, ja argumentu norādīsim kā TRUE.
3. solis : Darba burtnīcas saglabāšana kā Excel darbgrāmata ar makroatļaujām
Excel darbgrāmata ir jāsaglabā .xlsm formātā, lai saglabātu savu pielāgoto funkciju. Vispirms dodieties uz Faili Excel loga augšējā kreisajā stūrī.
Pēc tam atlasiet Saglabāt kā.
Pēc tam atlasiet Excel darbgrāmata ar makroatļauju (*xlsm) un noklikšķiniet uz Saglabājiet.
4. solis : Izmantojot ColorFunction, lai saskaitītu krāsainas šūnas
Tagad varat izmantot pielāgotos KrāsaFunkcija.
Lai iegūtu gaiši zaļo šūnu skaitu, tukšā šūnā ievadiet šādu formulu,
=ColorFunction(F5,$D$5:$D$11,FALSE)
Šeit, F5 = Kritēriji šūna, kura krāsa tiks ieskaitīta
$D$5:$D$11 = Skaitīšanas diapazons
FALSE norāda, ka tiks skaitīts to šūnu skaits, kurām ir tāda pati krāsa kā kritērija šūnai.
Spiediet IEVADIET un iegūsiet gaiši zaļo šūnu skaitu.
Līdzīgā veidā var iegūt gaiši oranžu šūnu skaitu.
5. solis : Izmantojot ColorFunction, lai summētu krāsainas šūnas
Lai iegūtu gaiši zaļas krāsas šūnu summu, tukšā šūnā ievadiet šādu formulu,
=ColorFunction(F5,$D$5:$D$11,TRUE)
Šeit, F5 = Kritērijs šūna, kura krāsa tiks summēta
$D$5:$D$11 = Summas diapazons
TRUE norāda, ka tiks saskaitīts to šūnu skaits, kurām ir tāda pati krāsa kā kritērija šūnai.
jūs saņemsiet gaiši zaļo šūnu summu, nospiežot IESNIEGT.
Līdzīgā veidā var iegūt gaiši oranžu šūnu summu.
Alternatīvi veidi, kā saskaitīt un summēt krāsainas šūnas
Tā vietā, lai izmantotu KrāsaFunkcija, var iegūt krāsaino šūnu skaitu vai summēt krāsainās šūnas divos dažādos veidos.
1. Izmantojot FILTER un SUBTOTAL funkcijas
Krāsaino šūnu skaitu un summu varat iegūt, izmantojot Filtrs un funkcija SUBTOTAL .
Vispirms dodieties uz Dati cilni un noklikšķiniet uz Filtrs.
Pēc tam blakus katras kolonnas galvenei parādīsies lejupvērsta bultiņa. Noklikšķiniet uz lejupvērstās bultiņas blakus Pasūtījuma daudzums (Krāsaina sleja), dodieties uz Filtrēt pēc krāsas un izvēlieties gaiši zaļo krāsu.
Tagad šajā slejā redzēsiet tikai gaiši zaļas krāsas datus. Lai iegūtu skaitli, ievadiet šādu formulu,
= STARPSUMMA(2,D5:D11)
Šeit 2 norāda, ka šūna tiks skaitīta un D5:D11 ir datu diapazons.
Pēc nospiešanas IEVADIET jūs iegūsiet gaiši zaļas krāsas šūnu skaitu.
Lai iegūtu iekrāsoto šūnu summu, ievadiet šādu formulu,
= STARPSUMMA(9,D5:D11)
Šeit 9 norāda, ka šūna tiks saskaitīta un D5:D11 ir datu diapazons
Pēc nospiešanas IEVADIET iegūsiet gaiši zaļas krāsas šūnu summu.
Nomainot filtru uz gaiši oranžu krāsu, varat iegūt oranžas krāsas šūnu skaitu un summu.
2. Izmantojot GET.CELL funkciju
Izmantojot GET.CELL funkciju var arī saskaitīt un summēt krāsainās šūnas.
Vispirms dodieties uz Formulas cilni un izvēlieties Definēt nosaukumu.
A Jauns nosaukums tiks parādīts lodziņš. Ierakstiet nosaukumu, piemēram, Krāsa in the Nosaukums un Ievietojiet formulu Attiecas uz un nospiediet LABI.
=GET.CELL(38,'GET CELL'!$D5)
Šeit 38 norāda, ka formulā tiks sniegts norādītās šūnas krāsas kods un 'GET CELL'!$D5 ir norādītā šūna (pirmā šūna pēc krāsainās kolonnas nosaukuma).
Tagad ievadiet =Color (Vārds, ko iepriekš norādījāt Nosakiet nosaukumus lodziņā) blakus esošajā krāsainajā kolonnā.
Pēc nospiešanas IEVADIET un velkot šūnas E5 līdz datu kopas beigām, jūs iegūsiet visu jūsu kolonnas krāsaino šūnu krāsu kodus. E .
Tagad ievadiet šādu formulu, lai iegūtu gaiši zaļas krāsas šūnu skaitu
=COUNTIF($E$5:$E$11,50)
Šeit, $E$5:$E$11 ir skaitīšanas diapazons, un 50 ir gaiši zaļas krāsas kods.
Pēc nospiešanas Ievadiet jūs iegūsiet zaļi iekrāsoto šūnu skaitu.
Lai iegūtu gaiši zaļi iekrāsoto šūnu summu, ievadiet šādu formulu,
=SUMIF(E5:E11,50,D5:D11)
Šeit, E5:E11 ir kritēriju diapazons, 50 norāda gaiši zaļas krāsas kodu un D5:D11 ir summas diapazons.
Spiediet IEVADIET un iegūsiet visu zaļi iekrāsoto šūnu summu.
Līdzīgā veidā var iegūt gaiši oranžas krāsas šūnu skaitu un summu.
Secinājums
Es ceru, ka pēc iepazīšanās ar pantu tagad jūs varat izveidot un izmantot ColorFunction programmā Excel. Ja saskaraties ar kādu problēmu, lūdzu, atstājiet komentāru.
