/ / Izveidot paraugu programmā Excel VBA

Izveidot paraugu programmā Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA ka rada modeli.

Situācija:

Izveidot paraugu programmā Excel VBA

Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:

1. Vispirms deklarējam divus mainīgā lieluma tipus: vesels skaitlis. Viens vārds ir i un viens ar nosaukumu j.

Dim i As Integer, j As Integer

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

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. Pēc tam mēs pievienojam līniju, kas šūnu fona krāsu maina gaiši pelēkajā krāsā.

Cells(i, j).Interior.ColorIndex = 15

Piezīme: nevis ColorIndex numurs 15 (gaiši pelēks), jūs varat izmantot jebkuru ColorIndex numuru.

4. Aizveriet divus Next cilpas.

    Next j
Next i

5. Pārbaudiet programmu.

Līdzšinējais rezultāts.

Iegūstiet parauga rezultātu tik tālu

Piemēram, i = 1 un j = 1, Excel VBAkrāsu šūnas (1,1), i = 1 un j = 3 (2. solis), Excel VBA krāsas šūnas (1,3), i = 1 un j = 5, Excel VBA krāsas Šūnas (1,5), par i = 3 (2. solis) un j = 1, Excel VBA krāsas šūnas (3,1) utt.

6. Mēs esam gandrīz tur. Vienīgais, kas mums jādara, krāso šūnas, kuras tiek kompensētas ar 1 rindu zemāk un 1 kolonnu pa labi no jau krāsainām šūnām. Pievienojiet ciklam šādu koda rindiņu.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. Pārbaudiet programmu.

Rezultāts:

Izveidojiet modeļa rezultātu

Lasīt arī: