Kā programmā Excel skaitīt šūnas ar krāsu?
Ir vairāki veidi, kā mēs varam skaitīt šūnas, pamatojoties uz Excel šūnas krāsu.
- 1. metode - skaita šūnas ar krāsu, izmantojot filtra metodi ar funkciju Kopējā summa
- 2. metode - skaita šūnas ar krāsu, izveidojot funkciju, izmantojot VBA kodu
Tagad sīki apspriedīsim katru no metodēm kopā ar piemēru -
# 1 Izmantojot filtra metodi ar funkciju Kopējā summa
Kā jau teicu, mums ir vairākas metodes šūnu skaitīšanai, pamatojoties uz Excel krāsas šūnas krāsu. Šī metode izmanto funkciju Filtrs un starpsumma.
- 1. solis: Pirmkārt, mums jāpielieto starpsummas funkcija, tāpēc datu beigās Excel programmā atveriet funkciju SUBTOTAL.
- 2. solis: Kad mēs atveram funkciju SUBTOTAL, zem tā mums tiek piegādāts funkciju saraksts; tā kā mēs skaitām šūnas, izvēlieties funkciju “ 2 - COUNT ”.
- 3. solis: Pēc nākamās starpsummas metodes izvēles mums jāizvēlas uzskaitāmo šūnu diapazons.
- 4. solis: Labi, tagad šo šūnu skaits būs 7.
- 5. darbība. Iepriekš minētajiem datiem struktūra izmanto filtrēšanas opciju.
- 6. darbība: noklikšķiniet uz nolaižamā filtru saraksta, lai pārietu uz “ Filtrēt pēc krāsas”. Tas parādīs visas filtrēšanai pieejamās krāsas.
- 7. solis: izvēlieties kādu no krāsām, un mums būs šīs krāsainās rindas.
- 8. solis: kā redzat iepriekš, mūsu funkcija SUBTOTAL rāda tikai filtrēto rindu skaitu. Tā kā ir tikai divas rindas, kas apzīmētas ar oranžu krāsu, funkcija SUBTOTAL parāda skaitli tikai kā trīs; līdzīgi izvēlieties citu krāsu un pārbaudiet, vai tā darbojas nevainojami.
Šis skaitlis ir 2, tāpēc mums ir atjaunināts rezultāts.
# 2 Izveidojiet funkciju, izmantojot VBA kodēšanu
Kā es jums teicu, diemžēl mums nav iebūvētas funkcijas, kas var palīdzēt mums skaitīt šūnas, pamatojoties uz krāsu Excel. Mēs esam teikuši, ka nav iebūvētas funkcijas, taču skaistums ir tas, ka mēs varam izveidot savu funkciju, izmantojot VBA kodēšanu.
Zemāk ir kods, kuru es jau esmu uzrakstījis, lai izveidotu funkciju šūnu skaitīšanai, pamatojoties uz krāsu.
Kods:
Funkcija ColorCount (ColorCell As Range, DataRange As Range) Dim Data_Range As Range Dim Cell_Color As Long Cell_Color = ColorCell.Interior.ColorIndex for katrs Data_Range DataRange If Data_Range.Interior.ColorIndex = Cell_Color Tad ColorCount = ColorCount + 1 Beigās, ja Nākamais Data_Range Funkcija
Viss, kas jums jādara, ir nokopēt iepriekš minēto kodu un ielīmēt to savā VBA modulī, kā parādīts zemāk.
Tagad atgriezieties pie darblapas, kur mums ir dati, un izveidojiet trīs šūnas ar krāsu.
Ievietojiet vienādības zīmi un atveriet funkciju, kuru esam izveidojuši, izmantojot iepriekš minēto kodu.
Pirmais arguments ar šo funkciju ir “mums jāizvēlas krāsu šūna, kas mums jāuzskaita”, tāpēc šajā gadījumā es izvēlēšos E2 šūnu.
Otrais arguments ir tas, kurā šūnu diapazonā mums jāuzskaita izvēlētā šūnu krāsa.
Labi, tas ir viss, kas mums nepieciešams šai funkcijai. Aizveriet kronšteinu un nospiediet taustiņu Enter, lai iegūtu izvēlētās šūnas krāsas skaitu.
Līdzīgi rīkojieties arī ar citām krāsainām šūnām. Mēs iegūstam šādu rezultātu.
Tas tiek darīts, izmantojot VBA “ User Defined Function”, tā cilpos cauri paredzētajam šūnu diapazonam un skaitīs šūnu skaitu, kurām ir tieši tāda pati krāsa kā norādītajai šūnu krāsai.
Tad tā summēs visas saskaņotās krāsu šūnas un atgriezīs rezultātu kā šīs krāsas šūnas skaitu.
Šādi mēs varam Excel skaitīt šūnas ar krāsām. Ir arī citas metodes, taču tās ir nedaudz sarežģītas, tāpēc mācīšanās sākumā izvēlieties vieglāko.
Šeit jāatceras lietas
- Funkcija SUBTOTAL skaita tikai šūnas, kuras ir redzamas, tāpēc, lietojot filtru, tiks skaitītas tikai tās filtrētās krāsainās šūnas.
- VBA kods ir paredzēts UDF funkcijai, jo tajā nav iebūvētu funkciju, tāpēc mums ir jāizveido savs.
