Allpool vaatame programmi Exceli VBA seda silmused läbi kogu esimese veeru ja värvib kõik väärtused, mis on teatud väärtusest madalamad.
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
1. Esiteks deklareerige muutuja nimega i tüüpi Long. Kasutame siin Long tüüpi muutujat, kuna pikkade muutujate võimsus on suurem kui täisarvulistel muutujatel.
Dim i As Long
2. Seejärel lisage koodirida, mis muudab veeru A kõigi lahtrite fondivärvi mustaks.
Veerud (1). Font.Värv = vbMusta
3. Lisage silmus.
I = 1 ridadele. Loend
Edasi i
Märkus. Töölehtedel võib Excel 2007 või uuemas versioonis olla kuni 1 048 576 rida. Olenemata sellest, millist versiooni kasutate, liigub ülaltoodud koodirida läbi kõigi ridade.
4. Järgmisena värvime kõik väärtused, mis on lahtrisse D2 sisestatud väärtusest madalamad. Tühje lahtreid ignoreeritakse. Lisage silmusesse järgmised koodiridad.
Kui lahtrid (i, 1) .Väärtus <Vahemik ("D2"). Väärtus ja ei ole tühi (Lahtrid (i, 1) .Väärtus) Siis
Lahtrid (i, 1). Font.Värv = vbRed
Lõpp Kui
Tulemus, kui klõpsate lehel käsunuppu (see võib veidi aega võtta):
