300 Piemēri

Izveidojiet modeli

Create Pattern

Zemāk mēs apskatīsim programmu Excel VBA ka izveido modeli .



Situācija:

Izveidojiet modeli programmā Excel VBA





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

1. Pirmkārt, mēs deklarējam divus Integer tipa mainīgos. Viens nosaukts i un viens ar nosaukumu j.



Navi Vesels skaitlis, j Vesels skaitlis

2. Otrkārt, mēs pievienojam divas For Next cilpas.

Priekši = 1Uz5Solis2
Priekšj = 1Uz5Solis2

3. Tālāk mēs pievienojam līniju, kas maina šūnu fona krāsu uz gaiši pelēku.

kā atlasīt tikai redzamās šūnas
Šūnas (i, j). Interjers. Krāsu indekss = 15

Piezīme. ColorIndex numura 15 (gaiši pelēks) vietā varat izmantot jebkuru ColorIndex numuru.

4. Aizveriet divas cilnes Nākamās cilpas.

Nākamaisj
Nākamaisi

5. Pārbaudiet programmu.

Rezultāts līdz šim.

Izveidojiet modeļa rezultātu līdz šim

Piemēram, ja i = 1 un j = 1, Excel VBA krāso šūnas (1,1), i = 1 un j = 3 ( Solis 2), Excel VBA krāsu šūnas (1,3), ja i = 1 un j = 5, Excel VBA krāsas šūnas (1,5), ja i = 3 (2. darbība) un j = 1, Excel VBA krāsas šūnas ( 3,1) utt.

6. Mēs esam gandrīz tur. Vienīgais, kas mums jādara, ir iekrāsot esošās šūnas nobīde par 1 rindu zemāk un 1 kolonnu pa labi no jau iekrāsotajām šūnām. Pievienojiet cilpai šādu koda rindiņu.

Šūnas (i, j). Nobīde (1, 1). Interjers.ColorIndex = 15

7. Pārbaudiet programmu.

Rezultāts:

Izveidojiet modeļa rezultātu

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



^