/ / Mögliche Fußballspiele in Excel VBA

Mögliche Fußballspiele in Excel VBA

Unten sehen wir uns ein Programm in Excel VBA das zeigt eine Druckvorschau aller mögliche Fußballspiele aus einer Liste von Teams.

Situation:

Mögliche Fußballspiele in Excel VBA

1. Zuerst deklarieren wir ein Range-Objekt und vier Variablen. Wir nennen das Range Objekt Rng. Eine String-Variable, die wir Matchname nennen, und drei Integer-Variablen, die wir counter, i und j nennen.

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 nicht im Voraus kennen (wir wollen, dass dieses Programm für 3 Teams funktioniert, aber auch für 12 Teams). Wir initialisieren Counter mit dem Wert 0.

Set rng = Range("A1").CurrentRegion
counter = 0

3. Wir schreiben alle möglichen Fußballspiele in Spalte C. Zuerst leeren wir Spalte C.

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

4. Wir starten eine Doppelschleife.

For i = 1 To rng.Count
    For j = i + 1 To rng.Count

5. Wir schreiben einen Matchnamen in den Variablen Matchname.

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

Zum Beispiel schreibt Excel VBA für i = 1 und j = 2 den Matchname Kickers vs Shooters. Für i = 1 und j = 3 schreibt Excel VBA den Matchname Kickers vs Little Giants usw.

6. Wir schreiben das Matchname in Spalte C.

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

7. Der Zähler verfolgt die Anzahl der in Spalte C geschriebenen Matchnamen. 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:

counter = counter + 1

8. Vergessen Sie nicht, die beiden Schleifen zu schließen.

    Next j
Next i

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

ActiveSheet.Columns(3).PrintPreview

10. Testen Sie das Programm.

Teil des Ergebnisses:

Mögliche Fußballspiele Ergebnis

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

Lesen Sie auch: