Nižšie sa pozrieme na program v Excel VBA ktorý zobrazuje ukážku tlače všetkých možné futbalové zápasy zo zoznamu tímov.
Situácia:
1. Najprv deklarujeme jeden objekt Range a štyri premenné. Objekt Range nazývame rng. Jednu reťazcovú premennú nazývame názov zápasu a tri celočíselné premenné nazývame počítadlo, 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ímov. CurrentRegion používame, pretože vopred nepoznáme presné hranice rozsahu (chceme, aby tento program fungoval pre 3 tímy, ale aj pre 12 tímov). Inicializujeme počítadlo s hodnotou 0.
Nastaviť rng = rozsah ("A1"). CurrentRegion
počítadlo = 0
3. Do stĺpca C zapíšeme všetky možné futbalové zápasy. Najprv vyprázdníme stĺpček C.
Pracovné listy (1). Stĺpce (3) = ""
4. Začíname s dvojitou slučkou.
Pre i = 1 To rng.Count
Pre j = i + 1 až rng.Count
5. K premennej matchname napíšeme názov zhody.
názovzhody = rng.Cells (i) .Hodnota & "vs" & rng.Cells (j) .Hodnota
Napríklad pre i = 1 a j = 2 napíše Excel VBA názov zápasu Kickers vs Shooting. Pre i = 1 a j = 3 Excel VBA napíše názov zápasu Kickers vs Little Giants atď.
6. Názov zápasu zapíšeme do stĺpca C.
Bunky (počítadlo + 1, 3). Hodnota = názov zhody
7. Počítadlo sleduje počet názvov zhody zapísaných do stĺpca C. Excel VBA zvyšuje počítadlo o 1 pri každom zápise názvu zápasu do stĺpca C. Na dosiahnutie tohto cieľa pridajte nasledujúci riadok kódu:
počítadlo = počítadlo + 1
8. Nezabudnite uzavrieť dve slučky.
Ďalej j
Ďalej i
9. Ukazujeme tlačený náhľad všetkých možných futbalových zápasov.
ActiveSheet.Columns (3) .PrintPreview
10. Otestujte program.
Časť výsledku:
Poznámka: Stĺpec C je na dosiahnutie tohto výsledku ručne vycentrovaný.