Im Folgenden an einem Programm in Excel VBA, das zeigt eine Druckvorschau aller möglichen Fußballspiele aus einer Liste der Teams aussehen wird.

Situation:

Possible Football Matches in Excel VBA

  1. Zuerst erklären wir ein Range-Objekt und vier Variablen. Wir nennen das Range-Objekt RNG. Ein String-Variable wir matchname nennen und drei Integer-Variablen nennen wir Zähler, i und j.

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer

  1. Wir initialisieren rng mit den Teamnamen. Wir verwenden Current, weil wir die genauen Grenzen des Bereichs im Voraus nicht wissen (wollen wir dieses Programm Arbeit für 3 Teams, sondern auch für 12 Teams). Wir initialisieren Zähler mit dem Wert 0

Set rng = Range("A1").CurrentRegion

counter = 0

  1. Wir schreiben alle möglichen Fußballspiele Spalte C. Zuerst wir leere Spalte C

Worksheets(1).Columns(3) = ""

  1. Wir starten eine doppelte Schleife.

For i = 1 To rng.Count

For j = i + 1 To rng.Count

  1. Wir schreiben eine matchname auf die Variable matchname.

matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

Zum Beispiel für i = 1 und j = 2, Excel VBA den matchname Kicker vs Shooters schreiben. Für i 1 und j = = 3, schreibt Excel VBA den matchname Kicker vs Kleine Riesen usw.

  1. Wir schreiben die matchname auf Spalte C

Cells(counter + 1, 3).Value = matchname

  1. Der Zähler verfolgt die Anzahl der matchnames geschrieben Spalte C. Excel VBA Inkrementen Zähler um 1 jedesmal, wenn er eine matchname bis Spalte C. schreibt dies zu erreichen, den folgenden Code Zeile:

counter = counter + 1

  1. Vergessen Sie nicht die beiden Schleifen zu schließen.

Next j

Next i

  1. Wir zeigen eine Druckvorschau aller möglichen Fußballspiele.

ActiveSheet.Columns(3).PrintPreview

  1. Testen Sie das Programm.

Ein Teil des Ergebnisses:

Possible Football Matches Result

Hinweis: Spalte C wird manuell zentriert um dieses Ergebnis zu erzielen.