Az alábbiakban megnézzük a programot Excel VBA hogy végigmegy a teljes első oszlopon és kiszínez minden értéket, amely alacsonyabb egy bizonyos értéknél.
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először deklarálja a Long típusú i nevű változót. Itt Long típusú változót használunk, mert a Long változók nagyobb kapacitással rendelkeznek, mint az Integer változók.
Dim i As Long
2. Ezután adja hozzá azt a kód sort, amely az A oszlop összes cellájának betűszínét feketére változtatja.
Oszlopok (1). Betűtípus.Szín = vbFekete
3. Adja hozzá a hurkot.
I = 1 sorokhoz
Következő i
Megjegyzés: az Excel 2007 vagy újabb verzióban a munkalapok legfeljebb 1 048 576 sort tartalmazhatnak. Függetlenül attól, hogy melyik verziót használja, a fenti kódsor minden sorban végigmegy.
4. Ezután színezzük ki az összes olyan értéket, amely alacsonyabb, mint a D2 cellába beírt érték. Az üres cellákat figyelmen kívül hagyja. Adja hozzá a következő kódsorokat a hurokhoz.
Ha cellák (i, 1) .Érték <Tartomány ("D2"). Érték és nem IsEmpty (Cellak (i, 1) .Érték) Akkor
Sejtek (i, 1). Betűtípus.Szín = vbRed
Vége Ha
Eredmény, ha rákattint a parancsikonra a lapon (ez eltarthat egy ideig):