/ Vytvorte vzor v programe Excel VBA

Vytvorte vzor v programe Excel VBA

Nižšie sa pozrieme na program v sekcii Excel VBA že vytvára vzor.

situácie:

Vytvorte vzor v programe Excel VBA

Do pracovného hárka umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:

1. Najprv deklarujeme dve premenné typu Integer. Jeden menovaný i a jeden s názvom j.

Dim i As Integer, j As Integer

2. Po druhé pridáme dve slučky For Next.

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

3. Ďalej pridáme riadok, ktorý mení farbu pozadia buniek na svetlo sivú.

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

Poznámka: namiesto čísla ColorIndex 15 (svetlošedá) môžete použiť ľubovoľné číslo ColorIndex.

4. Zatvorte dve slučky For Next.

    Next j
Next i

5. Otestujte program.

Dosiaľ.

Vytvoriť vzorovú vzorku tak ďaleko

Napríklad pre i = 1 a j = 1, Excel VBAfarebné bunky (1, 1), pre i = 1 a j = 3 (krok 2), Excel VBA farby Bunky (1,3), pre i = 1 a j = pre i = 3 (krok 2) a j = 1, Excel farby VBA (3,1) atď.

6. Už sme skoro tam. Jediné, čo musíme urobiť, je farba buniek, ktoré sú odsadené o jeden riadok nižšie a jeden stĺpec vpravo od buniek, ktoré sú už farebné. Do slučky pridajte nasledujúci riadok kódu.

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

7. Otestujte program.

výsledok:

Vytvorte výsledok vzoru

Tiež si prečítajte: