Az alábbiakban megnézzük a programot Excel VBA amely az összes nyomtatási előnézetét mutatja lehetséges focimeccseket csapatok listájáról.
Helyzet:
1. Először deklarálunk egy Range objektumot és négy változót. A Range objektumot rng -nek hívjuk. Egy karakterlánc -változót matchname -nek, három egész változót számlálónak, i -nek és j -nek nevezünk.
Dim rng as Range, matchname As String, counter As Integer, i As Integer, j As Integer
2. Inicializáljuk az rng -t a csapatnevekkel. Azért használjuk a CurrentRegion programot, mert nem tudjuk előre a tartomány pontos határait (szeretnénk, ha ez a program 3 csapat, de 12 csapat esetén is működne). Inicializáljuk a számlálót 0 értékkel.
Set rng = Range ("A1"). CurrentRégió
számláló = 0
3. A C oszlopba írjuk az összes lehetséges focimeccset. Először kiürítjük a C oszlopot.
Munkalapok (1). Oszlopok (3) = ""
4. Kettős hurkot indítunk.
I = 1 -hez Rng.Szám
Ha j = i + 1 Rng.Szám
5. A matchname változóhoz egy matchname -t írunk.
matchname = rng.Cells (i) .Value & "vs" & rng.Cells (j) .Value
Például i = 1 és j = 2 esetén az Excel VBA a Kickers vs Shooters matematikai nevet írja. I = 1 és j = 3 esetén az Excel VBA írja a Kickers vs Little Giants matematikai nevet stb.
6. A C oszlopba írjuk a matname -t.
Sejtek (számláló + 1, 3). Érték = matname
7. A számláló nyomon követi a C oszlopba írt párnevek számát. Az Excel VBA 1 -gyel növeli a számlálót minden egyes alkalommal, amikor matematikai nevet ír a C oszlopba. Ennek eléréséhez adja hozzá a következő kód sort:
számláló = számláló + 1
8. Ne felejtse el bezárni a két hurkot.
Következő j
Következő i
9. Az összes lehetséges futballmeccs nyomtatott előnézetét mutatjuk.
ActiveSheet.Columns (3) .PrintPreview
10. Tesztelje a programot.
Az eredmény egy része:
Megjegyzés: a C oszlop manuálisan középre van állítva, hogy megkapja ezt az eredményt.