Allpool vaatame programmi Exceli VBA mis näitab printimise eelvaadet kõigist võimalikud jalgpallivõistlused meeskondade nimekirjast.
Olukord:
1. Esiteks deklareerime ühe vahemiku objekti ja neli muutujat. Nimetame Range objekti rng. Ühe Stringi muutuja nimetame matchname'iks ja kolme täisarvu muutujat loenduriks, i ja j.
Dim rng as Range, matchname As String, counter as Integer, i As Integer, j As Integer
2. Initsialiseerime rng meeskondade nimedega. Kasutame CurrentRegioni, kuna me ei tea vahemiku täpseid piire ette (tahame, et see programm töötaks 3 meeskonna jaoks, aga ka 12 meeskonna jaoks). Initsialiseerime loenduri väärtusega 0.
Määra rng = Vahemik ("A1"). Praegune piirkond
loendur = 0
3. Kirjutame veergu C kõik võimalikud jalgpallivõistlused. Esmalt tühjendame veeru C.
Töölehed (1). Veerud (3) = ""
4. Alustame Double Loop.
Sest i = 1 Rng.Count
Kui j = i + 1 rng. Loend
5. Kirjutame muutujale matchname matnamame.
matchname = rng.Cells (i) .Value & "vs" & rng.Cells (j) .Value
Näiteks kui i = 1 ja j = 2, kirjutab Excel VBA matši nime Kickers vs Shooters. Kui i = 1 ja j = 3, kirjutab Excel VBA matšnime Kickers vs Little Giants jne.
6. Kirjutame veergu C matšnime.
Lahtrid (loendur + 1, 3). Väärtus = matnimi
7. Loendur jälgib veergu C kirjutatud matjanimede arvu. Excel VBA suurendab loendurit 1 võrra iga kord, kui ta kirjutab veergu C matjanime. Selle saavutamiseks lisage järgmine koodirida:
loendur = loendur + 1
8. Ärge unustage kahe silmuse sulgemist.
Järgmine j
Edasi i
9. Näitame kõigi võimalike jalgpallivõistluste trükitud eelvaadet.
ActiveSheet.Columns (3). PrintPreview
10. Testige programmi.
Osa tulemusest:
Märkus. Selle tulemuse saamiseks on veerg C käsitsi tsentreeritud.