/ / Vytvořte vzorek v aplikaci Excel VBA

Vytvoření vzoru v aplikaci Excel VBA

Níže se podíváme na program v Excel VBA že vytváří vzor.

Situace:

Vytvoření vzoru v aplikaci Excel VBA

Umístěte na pracovní list příkazové tlačítko a přidejte následující řádky kódu:

1. Nejprve deklarujeme dvě proměnné typu Integer. Jeden jmenovaný i a jeden j.

Dim i As Integer, j As Integer

2. Za druhé, přidáme dvě smyčky For Next.

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

3. Dále přidáme řádek, který změní barvu pozadí buněk na světle šedou.

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

Poznámka: namísto ColorIndex číslo 15 (světle šedá) můžete použít libovolné číslo ColorIndex.

4. Zavřete dvě smyčky For Next.

    Next j
Next i

5. Otestujte program.

Výsledek dosud.

Převést vzorek tak daleko

Například pro i = 1 a j = 1, Excel VBA(1, 1), pro i = 1 a j = 3 (krok 2), Excel VBA barvy Buňky (1,3) pro i = 1 a j = pro i = 3 (krok 2) a j = 1, Excel VBA barvy buňky (3,1) atd.

6. Jsme skoro tam. Jediná věc, kterou musíme udělat, je zbarvení buněk, které jsou odsazeny o 1 řádek níže a 1 sloupec napravo od buněk, které jsou již zabarveny. Přidejte následující řádek kódu do smyčky.

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

7. Otestujte program.

Výsledek:

Vytvořte výsledek vzoru

Také si přečtěte: