Galimos futbolo rungtynės "Excel VBA"

Žemiau apžvelgsime programą Excel VBA kuriame parodyta visos spausdintuvo peržiūra galimi futbolo rungtynes iš komandų sąrašo.

Padėtis:

1. Pirma, mes deklaruojame vieną Range objektą ir keturis kintamuosius. Mes vadiname Range objektą rng. Vienas Styginių kintamasis, kurį mes vadiname sutapimo vardu, ir trys sveiki kintamieji, kuriuos vadiname skaičiuokle, i ir j.

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

2. Mes inicializuojame rng su komandos pavadinimais. Mes naudojame "CurrentRegion", nes iš anksto nežinome tikslios diapazono ribos (norime, kad ši programa veiktų 3 komandoms, bet ir 12 komandų). Mes inicijuojame skaitiklius su reikšme 0.

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

3. Visus galimus futbolo rungtynius rašome stulpeliui C. Visų pirma, tuščias stulpelis C.

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

4. Pradedame dvigubą kilpą.

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

5. Mes užrašome vardą su kintamojo pavadinimu.

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

Pavyzdžiui, jei i = 1 ir j = 2, "Excel VBA" rašo rungtynių pavadinimą "Kickers vs Shooters". Jei i = 1 ir j = 3, "Excel VBA" rašo vardą "Kickers vs Little Giants" ir kt.

6. Mes įrašome vardą su C stulpeliu.

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

7. Skaitiklis seka skaičių atitikčių pavadinimų, įrašytų į stulpelį C. Excel VBA pakėlimo skaitiklis 1, kiekvieną kartą, kai jis įrašo atitikmenų kodą į stulpelį C. Norėdami tai pasiekti, pridėkite šią kodo eilutę:

counter = counter + 1

8. Nepamirškite uždaryti dvi kilpos.

Next j
Next i

9. Parodome visų galimų futbolo rungtynių spausdinimo peržiūrą.

ActiveSheet.Columns(3).PrintPreview

10. Patikrinkite programą.

Dalis rezultato: