Poniżej przyjrzymy się programowi w Excel VBA że tworzy wzór.
Sytuacja:
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw deklarujemy dwie zmienne typu Integer. Jeden o imieniu i i drugi o imieniu j.
Dim i As Integer, j As Integer
2. Po drugie, dodajemy dwie pętle For Next.
Dla i = 1 do 5 Krok 2
Dla j = 1 do 5 Krok 2
3. Następnie dodajemy linię, która zmienia kolor tła komórek na jasnoszary.
Komórki(i, j).Interior.ColorIndex = 15
Uwaga: zamiast numeru ColorIndex 15 (jasnoszary) możesz użyć dowolnego numeru ColorIndex.
4. Zamknij dwie pętle For Next.
Następny j
Dalej ja
5. Przetestuj program.
Dotychczasowy wynik.
Na przykład dla i = 1 i j = 1 Excel VBA koloruje komórki (1,1), dla i = 1 i j = 3 (krok 2), Excel VBA koloruje komórki (1,3), dla i = 1 i j = 5, Excel VBA koloruje komórki(1,5), dla i = 3 (krok 2) i j = 1, Excel VBA koloruje komórki (3,1) itd.
6. Jesteśmy prawie na miejscu. Jedyne, co musimy zrobić, to pokolorować komórki, które są przesunięte o 1 wiersz poniżej i 1 kolumnę po prawej stronie już pokolorowanych komórek. Dodaj następującą linię kodu do pętli.
Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15
7. Przetestuj program.
Wynik:
