Zemāk mēs apskatīsim programmu Excel VBA ka izveido modeli.
Situācija:
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam divus Integer tipa mainīgos. Viens vārdā i un otrs vārdā j.
Dim i kā vesels skaitlis, j kā vesels skaitlis
2. Otrkārt, mēs pievienojam divas For Next cilpas.
Attiecībā uz i = 1 līdz 5 2. darbība
J = 1 līdz 5 2. darbība
3. Tālāk mēs pievienojam līniju, kas maina šūnu fona krāsu uz gaiši pelēku.
Šū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ākamais j
Tālāk i
5. Pārbaudiet programmu.
Rezultāts līdz šim.
Piemēram, ja i = 1 un j = 1, Excel VBA krāsas šūnas (1,1), i = 1 un j = 3 (2. darbība), Excel VBA krāsas šūnas (1,3), ja i = 1 un j = 5, Excel VBA krāsas šūnas (1,5), i = 3 (2. darbība) un j = 1, Excel VBA krāsas šūnas (3,1) utt.
6. Mēs esam gandrīz klāt. Vienīgais, kas mums jādara, ir iekrāsot šūnas, kuras ir nobīdītas 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: