/ / Posibile meciuri de fotbal în Excel VBA

Posibile meciuri de fotbal în Excel VBA

Mai jos ne vom uita la un program în Excel VBA care arată o previzualizare a tuturor tipurilor de fișiere posibile meciuri de fotbal dintr-o listă de echipe.

Situatie:

Posibile meciuri de fotbal în Excel VBA

1. În primul rând, declarăm un obiect Range și patru variabile. Noi numim obiectul Range rng. O variabilă String numim matchname și trei variabile întregi pe care le numim contra, i și j.

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

2. Initializam rng cu numele echipei. Folosim CurrentRegion deoarece nu cunoastem limitele exacte ale gamei in avans (dorim ca acest program sa functioneze pentru 3 echipe, dar si pentru 12 echipe). Initializam counter cu valoarea 0.

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

3. Se scriu toate meciurile de fotbal posibil în coloana C. În primul rând, ne-am golit coloana C.

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

4. Începem o buclă dublă.

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

5. Noi scriem un matchname la variabila matchname.

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

De exemplu, pentru i = 1 și j = 2, Excel VBA scrie Matchname Kickers vs Shooters. Pentru i = 1 și j = 3, Excel VBA scrie Matchname Kickers vs Little Giants, etc.

6. Noi scriem matchname în coloana C.

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

7. Contorul ține evidența numărului de nume de potrivire scrise în coloana C. Excel VBA mărește numărul de numere de câte 1 de fiecare dată când scrie un matchname în coloana C. Pentru a realiza acest lucru, adăugați următoarea linie de cod:

counter = counter + 1

8. Nu uitați să închideți cele două bucle.

    Next j
Next i

9. Afișează o previzualizare tipărite a tuturor meciurilor de fotbal posibile.

ActiveSheet.Columns(3).PrintPreview

10. Testați programul.

Parte a rezultatului:

Posibile meciuri de fotbal

Notă: coloana C este centrată manual pentru a obține acest rezultat.

De asemenea, citiți: