Spodaj si bomo ogledali program v Excel VBA ki prikazuje predogled tiskanja vseh možne nogometne tekme s seznama ekip.
Situacija:
1. Najprej razglasimo en objekt Range in štiri spremenljivke. Objekt Range imenujemo rng. Eno spremenljivko String imenujemo matchname in tri spremenljivke Integer imenujemo števec, i in j.
Dim rng As Range, ime ujemanja kot String, števec As Integer, i As Integer, j As Integer
2. Inicializiramo rng z imeni ekip. CurrentRegion uporabljamo, ker vnaprej ne poznamo natančnih meja območja (želimo, da ta program deluje za 3 ekipe, pa tudi za 12 ekip). Inicializiramo števec z vrednostjo 0.
Nastavite rng = območje ("A1"). CurrentRegion
števec = 0
3. Vse možne nogometne tekme zapišemo v stolpec C. Najprej izpraznimo stolpec C.
Delovni listi (1). Stolpci (3) = ""
4. Zaženemo dvojno zanko.
Za i = 1 Za rng.Count
Za j = i + 1 Za rng
5. V spremenljivko matchname vpišemo ime ujemanja.
matchname = rng.Cells (i) .Vrednost & "vs" & rng.Cells (j) .Vrednost
Na primer, za i = 1 in j = 2, Excel VBA zapiše ime tekme Kickers vs Shooters. Za i = 1 in j = 3 Excel VBA napiše ime tekme Kickers vs Little Giants itd.
6. Ime stolpca zapišemo v stolpec C.
Celice (števec + 1, 3). Vrednost = ime ujemanja
7. Števec beleži število ujemajočih se imen, zapisanih v stolpec C. Excel VBA poveča števec za 1 vsakič, ko zapiše ime ujemanja v stolpec C. Če želite to narediti, dodajte naslednjo kodno vrstico:
števec = števec + 1
8. Ne pozabite zapreti dveh zank.
Naprej j
Naprej i
9. Prikažemo predogled vseh možnih nogometnih tekem.
ActiveSheet.Columns (3) .PrintPreview
10. Preizkusite program.
Del rezultata:
Opomba: stolpec C je ročno centriran, da dobite ta rezultat.