300 Piemēri

Atkārtojiet visu kolonnu

Loop Through Entire Column

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.





Apkārt visu kolonnu programmā Excel VBA

Apkārt visu kolonnu programmā Excel VBA





Novietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:

1. Vispirms deklarējiet mainīgo ar nosaukumu i tipa Long. Šeit mēs izmantojam Long tipa mainīgo, jo gariem mainīgajiem ir lielāka ietilpība nekā veseliem skaitļiem.



Navi 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 = vbMelna

3. Pievienojiet cilpu.

Excel pievienošanas formula vairākām šūnām
Priekši = 1UzRindas. Skaits

Nākamaisi

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 redzama.

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ībaUn IsEmpty (šūnas (i, 1). Vērtība)Tad
Šūnas (i, 1). Fonts. Krāsa = vbSarkana
Beigas Ja

Rezultāts, noklikšķinot uz komandas pogas lapā (tas var aizņemt kādu laiku):

Izsekojiet visu kolonnas rezultātu

Izsekojiet visu kolonnas rezultātu

3/11 Pabeigts! Uzziniet daudz vairāk par cilpām>
Doties uz nākamo nodaļu: Makro kļūdas



^