Mulige fodboldkampe i Excel VBA

Nedenfor vil vi se på et program i Excel VBA der viser en forhåndsvisning af alle de mulige fodboldkampe fra en liste over hold.

Situation:

1. Først erklærer vi et områdeobjekt og fire variabler. Vi kalder Range objekt rng. En streng variabel vi kalder matchname og tre integervariabler vi kalder counter, i og j.

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

2. Vi initialiserer rng med teamnavnet. Vi bruger CurrentRegion, fordi vi ikke kender de nøjagtige grænser af sortimentet på forhånd (vi vil have dette program til at fungere for 3 hold, men også for 12 hold). Vi initialiserer tælleren med værdi 0.

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

3. Vi skriver alle mulige fodboldkampe til kolonne C. Først tømmer vi kolonne C.

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

4. Vi starter en Double Loop.

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

5. Vi skriver en matchname til den variable matchname.

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

For eksempel, for i = 1 og j = 2, skriver Excel VBA matchname Kickers vs Shooters. For i = 1 og j = 3, skriver Excel VBA matchname Kickers vs Little Giants mv.

6. Vi skriver matchname til kolonne C.

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

7. Tælleren holder styr på antallet af matchnames skrevet til kolonne C. Excel VBA øger tæller med 1 hver gang den skriver en matchname til kolonne C. For at opnå dette skal du tilføje følgende kode linje:

counter = counter + 1

8. Glem ikke at lukke de to løkker.

Next j
Next i

9. Vi viser en forhåndsvisning af alle mulige fodboldkampe.

ActiveSheet.Columns(3).PrintPreview

10. Test programmet.

En del af resultatet: