Im Folgenden sehen wir uns ein Programm in an Excel VBA das zeigt eine Druckvorschau aller mögliche Fußballspiele aus einer Mannschaftsliste.
Lage:
1. Zuerst deklarieren wir ein Range-Objekt und vier Variablen. Wir nennen das Range-Objekt rng. Eine String-Variable nennen wir matchname und drei Integer-Variablen nennen wir counter, i und j.
Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer
2. Wir initialisieren rng mit den Teamnamen. Wir verwenden CurrentRegion, weil wir die genauen Grenzen des Bereichs im Voraus nicht kennen (wir möchten, dass dieses Programm für 3 Teams, aber auch für 12 Teams funktioniert). Wir initialisieren den Zähler mit dem Wert 0.
Set rng = Range("A1").CurrentRegion
Zähler = 0
3. Wir schreiben alle möglichen Fußballspiele in Spalte C. Zuerst leeren wir Spalte C.
Arbeitsblätter(1).Spalten(3) = ""
4. Wir starten eine Doppelschleife.
Für i = 1 To rng.Count
Für j = i + 1 To rng.Count
5. Wir schreiben einen Matchname in die Variable matchname.
matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value
Zum Beispiel schreibt Excel VBA für i = 1 und j = 2 den Matchnamen Kickers vs Shooters. Für i = 1 und j = 3 schreibt Excel VBA den Matchnamen Kickers vs Little Giants usw.
6. Wir schreiben den Matchnamen in Spalte C.
Zellen(Zähler + 1, 3).Wert = Matchname
7. Der Zähler verfolgt die Anzahl der Matchnamen, die in Spalte C geschrieben wurden. Excel VBA erhöht den Zähler jedes Mal um 1, wenn ein Matchname in Spalte C geschrieben wird. Fügen Sie dazu die folgende Codezeile hinzu:
Zähler = Zähler + 1
8. Vergessen Sie nicht, die beiden Schleifen zu schließen.
Nächstes j
Als nächstes
9. Wir zeigen eine Druckvorschau aller möglichen Fußballspiele.
ActiveSheet.Columns(3).PrintPreview
10. Testen Sie das Programm.
Teil des Ergebnisses:
Hinweis: Spalte C wird manuell zentriert, um dieses Ergebnis zu erhalten.