/ / Moguće nogometne utakmice u Excel VBA

Moguće nogometne utakmice u Excel VBA

U nastavku ćemo pogledati program u Excel VBA koji prikazuje pretpregled ispisa svih moguće nogometne utakmice s popisa timova.

Situacija:

Moguće nogometne utakmice u Excel VBA

1. Prvo, izjavljujemo jedan objekt Raspon i četiri varijable. Pozivamo raspon objekta rng. Jedna Stringova varijabla zovemo matchname, i tri integer varijable koje nazivamo brojač, i i j.

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

2. Inicijaliziramo rng s timskim imenima. Koristimo CurrentRegion jer unaprijed ne znamo točno granice raspona (želimo da ovaj program funkcionira za 3 ekipe, ali i za 12 timova). Inicijaliziramo brojač s vrijednošću 0.

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

3. Napišemo sve moguće nogometne utakmice na kolonu C. Prvo ispraznimo stupac C.

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

4. Započinjemo dvostruku petlju.

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

5. Zapisujemo matchname varijable matchname.

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

Na primjer, za i = 1 i j = 2, Excel VBA piše matchname Kickers vs Shooters. Za i = 1 i j = 3, Excel VBA piše matchname Kickers vs Little Giants, itd.

6. Pišemo matchname na stupac C.

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

7. Brojač prati broj matchnames napisanih na stupac C. Excel VBA povećava brojač za 1 svaki put kad piše matchname u stupac C. Da bi to postigao, dodajte sljedeću šifru:

counter = counter + 1

8. Ne zaboravite zatvoriti dvije petlje.

    Next j
Next i

9. Prikazujemo pregled svih mogućih nogometnih utakmica.

ActiveSheet.Columns(3).PrintPreview

10. Ispitajte program.

Dio rezultata:

Mogući rezultati nogometnih utakmica

Napomena: stupac C ručno je centriran da biste dobili taj rezultat.

Također pročitajte: