/ / Lehetséges labdarúgó mérkőzések Excel VBA-ban

Lehetséges labdarúgó mérkőzések Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA amely minden nyomtatási előnézetet mutat lehetséges labdarúgó-mérkőzések egy csapatlistából.

Helyzet:

Lehetséges labdarúgó mérkőzések Excel VBA-ban

1. Először egy Range objektumot és négy változót deklarálunk. A Range object rng-nek nevezzük. Egy String változót nevezzünk matchname-nek, és három Integer változót hívunk számlálóként: i és j.

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

2. Inicializáljuk a rng-et a csapat nevével. A CurrentRegion-t használjuk, mert nem ismerjük előre a tartomány pontos határait (azt szeretnénk, hogy ez a program 3 csapatra, de 12 csapatra is működjön).

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

3. Minden lehetséges labdarúgó-mérkőzést a C oszlopba írunk. Először üresen emeljük ki a C oszlopot.

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

4. Kettős hurkot indítunk.

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

5. A matchname változójá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 írja a matchname Kickers vs Shooters-et. Az i = 1 és j = 3 esetében az Excel VBA írja a matchname Kickers vs Little Giants stb.

6. A matchname-t a C oszlopba írjuk.

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

7. A számláló folyamatosan nyomon követi a C oszlopba írt matchnames számát. Az Excel VBA a számlálóval egyenként írja be a számlálót a C oszlopba. Ennek eléréséhez a következő kódot adja hozzá:

counter = counter + 1

8. Ne felejtsd el lezárni a két hurkot.

    Next j
Next i

9. Megmutatjuk a lehetséges futball-mérkőzések nyomtatási előnézetét.

ActiveSheet.Columns(3).PrintPreview

10. Vizsgálja meg a programot.

Az eredmény egy része:

Lehetséges labdarúgó mérkőzések eredményei

Megjegyzés: a C oszlop manuális központú, hogy megkapja ezt az eredményt.

Szintén olvasható: