U nastavku ćemo pogledati program u Excel VBA koja boji najveću vrijednost a dinamički raspon.
Situacija:
Svaki put kad dodamo broj i pritisnemo naredbeni gumb, želimo da Excel VBA oboji najveću vrijednost ovih brojeva.
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, deklariramo jednu varijablu i dva Range objekta. Jednu varijablu tipa Double nazivamo maksimum. Objekte Range nazivamo rng i cell.
Maksimalno priguši kao dvostruko, rng kao raspon, ćelija kao raspon
2. Dodajemo redak koji mijenja boju pozadine svih ćelija u "Bez ispune".
Ćelije.Interijer.Indeks boje = 0
3. Pokrećemo rng s brojevima. Za to koristimo svojstvo CurrentRegion. CurrentRegion je koristan ako unaprijed ne znamo točne granice raspona.
Postavite rng = Raspon ("A1"). CurrentRegion
4. Pokrećemo maksimum s najvećom vrijednošću brojeva. Koristimo funkciju radnog lista Max za pronalaženje maksimalne vrijednosti.
maximum = Radni listFunction.Max (rng)
5. Na kraju, bojimo maksimalnu vrijednost. Koristimo For Every Next Loop.
Za svaku ćeliju U rng
Ako je ćelija.Vrijednost = maksimalno Zatim ćelija.Interijer.Indeks boje = 22
Sljedeća ćelija
Napomena: umjesto ColorIndex broja 22 (crveno), možete koristiti bilo koji ColorIndex broj.
6. Dodajte broj.
Rezultat kada pritisnete naredbeni gumb na listu: