/ / Utwórz wzór w programie Excel VBA

Utwórz wzór w programie Excel VBA

Poniżej przyjrzymy się programowi w Excel VBA że tworzy wzór.

Sytuacja:

Utwórz wzór w programie Excel VBA

Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:

1. Najpierw deklarujemy dwie zmienne typu Integer. Jeden o nazwie i jeden o nazwie j.

Dim i As Integer, j As Integer

2. Po drugie dodajemy dwie pętle For Next.

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

3. Następnie dodajemy linię, która zmienia kolor tła komórek na jasnoszary.

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

Uwaga: zamiast ColorIndex 15 (jasnoszary) można użyć dowolnego numeru ColorIndex.

4. Zamknij dwie pętle For Next.

    Next j
Next i

5. Przetestuj program.

Wynik do tej pory.

Skrzynia wzór Wynik do tej pory

Na przykład dla i = 1 i j = 1, Excel VBAkolory Komórki (1,1), dla i = 1 i j = 3 (Krok 2), Kolory Excel VBA Komórki (1,3), dla i = 1 i j = 5, Kolory Excel VBA Komórki (1,5), dla i = 3 (Krok 2) i j = 1, Kolory Excel VBA Komórki (3,1), itp.

6. Już prawie jesteśmy. Jedyne, co musimy zrobić, to kolor komórek, które są przesunięte o 1 rząd poniżej i 1 kolumna po prawej stronie już zaznaczonych komórek. Dodaj następującą linię kodu do pętli.

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

7. Sprawdź program.

Wynik:

Utwórz wynik wzoru

Przeczytaj również: