Tässä artikkelissa luomme mukautetun funktion laskemaan solujen lukumäärä alueella, jolla on määritellyt värit.
Tässä esimerkissä näytetiedot koostuvat alueesta, jonka arvot ovat välillä 100 ja 1000. Solujen arvot on korostettu eri väreillä. Haluamme löytää kunkin värin määrän.
Tietyn värin laskemiseksi olemme luoneet mukautetun funktion "CountByColor". Tämä toiminto ottaa syötteeksi kaksi alueparametria. Ensimmäinen alueparametri määrittää solun sisävärin ja toinen alueen parametri näytealueen.
Koodin selitys
Haihtuvaa käytetään, koska se laskee uudelleen aina, kun solun arvoa muutetaan työkirjassa.
DefinedColorRange.Interior.ColorIndex
Yllä olevaa koodia käytetään määritetyn alueen sisävärin saamiseen.
Seuraa koodia alla
Funktio CountByColor (DefinedColorRange As Range, CountRange As Range) Application.Holatile 'Declaring muuttujat Dim ICol kuten Integer Dim GCell As Range' Solun sisävärin saaminen ICol = DefinedColorRange.Interior.ColorIndex 'Silmukka kullekin GC: lle määritellyn alueen läpi CountRange Jos ICol = GCell.Interior.ColorIndex Sitten 'Vastaavien värillisten solujen määrän laskeminen CountByColor = CountByColor + 1 End If Next GCell End Function
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse