Nižšie sa pozrieme na program v Excel VBA že vytvára vzor.
Situácia:
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme dve premenné typu Integer. Jeden s názvom i a jeden s názvom j.
Dim i ako celé číslo, j Ako celé číslo
2. Za druhé, pridáme dve slučky For Next.
Pre i = 1 až 5 Krok 2
Pre j = 1 až 5 Krok 2
3. Ďalej pridáme riadok, ktorý zmení farbu pozadia buniek na svetlošedú.
Bunky (i, j). Interiér.ColorIndex = 15
Poznámka: namiesto čísla ColorIndex číslo 15 (svetlo šedá) môžete použiť akékoľvek číslo ColorIndex.
4. Zatvorte dve slučky For Next.
Ďalej j
Ďalej i
5. Otestujte program.
Výsledok zatiaľ.
Napríklad pre i = 1 a j = 1, bunky Excel VBA farby (1,1), pre i = 1 a j = 3 (krok 2), Excel VBA farby bunky (1,3), pre i = 1 a j = 5, bunky VBA programu Excel VBA (1,5), pre i = 3 (krok 2) a j = 1, bunky bunky VBA programu Excel VBA (3,1) atď.
6. Už sme skoro tam. Jediná vec, ktorú musíme urobiť, je zafarbiť bunky, ktoré sú posunuté o 1 riadok nižšie a 1 stĺpec napravo od buniek, ktoré už sú zafarbené. Do slučky pridajte nasledujúci riadok kódu.
Bunky (i, j). Odsadenie (1, 1). Interiér.ColorIndex = 15
7. Otestujte program.
Výsledok: