Zemāk mēs apskatīsim programmu Excel VBA ka summē skaitļus pēc krāsas.
Situācija:
Jūs esat aizdevis naudu diviem divpadsmit cilvēkiem. Daži cilvēki to ir atdevuši (melnā krāsā), un daži joprojām ir jums parādā (sarkans). Jūs vēlaties zināt, cik daudz naudas jūs joprojām saņemat.
1. Pirmkārt, mēs deklarējam divus Integer tipa mainīgos. Viens nosaukts toRecept un viens ar nosaukumu i. Mēs inicializējam mainīgo toRecept ar vērtību 0.
Dim toRecept As Integer, i As Integer
saņemt = 0
2. Otrkārt, mēs sākam For Next cilpu.
Attiecībā uz i = 1 līdz 12
3. Tagad mēs pārbaudām katru numuru un tikai tad, ja skaitļa krāsa ir sarkana, mēs pievienojam numuru toRecept.
Ja šūnas (i, 1). Fonts. Krāsa = vbSarkans Tad
toReceived = toRecept + šūnas (i, 1). Vērtība
Beigas Ja
4. Neaizmirstiet slēgt cilpu.
Tālāk i
5. Visbeidzot, mēs parādām vēl saņemamo naudu. Mēs izmantojam & operatoru, lai savienotu (savienotu) divas virknes. Lai gan toReceived nav virkne, tas darbojas šeit.
MsgBox "Joprojām jāsaņem" un jāsaņem & "dolāri"
6. Ievietojiet savu makro komandu pogā un pārbaudiet to.
Rezultāts:
