V tem članku bomo ustvarili funkcijo po meri za izračun vsote števil v celicah v območju z določeno barvo.
V tem primeru vzorčne podatke sestavljajo podatki prodajne ekipe. Podatki prodajne ekipe vsebujejo podrobnosti o številu prodanih artiklov. Vsebuje informacije o izdelku, ki je na voljo v treh barvah: sivi, rdeči in zeleni. Želimo poiskati vsoto prodanih artiklov glede na barvo izdelka.
Za izračun vsote po barvah smo ustvarili funkcijo po meri “SumByColor”. Ta funkcija vzame dva parametra obsega kot vhod. Prvi parameter območja določa notranjo barvo celice, drugi parameter območja pa območje vzorca.
Razlaga kode
Application.Volatile se uporablja, ker se bo znova izračunal vsakič, ko se v delovnem zvezku spremeni vrednost celice.
DefinedColorRange.Interior.ColorIndex
Zgornja koda se uporablja za pridobivanje notranje barve določenega območja.
Za kodo sledite spodaj
Možnost Eksplicitna funkcija SumByColor (DefinedColorRange As Range, SumRange As Range) Aplikacija. Hlapna 'Razglasitev spremenljivk Dim ICol kot celo število Dim GCell As Range' Dobivanje notranje barve celice ICol = DefinedColorRange.Interior.ColorIndex 'Prehod skozi definirano območje za vsak GCell V SumRange Če je ICol = GCell.Interior.ColorIndex Potem 'Pridobivanje vsote ujemajočih se barvnih celic SumByColor = SumByColor + GCell.Value End Če je naslednja funkcija GCell End
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte