/ / Możliwe mecze piłkarskie w programie Excel VBA

Możliwe mecze piłki nożnej w programie Excel VBA

Poniżej przyjrzymy się programowi w Excel VBA który pokazuje podgląd wydruku wszystkich możliwe mecze piłki nożnej z listy zespołów.

Sytuacja:

Możliwe mecze piłki nożnej w programie Excel VBA

1. Najpierw deklarujemy jeden obiekt Range i cztery zmienne. Nazywamy obiekt Range rng. Zmienna One String nazywamy matchname i trzy zmienne Integer, które wywołujemy counter, i i j.

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

2. Inicjujemy rng z nazwami drużyn. Używamy CurrentRegion, ponieważ nie wiemy z góry dokładnych granic zakresu (chcemy, aby ten program działał dla 3 zespołów, ale także dla 12 zespołów). Inicjujemy licznik z wartością 0.

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

3. Piszemy wszystkie możliwe mecze piłkarskie do kolumny C. Najpierw opróżniamy kolumnę C.

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

4. Rozpoczynamy podwójną pętlę.

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

5. Piszemy nazwę meczu do zmiennej matchname.

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

Na przykład dla i = 1 i j = 2, Excel VBA zapisuje nazwę meczu Kickers vs Shooters. Dla i = 1 i j = 3, Excel VBA zapisuje nazwę meczu Kickers vs Little Giants, itp.

6. Zapisujemy nazwę meczu w kolumnie C.

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

7. Licznik śledzi liczbę nazwisk zapisanych w kolumnie C. Excel VBA zwiększa licznik o 1 za każdym razem, gdy zapisuje nazwę meczu w kolumnie C. Aby to osiągnąć, dodaj następującą linię kodu:

counter = counter + 1

8. Nie zapomnij zamknąć dwóch pętli.

    Next j
Next i

9. Pokazujemy podgląd wydruku wszystkich możliwych meczów piłkarskich.

ActiveSheet.Columns(3).PrintPreview

10. Sprawdź program.

Część wyniku:

Możliwe wyniki meczów piłkarskich

Uwaga: kolumna C jest ręcznie wyśrodkowana, aby uzyskać ten wynik.

Przeczytaj również: