Zemāk mēs apskatīsim programmu Excel VBA kas parāda visu drukas priekšskatījumu iespējamās futbola spēles no komandu saraksta.
Situācija:
1. Pirmkārt, mēs deklarējam vienu diapazona objektu un četrus mainīgos. Mēs saucam Range objektu par rng. Vienu virkņu mainīgo mēs saucam par matnosaukumu, un trīs veselus mainīgos mēs saucam par skaitītāju, i un j.
Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer
2. Mēs inicializējam rng ar komandu nosaukumiem. Mēs izmantojam CurrentRegion, jo iepriekš nezinām precīzas diapazona robežas (mēs vēlamies, lai šī programma darbotos 3 komandām, bet arī 12 komandām). Mēs inicializējam skaitītāju ar vērtību 0.
Iestatīt rng = Diapazons ("A1"). Pašreizējais reģions
skaitītājs = 0
3. Mēs ierakstām visas iespējamās futbola spēles C slejā. Vispirms iztukšojam C sleju.
Darblapas (1). Kolonnas (3) = ""
4. Mēs sākam Double Loop.
Par i = 1 līdz rng. Skaitīt
J = i + 1 līdz rng. Skaitīt
5. Mēs rakstām matnosaukumu uz mainīgo matchname.
matchname = rng.Cells (i) .Value & "vs" & rng.Cells (j) .Value
Piemēram, ja i = 1 un j = 2, Excel VBA raksta kārtas nosaukumu Kickers vs Shooters. Ja i = 1 un j = 3, Excel VBA raksta segvārdu Kickers vs Little Giants utt.
6. C slejā mēs ierakstām spēles nosaukumu.
Šūnas (skaitītājs + 1, 3). Vērtība = matnosaukums
7. Skaitītājs izseko C kolonnā ierakstīto atbilstības vārdu skaitu. Excel VBA palielina skaitītāju par 1 katru reizi, kad tā kolonnā raksta matnosaukumu. Lai to panāktu, pievienojiet šādu koda rindiņu:
skaitītājs = skaitītājs + 1
8. Neaizmirstiet aizvērt divas cilpas.
Nākamais j
Tālāk i
9. Mēs parādām visu iespējamo futbola spēļu drukas priekšskatījumu.
ActiveSheet.Columns (3) .PrintPreview
10. Pārbaudiet programmu.
Daļa no rezultāta:
Piezīme: kolonna C ir manuāli centrēta, lai iegūtu šo rezultātu.