Selles artiklis loome kohandatud funktsiooni määratletud värviga vahemiku lahtrite arvude arvutamiseks.
Selles näites koosnevad näidisandmed müügimeeskonna andmetest. Müügimeeskonna andmed sisaldavad üksikasju müüdud kaupade arvu kohta. See sisaldab teavet toote kohta, mis on saadaval kolmes värvitoonis: hall, punane ja roheline. Soovime leida müüdud kauba summa toote värvi järgi.
Summa arvutamiseks värvi järgi oleme loonud kohandatud funktsiooni “SumByColor”. See funktsioon võtab sisendiks kahe vahemiku parameetri. Esimene vahemiku parameeter määrab lahtri sisemise värvi ja teine vahemiku parameeter määrab proovi vahemiku.
Koodi selgitus
Rakendus. Lenduvat kasutatakse seetõttu, et see arvutab iga kord ümber lahtri väärtuse muutmise töövihikus.
DefinedColorRange.Interior.ColorIndex
Ülaltoodud koodi kasutatakse määratletud vahemiku sisemise värvi saamiseks.
Palun järgige koodi allpool
Valik Selgesõnaline funktsioon SumByColor (DefinedColorRange As Range, SumRange As Range) Rakendus. Lenduvad muutujate deklareerijad Dim ICol täisarvuna Dim GCell As Range 'Lahtri sisemise värvi saamine ICol = DefinedColorRange.Interior.ColorIndex' Silmastik GCell In SumRange Kui ICol = GCell.Interior.ColorIndex Siis 'Sobiva värvilise lahtri summa saamine SumByColor = SumByColor + GCell.Value End If Next GCell End Function
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile