Zemāk mēs apskatīsim programmu Excel VBA ka cilpas cauri visai pirmajai kolonnai un iekrāso visas vērtības, kas ir zemākas par noteiktu vērtību.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Vispirms deklarējiet Long tipa mainīgo ar nosaukumu i. Šeit mēs izmantojam Long tipa mainīgo, jo Long mainīgajiem ir lielāka ietilpība nekā veseliem skaitļiem.
Dim un tik ilgi
2. Pēc tam pievienojiet koda rindiņu, kas maina visu A slejas šūnu fontu krāsu uz melnu.
Kolonnas (1). Fonts. Krāsa = vb Melns
3. Pievienojiet cilpu.
Attiecībā uz i = 1 līdz rindām
Tālāk i
Piezīme: darblapās programmā Excel 2007 vai jaunākā versijā var būt līdz 1 048 576 rindām. Neatkarīgi no tā, kādu versiju izmantojat, koda līnija virs visām rindām ir cauri.
4. Tālāk mēs krāsojam visas vērtības, kas ir zemākas par šūnā D2 ievadīto vērtību. Tukšas šūnas tiek ignorētas. Pievienojiet cilpai šādas koda rindiņas.
Ja šūnas (i, 1). Vērtība <diapazons ("D2"). Vērtība un nav tukša (šūnas (i, 1). Vērtība)
Šūnas (i, 1). Fonts. Krāsa = vbSarkana
Beigas Ja
Rezultāts, noklikšķinot uz komandas pogas lapā (tas var aizņemt kādu laiku):
