Spodaj si bomo ogledali program v Excel VBA ki obarva največjo vrednost a dinamični razpon .
Položaj:
Vsakič, ko dodamo številko in kliknemo ukazni gumb, želimo, da Excel VBA obarva največjo vrednost teh številk.
Postavite a ukazni gumb na delovnem listu in dodajte naslednje kodne vrstice:
1. Najprej razglasimo eno spremenljivko in dva predmeta Range. Ena spremenljivka tipa Double imenujemo največja. Objekte Range imenujemo rng in cell.
NobenanajvečAs Dvojno, rngAsDomet, celicaAsDomet2. Vrstico, ki spremeni barvo ozadja vseh celic, dodamo v 'Brez zapolnitve'.
Celice.Interior.ColorIndex = 03. Inicializiramo rng s številkami. Uporabljamo CurrentRegion premoženje za to. CurrentRegion je uporaben, če vnaprej ne poznamo natančnih meja obsega.
Nastavljenorng = Obseg ('A1'). CurrentRegion4. Inicializiramo največ z največjo vrednostjo številk. Za iskanje največje vrednosti uporabljamo funkcijo delovnega lista Max.
maximum = Delovni listFunction.Max (rng)5. Nazadnje obarvamo največjo vrednost. Za vsako naslednjo zanko uporabljamo For.
Za VsakcelicaVrngČecelica.Vrednost = največPotemcelica.Interior.ColorIndex = 22
Naslednjicelica
Opomba: namesto številke ColorIndex 22 (rdeča) lahko uporabite katero koli številko ColorIndex.
6. Dodajte številko.
kako narediti novo vrstico v celici v
Rezultat, ko kliknete ukazni gumb na listu:
Pojdi na naslednje poglavje: Spremenljivke