Poniżej przyjrzymy się programowi w Excel VBA który pokazuje podgląd wydruku wszystkich możliwe mecze piłki nożnej z listy drużyn.
Sytuacja:
1. Najpierw deklarujemy jeden obiekt Range i cztery zmienne. Nazywamy obiekt Range rng. Jedną zmienną typu String nazywamy matchname, a trzy zmienne typu Integer nazywamy counter, i oraz j.
Dim rng As Zakres, nazwa dopasowania As String, licznik As Integer, i As Integer, j As Integer
2. Inicjujemy rng nazwami drużyn. Używamy CurrentRegion, ponieważ nie znamy 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 wartością 0.
Ustaw rng = Zakres("A1").CurrentRegion
licznik = 0
3. W kolumnie C zapisujemy wszystkie możliwe mecze piłki nożnej. Najpierw opróżniamy kolumnę C.
Arkusze(1).Kolumny(3) = ""
4. Rozpoczynamy podwójną pętlę.
Dla i = 1 To rng.Count
Dla j = i + 1 To rng.Count
5. Do zmiennej matchname zapisujemy 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ę dopasowania w kolumnie C.
Komórki(licznik + 1, 3). Wartość = nazwa dopasowania
7. Licznik śledzi liczbę dopasowań zapisanych w kolumnie C. Excel VBA zwiększa licznik o 1 za każdym razem, gdy zapisuje nazwę dopasowania w kolumnie C. Aby to osiągnąć, dodaj następującą linię kodu:
licznik = licznik + 1
8. Nie zapomnij zamknąć dwóch pętli.
Następny j
Dalej ja
9. Pokazujemy podgląd wydruku wszystkich możliwych meczów piłki nożnej.
ActiveSheet.Kolumny(3).Podgląd wydruku
10. Przetestuj program.
Część wyniku:
Uwaga: kolumna C jest ręcznie wyśrodkowana, aby uzyskać ten wynik.