Žemiau apžvelgsime programą Excel VBA kad kilpos per visą pirmąjį stulpelį ir nuspalvina visas reikšmes, kurios yra mažesnės už tam tikrą vertę.
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirmiausia deklaruokite Long tipo kintamąjį, vadinamą i. Čia naudojame „Long“ tipo kintamąjį, nes „Long“ kintamųjų talpa didesnė nei „Integer“ kintamųjų.
Tamsiai ilgas
2. Tada pridėkite kodo eilutę, kuri pakeičia visų A stulpelio langelių šrifto spalvą į juodą.
Stulpeliai (1). Šriftas. Spalva = vb Juoda
3. Pridėkite kilpą.
I = 1 iki eilučių
Kitas I.
Pastaba: darbalapiuose gali būti iki 1 048 576 eilučių „Excel 2007“ ar naujesnėje versijoje. Nesvarbu, kokią versiją naudojate, aukščiau esanti kodo eilutė eina per visas eilutes.
4. Toliau nuspalviname visas reikšmes, kurios yra mažesnės už D2 langelyje įvestą reikšmę. Tuščios ląstelės ignoruojamos. Prie kilpos pridėkite šias kodo eilutes.
Jei langeliai (i, 1) .Vertybė <Diapazonas ("D2"). Vertė ir nėra tuščia (langeliai (i, 1) .Vertė) Tada
Ląstelės (i, 1). Šriftas. Spalva = vbRed
Pabaiga Jei
Rezultatas, kai lape spustelėsite komandų mygtuką (tai gali užtrukti):
