Níže se podíváme na program v Excel VBA který ukazuje náhled tisku všech možné fotbalové zápasy ze seznamu týmů.
Situace:
1. Nejprve deklarujeme jeden objekt Range a čtyři proměnné. Objekt Range nazýváme rng. Jednu řetězcovou proměnnou nazýváme matchname a tři celočíselné proměnné 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 předem neznáme přesné hranice rozsahu (chceme, aby tento program fungoval pro 3 týmy, ale také pro 12 týmů). Inicializujeme čítač s hodnotou 0.
Nastavit rng = rozsah ("A1"). CurrentRegion
čítač = 0
3. Do sloupce C zapíšeme všechny možné fotbalové zápasy. Nejprve vyprázdníme sloupec C.
Pracovní listy (1). Sloupce (3) = ""
4. Začínáme s dvojitou smyčkou.
Pro i = 1 To rng.Count
Pro j = i + 1 do rng.Count
5. Do proměnné název shody napíšeme název shody.
matchname = rng.Cells (i) .Value & "vs" & rng.Cells (j) .Value
Například pro i = 1 a j = 2 Excel VBA zapíše název shody Kickers vs Shooters. Pro i = 1 a j = 3 Excel VBA zapíše název shody Kickers vs Little Giants atd.
6. Do sloupce C napíšeme název shody.
Buňky (čítač + 1, 3). Hodnota = název shody
7. Počitadlo sleduje počet názvů shody zapsaných do sloupce C. Excel VBA zvyšuje čítač o 1 při každém zápisu názvu shody do sloupce C. Chcete -li toho dosáhnout, přidejte následující řádek kódu:
čítač = čítač + 1
8. Nezapomeňte uzavřít dvě smyčky.
Další j
Příště já
9. Ukazujeme tištěný náhled všech možných fotbalových zápasů.
ActiveSheet.Columns (3) .PrintPreview
10. Otestujte program.
Část výsledku:
Poznámka: pro získání tohoto výsledku je sloupec C ručně vycentrován.