Šiame straipsnyje mes sukursime pasirinktinę funkciją, kad būtų galima suskaičiuoti ląstelių skaičių diapazone, turinčiame apibrėžtas spalvas.
Šiame pavyzdyje pavyzdinius duomenis sudaro diapazonas, kurio reikšmės svyruoja nuo 100 iki 1000. Ląstelių reikšmės paryškintos skirtingomis spalvomis. Mes norime rasti kiekvienos spalvos skaičių.
Norėdami apskaičiuoti konkrečios spalvos skaičių, sukūrėme pasirinktinę funkciją „CountByColor“. Į šią funkciją įvedami du diapazono parametrai. Pirmasis diapazono parametras apibrėžia langelio vidinę spalvą, o antrasis diapazono parametras - mėginio diapazoną.
Kodo paaiškinimas
Taikymas. Lakusis yra naudojamas, nes jis perskaičiuojamas kiekvieną kartą, kai langelio vertė keičiama darbaknygėje.
DefinedColorRange.Interior.ColorIndex
Aukščiau pateiktas kodas naudojamas norint gauti apibrėžto diapazono interjero spalvą.
Sekite toliau pateiktą kodą
Funkcija CountByColor (DefinedColorRange As Range, CountRange As Range) Taikymas. Lakieji „Deklaruojantys kintamieji Dim ICol As Integer Dim GCell As Range“ Ląstelės vidinės spalvos gavimas CountRange Jei ICol = GCell.Interior.ColorIndex Tada 'Atitinkamų spalvotų langelių skaičiaus gavimas CountByColor = CountByColor + 1 pabaiga, jei kita GCell pabaigos funkcija
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el