/ Možné fotbalové zápasy v programu Excel VBA

Možné zápasy fotbalu v aplikaci Excel VBA

Níže se podíváme na program v Excel VBA který zobrazuje náhled tisku všech možné fotbalové zápasy ze seznamu týmů.

Situace:

Možné zápasy fotbalu v aplikaci Excel VBA

1. Nejprve deklarujeme jeden objekt Range a čtyři proměnné. Nazýváme objekt Range rng. Jedna proměnná řetězce nazýváme matchname a tři celočíselné proměnné, které nazýváme 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ázvy týmů. CurrentRegion používáme, protože nepoznáme přesné hranice rozsahu předem (chceme, aby tento program fungoval pro 3 týmy, ale také pro 12 týmů). Inicializujeme počítadlo s hodnotou 0.

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

3. Napíšeme všechny možné fotbalové zápasy do sloupce C. Nejdříve vyprázdníme sloupec C.

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

4. Začneme dvojité smyčky.

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

5. Napíšeme matchname na proměnnou matchname.

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

Například pro i = 1 a j = 2, Excel VBA zapíše matchname Kickers vs Shooters. Pro i = 1 a j = 3, Excel VBA píše matchname Kickers vs. Little Giants, atd.

6. Napíšeme matchname do sloupce C.

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

7. Počítadlo sleduje počet jmen zápasů zapsaných do sloupce C. Excel VBA inkrementuje čítač po 1 pokaždé, když zapíše matchname do sloupce C. K tomu dosáhněte následujícího řádku kódu:

counter = counter + 1

8. Nezapomeňte zavřít obě smyčky.

    Next j
Next i

9. Zobrazujeme náhled všech možných fotbalových zápasů.

ActiveSheet.Columns(3).PrintPreview

10. Otestujte program.

Část výsledku:

Možné výsledky fotbalových zápasů

Poznámka: sloupec C je ručně vycentrovaný pro získání tohoto výsledku.

Také si přečtěte: