/ / Mahdolliset jalkapallo-ottelut Excel VBA: ssa

Mahdolliset jalkapallo-ottelut Excel VBA: ssa

Alla tarkastelemme ohjelmaa Excel VBA joka näyttää kaikkien mahdolliset jalkapallo-ottelut joukkueiden luettelosta.

Tilanne:

Mahdolliset jalkapallo-ottelut Excel VBA: ssa

1. Ensin mainostetaan yksi Range-objekti ja neljä muuttujaa. Me kutsumme Range-objektin rng. Yksi String-muuttuja, jota kutsumme matchnameksi, ja kolme integerimuuttujaa, joita kutsumme laskuriksi, i ja j.

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

2. Aloitamme rng: n tiimin nimiä. Käytämme CurrentRegion-ohjelmaa, koska emme tiedä etukäteen tarkkoja rajoja (haluamme tämän ohjelman toimivan 3 ryhmälle, mutta myös 12 joukkueelle).

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

3. Kirjoitamme kaikki mahdolliset jalkapallo-ottelut sarakkeeseen C. Ensin tyhjennä sarake C.

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

4. Aloitamme Double Loop.

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

5. Me kirjoitamme matchname muuttujalle matchname.

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

Esimerkiksi i = 1 ja j = 2, Excel VBA kirjoittaa matchname Kickers vs. Shooters. I = 1 ja j = 3, Excel VBA kirjoittaa matchname Kickers vs. Little Giants jne.

6. Me kirjoitamme matchname: n sarakkeeseen C.

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

7. Laskuri seuraa C-sarakkeelle kirjoitettuja matchnames-lukumäärää. Excel VBA nostaa laskurin 1 kerralla, kun se kirjoittaa matchname-koodin sarakkeeseen C. Tämän saavuttamiseksi lisää seuraava koodirivi:

counter = counter + 1

8. Älä unohda sulkea molempia silmukoita.

    Next j
Next i

9. Näytämme tulostaulun kaikista mahdollisista jalkapallo-otteluista.

ActiveSheet.Columns(3).PrintPreview

10. Testaa ohjelma.

Osa tuloksesta:

Mahdolliset jalkapallo-ottelut Tulos

Huomaa: sarake C on keskitetty käsin tämän tuloksen saamiseksi.

Lue myös: