Šiame straipsnyje mes sukursime pasirinktinę funkciją, kad apskaičiuotume skaičių sumą ląstelėse, turinčiose apibrėžtą spalvą.
Šiame pavyzdyje duomenų pavyzdžius sudaro pardavimo komandos duomenys. Pardavimo komandos duomenys apima išsamią informaciją apie parduotų prekių skaičių. Jame yra informacija, susijusi su produktu, kuris yra trijų spalvų: pilka, raudona ir žalia. Norime rasti parduodamų prekių sumą pagal produkto spalvą.
Norėdami apskaičiuoti sumą pagal spalvą, sukūrėme pasirinktinę funkciją „SumByColor“. Į šią funkciją įeina dviejų diapazonų 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čiuos kiekvieną kartą, kai langelio vertė bus pakeista darbaknygėje.
DefinedColorRange.Interior.ColorIndex
Aukščiau pateiktas kodas naudojamas norint gauti apibrėžto diapazono interjero spalvą.
Sekite toliau pateiktą kodą
Parinktis Aiškioji funkcija „SumByColor“ („DefinedColorRange As Range“, „SumRange As Range“) Programa. Lakūs „Deklaruojantys kintamieji Dim ICol kaip sveikasis skaičius Dim GCell As Range“ Ląstelės vidinės spalvos gavimas ICol = DefinedColorRange.Interior.ColorIndex „GCell In SumRange“, jei ICol = GCell.Interior.ColorIndex Tada 'Atitinkančios spalvos langelio sumos gavimas SumByColor = SumByColor + GCell.Value End If Next GCell End Function
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