Nižšie sa pozrieme na program v Excel VBA že prechádza celým prvým stĺpcom a vyfarbí všetky hodnoty, ktoré sú nižšie ako určitá hodnota.
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujte premennú s názvom i typu Long. Tu používame premennú typu Long, pretože dlhé premenné majú väčšiu kapacitu ako celočíselné premenné.
Dim i As Long
2. Ďalej pridajte riadok kódu, ktorý zmení farbu písma všetkých buniek v stĺpci A na čiernu.
Stĺpce (1) .Font.Color = vbBlack
3. Pridajte slučku.
Pre i = 1 do riadkov. Počítať
Ďalej i
Poznámka: hárky môžu mať v programe Excel 2007 alebo novšom až 1 048 576 riadkov. Bez ohľadu na to, akú verziu používate, vyššie uvedený riadok kódu prechádza všetkými riadkami.
4. Ďalej zafarbíme všetky hodnoty, ktoré sú nižšie ako hodnota zadaná do bunky D2. Prázdne bunky sa ignorujú. Do slučky pridajte nasledujúce riadky kódu.
Ak bunky (i, 1). Hodnota <rozsah ("D2"). Hodnota a nie je prázdne (bunky (i, 1). Hodnota) Potom
Bunky (i, 1). Font.Color = vbRed
Koniec Ak
Výsledok po kliknutí na príkazové tlačidlo na hárku (môže to chvíľu trvať):
