Selles artiklis loome kohandatud funktsiooni määratletud värvidega vahemiku lahtrite arvu loendamiseks.
Selle näite puhul koosneb näidisandmed vahemikust, mille väärtused on vahemikus 100 kuni 1000. Lahtrite väärtused on esile tõstetud erinevate värvidega. Soovime leida iga värvi arvu.
Konkreetse värvi arvu arvutamiseks oleme loonud kohandatud funktsiooni “CountByColor”. Selle funktsiooni sisendiks on kaks vahemiku parameetrit. Esimene vahemiku parameeter määrab lahtri sisemise värvi ja teine vahemiku parameeter määrab proovide vahemiku.
Koodi selgitus
Rakendus. Lenduvat kasutatakse, kuna 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
Funktsioon CountByColor (DefinedColorRange As Range, CountRange As Range) Rakendus. Lenduvad muutujad deklareerivad Dim ICol täisarvuna Dim GCell As Range 'Lahtri sisemise värvi saamine ICol = DefinedColorRange.Interior.ColorIndex CountRange Kui ICol = GCell.Interior.ColorIndex Siis 'Sobivate värviliste lahtrite arvu lugemine CountByColor = CountByColor + 1 End If Next GCelli lõppfunktsioon
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
