Možné zápasy futbalu v programe Excel VBA

Nižšie sa pozrieme na program v sekcii Excel VBA ktorý zobrazuje ukážku tlače všetkých možné futbalové zápasy zo zoznamu tímov.

situácie:

Možné zápasy futbalu v programe Excel VBA

1. Najprv deklarujeme jeden objekt Range a štyri premenné. Voláme objekt Range rng. Jedna Stringová premenná nazývame matchname a tri celočíselné premenné, ktoré nazývame counter, i a j.

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

2. Inicializujeme rng s názvami tímu. Použili sme CurrentRegion, pretože nepoznáme presné hranice rozsahu vopred (chceme, aby tento program pracoval pre 3 tímy, ale aj pre 12 tímov), inicializujeme počítadlo s hodnotou 0.

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

3. Napíšeme všetky možné futbalové zápasy do stĺpca C. Najskôr vyprázdňujeme stĺpec C.

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

4. Začneme dvojitú slučku.

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

5. Napíšeme matchname na premennú matchname.

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

Napríklad pre i = 1 a j = 2, Excel VBA zapíše matchname Kickers vs Shooters. Pre i = 1 a j = 3, Excel VBA zapíše matchname Kickers vs Little Giants, atď.

6. Napíšeme matchname do stĺpca C.

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

7. Počítadlo sleduje počet názvov zápasov zapísaných do stĺpca C. Excel VBA inkrementuje počítadlo o 1 pri každom zapísaní matchname do stĺpca C. To dosiahnete tým, pridajte nasledujúci riadok kódu:

counter = counter + 1

8. Nezabudnite zatvoriť dve slučky.

Next j
Next i

9. Zobrazujeme ukážku všetkých možných futbalových zápasov.

ActiveSheet.Columns(3).PrintPreview

10. Otestujte program.

Časť výsledku: