Tässä artikkelissa luomme mukautetun funktion, joka laskee lukujen summan soluilla, joilla on määritetty väri.
Tässä esimerkissä mallitiedot koostuvat myyntitiimin tiedoista. Myyntitiimin tiedot sisältävät tietoja myytyjen tuotteiden määrästä. Se sisältää tietoja tuotteesta, joka on saatavana kolmessa värissä: harmaa, punainen ja vihreä. Haluamme löytää myydyn tuotteen summan tuotteen värin mukaan.
Summan laskemiseksi värin mukaan olemme luoneet mukautetun toiminnon “SumByColor”. Tämä toiminto ottaa tuloksi kaksi alueparametria. Ensimmäinen alueparametri määrittää solun sisävärin ja toinen alueparametri näytealueen.
Koodin selitys
Haihtuvaa käytetään, koska se laskee uudelleen aina, kun solun arvo muutetaan työkirjassa.
DefinedColorRange.Interior.ColorIndex
Yllä olevaa koodia käytetään määritetyn alueen sisävärin saamiseen.
Seuraa koodia alla
Vaihtoehto Explicit Function SumByColor (DefinedColorRange As Range, SumRange As Range) Application.Haihtuvat 'Ilmoittavat muuttujat Dim ICol kokonaislukuna Dim GCell As Range' Solun sisävärin saaminen ICol = DefinedColorRange.Interior.ColorIndex 'Silmukka kullekin määritetylle alueelle GCell In SumRange Jos ICol = GCell.Interior.ColorIndex Sitten 'Vastaavan värisen solun summan saaminen SumByColor = SumByColor + GCell.Value 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