V Excelu ni funkcije za izvajanje izračunov na podlagi barve celic. Microsoftov Visual Basic za aplikacije (VBA) je mogoče izdelati funkcije po meri za izračun na podlagi barve celic. V tem članku vam bom pokazal, kako lahko ustvarite in uporabite funkcijo ColorFunction v Excelu.

Recimo, da imamo nabor podatkov o naročilu izdelkov v podjetju. Stolpec Količina naročila dostavljena naročila so obarvana svetlo zeleno, naročila, ki so v dostavi, pa svetlo oranžno. zdaj lahko ugotovimo število strank, ki so prejela ali niso prejela naročila, tako da preštejemo enako obarvane celice. skupno količino dostavljenih naročil ali naročil v dostavi lahko ugotovimo s seštevanjem enako obarvanih celic.

Prenesi delovni zvezek za prakso

Funkcija ColorFunction v programu Excel

Korak 1 : Odpiranje makro modula v oknu VBA

Najprej morate odpreti VBA okno s pritiskom na ALT+F11. Nato desno kliknite na ime lista na levi plošči in pojdite na Insert> Modul

Zaradi tega je Modul polje se odpre.

Korak 2 : Vstavljanje kode VBA za ustvarjanje funkcije ColorFunction

Vnesite naslednjo kodo v Modul in zaprite polje VBA okno.

 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 

Tukaj koda VBA ustvari funkcijo po meri z imenom BarvaFunkcija ki bo štel obarvane celice, če argument podamo kot FALSE in sešteje obarvane celice, če navedemo argument kot PRAVDA.

Korak 3 : Shranjevanje delovnega zvezka kot Delovni zvezek z omogočenim Excelovim makrom

Delovni zvezek programa Excel morate shraniti v .xlsm shranite svojo funkcijo po meri. Najprej pojdite v Datoteka v zgornjem levem kotu okna programa Excel.

Nato izberite Shrani kot.

Nato izberite Delovni zvezek Excel s podporo za makre (*xlsm) in kliknite na Shranite.

Korak 4 : Uporaba funkcije ColorFunction za štetje barvnih celic

Zdaj lahko uporabite svoj BarvaFunkcija.

Če želite pridobiti število svetlo zelenih celic, v prazno celico vnesite naslednjo formulo,

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

Tukaj, F5 = Kriterij celica, ki bo barva šteje

$D$5:$D$11 = Območje za štetje

FALSE označuje, da se šteje število celic, ki imajo enako barvo kot celica merila.

Pritisnite VSTOP in dobili boste število svetlo zelenih celic.

Na podoben način lahko dobite število svetlo oranžnih celic.

Korak 5 : Uporaba funkcije ColorFunction za seštevanje obarvanih celic

Če želite dobiti vsoto celic svetlo zelene barve, v prazno celico vnesite naslednjo formulo,

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

Tukaj, F5 = Kriterij celica, ki bo barva sešteje

$D$5:$D$11 = Območje za vsoto

TRUE pomeni, da se sešteje število celic, ki imajo enako barvo kot celica merila.

boste dobili vsoto svetlo zelenih celic, če pritisnete VSTOP.

Na podoben način lahko dobite vsoto svetlo oranžnih celic.

Alternativni načini štetja in seštevanja barvnih celic

Namesto uporabe BarvaFunkcija, lahko dobite število obarvanih celic ali seštejete obarvane celice na dva različna načina.

1. Uporaba funkcij FILTER in SUBTOTAL

Število in vsoto obarvanih celic lahko dobite z uporabo Filter in . funkcija SUBTOTAL .

Najprej pojdite v Podatki in kliknite na zavihek Filter.

Po tem se bo ob naslovu vsakega stolpca pojavila puščica navzdol. Kliknite puščico navzdol ob naslovu stolpca. Količina naročila (Obarvan stolpec), pojdite na Filtriranje po barvi in izberite svetlo zeleno barvo.

Zdaj boste v tem stolpcu videli le svetlo zeleno obarvane podatke. Za pridobitev števila vnesite naslednjo formulo,

=SUBTOTAL(2,D5:D11)

Tukaj 2 označuje, da se celica šteje, in D5:D11 je obseg podatkov.

Po pritisku na VSTOP boste dobili število celic svetlo zelene barve.

Če želite dobiti vsoto obarvanih celic, vnesite naslednjo formulo,

=SUBTOTAL(9,D5:D11)

Tukaj 9 označuje, da se celica sešteje, in D5:D11 je obseg podatkov

Po pritisku na VSTOP boste dobili vsoto celic svetlo zelene barve.

Če filter spremenite v svetlo oranžno barvo, lahko dobite število in vsoto oranžno obarvanih celic.

2. Uporaba funkcije GET.CELL

Z uporabo GET.CELL lahko barvne celice tudi preštejete in seštejete.

Najprej pojdite v Formule in izberite zavihek Define Name.

A Novo ime Prikaže se polje. Vnesite ime, kot je Barva v Ime in vstavite formulo v polje Nanaša se na in pritisnite V REDU.

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

Tukaj 38 pomeni, da bo formula podala barvno kodo omenjene celice, in 'GET CELL'!$D5 je referenčna celica (prva celica za glavo stolpca v obarvanem stolpcu)

Zdaj vnesite =Color (Ime, ki ste ga navedli v Opredelitev imen ) v sosednjem stolpcu vašega obarvanega stolpca.

Po pritisku na VSTOP in vlečenje celice E5 na konec podatkovnega niza, boste dobili barvne kode vseh obarvanih celic stolpca E .

Zdaj vnesite naslednjo formulo, da dobite število celic svetlo zelene barve

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

Tukaj, $E$5:$E$11 je območje za štetje, 50 pa je barvna koda svetlo zelene barve.

Po pritisku na Vnesite boste dobili število zeleno obarvanih celic.

Vnesite naslednjo formulo, da dobite vsoto svetlo zeleno obarvanih celic,

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

Tukaj, E5:E11 je razpon meril, 50 označuje barvno kodo svetlo zelene in D5:D11 je razpon vsote.

Pritisnite VSTOP in dobili boste vsoto vseh zeleno obarvanih celic.

Na podoben način lahko dobite število in vsoto svetlo oranžno obarvanih celic.

Zaključek

Upam, da lahko po pregledu članka zdaj ustvarite in uporabite funkcijo ColorFunction v Excel-u. Če se soočite s kakršno koli težavo, pustite komentar.