/ / Erstellen Sie ein Muster in Excel VBA

Erstellen Sie ein Muster in Excel VBA

Unten sehen wir uns ein Programm in Excel VBA Das Erstellt ein Muster.

Situation:

Erstellen Sie ein Muster in Excel VBA

Fügen Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt ein, und fügen Sie die folgenden Codezeilen hinzu:

1. Zuerst deklarieren wir zwei Variablen vom Typ Integer. Einer namens ich und einer named j.

Dim i As Integer, j As Integer

2. Zweitens fügen wir zwei For Next-Schleifen hinzu.

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

3. Als nächstes fügen wir die Zeile hinzu, die die Hintergrundfarbe der Zellen zu hellgrau ändert.

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

Hinweis: Anstelle von ColorIndex Nummer 15 (hellgrau) können Sie eine beliebige ColorIndex-Nummer verwenden.

4. Schließen Sie die zwei For Next-Schleifen.

    Next j
Next i

5. Testen Sie das Programm.

Ergebnis soweit.

Kiste ein Musterergebnis so weit

Zum Beispiel, für i = 1 und j = 1, Excel VBAFarben Zellen (1,1), für i = 1 und j = 3 (Schritt 2), Excel VBA Farben Zellen (1,3), für i = 1 und j = 5, Excel VBA Farben Zellen (1,5), für i = 3 (Schritt 2) und j = 1, Excel VBA Farben Zellen (3,1), usw.

6. Wir sind fast da. Das einzige, was wir tun müssen, ist die Farbe der Zellen, die um 1 Reihe darunter und 1 Spalte rechts von den bereits gefärbten Zellen versetzt sind. Fügen Sie der Schleife die folgende Codezeile hinzu.

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

7. Testen Sie das Programm.

Ergebnis:

Erstellen Sie ein Musterergebnis

Lesen Sie auch: