Kā saskaitīt vai summēt šūnas ar noteiktu krāsu programmā Excel

Lejupielādēt darbgrāmatas piemēru

Lejupielādējiet darbgrāmatas piemēru

Šī apmācība parādīs, kā saskaitīt vai summēt noteiktas fona krāsas šūnas, izmantojot VBA.

Apsveriet šādu diapazonu programmā Excel.

Nav iebūvēta Excel funkcija, lai saskaitītu krāsainas šūnas. Tā vietā mums jāizveido lietotāja definēta funkcija, izmantojot VBA.

Šūnu skaitīšana - izveidojiet pielāgotu VBA funkciju

Noteiktas krāsas šūnu skaits, izmantojot VBA, ir jāizveido, lai izveidotu lietotāja definētu funkciju (UDF), kas iet cauri visām diapazona šūnām un noteiktu, vai katras šūnas fona krāsa atbilst jūsu fona krāsai. pārbauda un pēc tam izmanto šo funkciju Excel darblapā.

VBA mēs izveidojam funkciju, lai saskaitītu atlasītās šūnas.

12345678910111213141516

Funkcija CountCellsByColor (rng kā diapazons, ColorCell kā diapazons) kā dubultāDim dblCount As DoubleDim rngCell kā diapazons“Cilpa izdara katru diapazona šūnuPar katru rngCell In rng'pārbaudiet, vai interjera krāsa ir tāda pati kā jūsu atlasītā šūnaJa rngCell.Interior.Color = ColorCell.Interior.Color TadJa IsNumeric (rngCell.Value) = Patiess'palieliniet skaitu par 1, ja krāsa ir pareiza.dblCount = dblCount + 1Beigas JaBeigas JaNākamais'Atgrieziet vērtību programmā ExcelCountCellsByColor = dblCountBeigu funkcija

Pēc tam izmantojiet šo funkciju darblapā, lai atgrieztu vērtību.

1	= CountCellsByColor (B2: E10, G4)

1. Noklikšķiniet G4 oranžajā šūnā un noklikšķiniet uz Ievietot funkciju.

2. Izvēlieties Lietotājs definēts kā kategoriju un pēc tam atlasiet CountCellsByColor kā izmantotā funkcija.

3. Klikšķis labi.

4. Iezīmējiet diapazonu, kurā ir visas krāsainās šūnas.

5. Izvēlieties ColorCellun pēc tam noklikšķiniet uz labi.
   

Atkārtojiet procesu, lai saskaitītu šūnas ar zaļu fona krāsu.

1	= CountCellsByColor (B2: E10, G5)

Summas šūnas - izveidojiet pielāgotu VBA funkciju

Mēs izveidojam līdzīgu pielāgotu funkciju VBA, lai summētu noteiktas krāsas šūnu vērtības.

12345678910111213141516

Funkcija SumCellsByColor (rng kā diapazons, ColorCell kā diapazons) kā dubultāDim dblSum As DoubleDim rngCell kā diapazons“Cilpa izdara katru diapazona šūnuPar katru rngCell In rng'pārbaudiet, vai interjera krāsa ir tāda pati kā jūsu atlasītā šūnaJa rngCell.Interior.Color = ColorCell.Interior.Color TadJa IsNumeric (rngCell.Value) = Patiess"pievienojiet vērtību savam mainīgajam, ja krāsa ir pareizadblSum = dblSum + rngCell.ValueBeigas JaBeigas JaNākamais'Atgrieziet vērtību programmā ExcelSumCellsByColor = dblSumBeigu funkcija

Pēc tam mēs vēlreiz izmantotu šo funkciju darblapā, lai apkopotu nepieciešamās šūnas.

1	= SumCellsByColor (B2: E10, G7)