Níže se podíváme na program v Excel VBA že vytváří vzor.
Situace:
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujeme dvě proměnné typu Integer. Jeden s názvem i a jeden s názvem j.
Dim i jako celé číslo, j jako celé číslo
2. Zadruhé přidáme dvě smyčky For Next.
Pro i = 1 až 5 Krok 2
Pro j = 1 až 5 Krok 2
3. Dále přidáme řádek, který změní barvu pozadí buněk na světle šedou.
Buňky (i, j). Interiér.ColorIndex = 15
Poznámka: místo ColorIndex číslo 15 (světle šedá) můžete použít libovolné číslo ColorIndex.
4. Zavřete dvě smyčky For Next.
Další j
Příště já
5. Otestujte program.
Výsledek zatím.
Například pro i = 1 a j = 1, Excel VBA barvy buněk (1,1), pro i = 1 a j = 3 (krok 2), Excel VBA barvy buněk (1,3), pro i = 1 a j = 5, buňky buňky VBA aplikace Excel (1,5), pro i = 3 (krok 2) a j = 1, buňky aplikace VBA barvy buňky (3,1) atd.
6. Jsme skoro tam. Jediné, co musíme udělat, je vybarvit buňky, které jsou odsazeny o 1 řádek níže a 1 sloupec napravo od buněk již vybarvených. Přidejte následující řádek kódu do smyčky.
Buňky (i, j). Offset (1, 1). Interior.ColorIndex = 15
7. Otestujte program.
Výsledek: