Spodaj si bomo ogledali program v Excel VBA ki prikazuje predogled tiskanja vseh možne nogometne tekme s seznama ekip.
Položaj:
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.
NobenarngAsDomet, ime tekmeAs Vrvica, števecAs Celo število, jazAs Celo število, jAs Celo število2. Inicializiramo rng z imeni ekip. Uporabljamo CurrentRegion 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.
pretvori sekunde v ure vNastavljenorng = Obseg ('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čnemo a Dvojna zanka .
kako narediti tabele podatkov vZai = 1Zarng.Count
Zaj = i + 1Zarng.Count
5. V spremenljivko matchname vpišemo ime ujemanja.
matchname = rng.Cells (i) .Vrednost & 'vs' & rng.Cells (j) .VrednostNa primer, za i = 1 in j = 2, Excel VBA zapiše ime tekme Kickers vs Shooters. Za i = 1 in j = 3 Excel VBA zapiše ime tekme Kickers vs Little Giants itd.
6. Ime stolpca zapišemo v stolpec C.
Celice (števec + 1, 3). Vrednost = ime ujemanja7. Števec beleži število imen ujemanj, zapisanih v stolpec C. Excel VBA poveča števec za 1 vsakič, ko vnese ime ujemanja v stolpec C. Če želite to narediti, dodajte naslednjo kodno vrstico:
števec = števec + 18. Ne pozabite zapreti dveh zank.
NaslednjijNaslednjijaz
9. Prikazujemo predogled vseh možnih nogometnih tekem.
ustvari obrobo okoli izbranih celic z uporabo vseh obrob ali orisa in znotrajActiveSheet.Columns (3) .PrintPreview
10. Preizkusite program.
Del rezultata:
Opomba: stolpec C je ročno centriran, da dobite ta rezultat.
Pojdi na naslednje poglavje: Spremenljivke
