/ / Möjliga fotbollsmatcher i Excel VBA

Möjliga fotbollsmatcher i Excel VBA

Nedan ser vi på ett program i Excel VBA som visar en förhandsgranskning av alla möjliga fotbollsmatcher från en lista över lag.

Situation:

Möjliga fotbollsmatcher i Excel VBA

1. Först deklarerar vi ett områdeobjekt och fyra variabler. Vi kallar Range object rng. En strängvariabel vi kallar matchname och tre integervariabler vi kallar counter, i och j.

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

2. Vi initierar rng med lagnamnen. Vi använder CurrentRegion för att vi inte vet exakta gränser för sortimentet i förväg (vi vill att detta program ska fungera för 3 lag men också för 12 lag). Vi initierar räknaren med värdet 0.

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

3. Vi skriver alla möjliga fotbollsmatcher till kolumn C. Först tömmer vi kolumn C.

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

4. Vi börjar en Double Loop.

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

5. Vi skriver en matchname till variabel matchname.

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

Till exempel, för i = 1 och j = 2, skriver Excel VBA matchname Kickers vs Shooters. För i = 1 och j = 3 skriver Excel VBA matchname Kickers vs Little Giants, etc.

6. Vi skriver matchname till kolumn C.

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

7. Räknaren håller reda på antalet mattechniker som skrivs till kolumn C. Excel VBA ökar räknaren med 1 varje gång den skriver en matchname till kolumn C. För att uppnå detta lägger du till följande kodlinje:

counter = counter + 1

8. Glöm inte att stänga de två looparna.

    Next j
Next i

9. Vi visar en förhandsvisning av alla möjliga fotbollsmatcher.

ActiveSheet.Columns(3).PrintPreview

10. Testa programmet.

Del av resultatet:

Möjliga fotbollsmatcher Resultat

Obs! Kolumn C är manuellt centrerad för att få detta resultat.

Läs också: