/ / Iespējamās futbola spēles Excel VBA

Iespējamās futbola spēles VBA programmā Excel

Tālāk mēs apskatīsim programmu programmā Excel VBA kas parāda drukas priekšskatījumu visiem iespējamās futbola sacensības no komandu saraksta.

Situācija:

Iespējamās futbola spēles VBA programmā Excel

1. Vispirms mēs deklarējam vienu diapazona objektu un četrus mainīgos. Mēs saucam Range object rng. Viena virknes mainīgais, ko saucam par atbilstības vārdu, un trīs integer mainīgie, kurus mēs saucam par skaitītāju, i un j.

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

2. Mēs inicializējam rng ar komandas nosaukumiem. Mēs izmantojam CurrentRegion, jo mēs precīzi nezinām precīzas diapazona robežas (mēs vēlamies, lai šī programma darbotos 3 komandām, bet arī 12 komandām). Mēs inicializējam counter ar vērtību 0.

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

3. Mēs rakstām visas iespējamās futbola sacīkstes kolonnā C. Vispirms mēs iztukšojam kolonnu C.

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

4. Mēs sākam dubulto loku.

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

5. Mēs uzrakstam maģistra vārdu mainīgajam nosaukumam.

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

Piemēram, ja i = 1 un j = 2, Excel VBA raksta vārdu Kickers vs Shooters. Ja i = 1 un j = 3, Excel VBA raksta vārdu Kickers vs Little Giants utt.

6. Mēs uzrakstam vārdu uz C sleju.

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

7. Atkarībā no sleju C uzrakstīto vārdu skaita tiek izsekotas. Excel VBA pieauguma skaitītājs - 1 reizi, kad tā raksta vārdu uz kolonnu C. Lai to sasniegtu, pievienojiet šādu koda rindu:

counter = counter + 1

8. Neaizmirstiet aizvērt divas cilpas.

    Next j
Next i

9. Mēs parādām drukas priekšskatījumu par visām iespējamām futbola spēlēm.

ActiveSheet.Columns(3).PrintPreview

10. Pārbaudiet programmu.

Daļa no rezultāta:

Iespējamā futbola spēļu rezultāts

Piezīme. Lai iegūtu šo rezultātu, kolonna C tiek manuāli centrēta.

Lasīt arī: