Im Folgenden sehen wir uns ein Programm in an Excel VBA das erzeugt ein Muster.
Lage:
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir zwei Variablen vom Typ Integer. Einer namens i und einer namens j.
Dim i As Integer, j As Integer
2. Zweitens fügen wir zwei For Next-Schleifen hinzu.
Für i = 1 bis 5 Schritt 2
Für j = 1 bis 5 Schritt 2
3. Als nächstes fügen wir die Linie hinzu, die die Hintergrundfarbe der Zellen in Hellgrau ändert.
Zellen(i, j).Interior.ColorIndex = 15
Hinweis: Anstelle der ColorIndex-Nummer 15 (hellgrau) können Sie eine beliebige ColorIndex-Nummer verwenden.
4. Schließen Sie die beiden For Next-Schleifen.
Nächstes j
Als nächstes
5. Testen Sie das Programm.
Ergebnis bisher.
Zum Beispiel für i = 1 und j = 1, Excel VBA färbt Cells(1,1), für i = 1 und j = 3 (Schritt 2), Excel VBA färbt Cells(1,3), für i = 1 und j = 5, Excel VBA färbt Zellen(1,5), für i = 3 (Schritt 2) und j = 1, Excel VBA färbt Zellen(3,1) usw.
6. Wir sind fast da. Das einzige, was wir tun müssen, ist, die Zellen zu färben, die um 1 Zeile darunter und 1 Spalte rechts von den bereits gefärbten Zellen versetzt sind. Fügen Sie der Schleife die folgende Codezeile hinzu.
Zellen(i, j).Offset(1, 1).Interior.ColorIndex = 15
7. Testen Sie das Programm.
Ergebnis: