Zemāk mēs apskatīsim programmu Excel VBA kas skaita skaitu gada notikumi.
Situācija:
Piezīme: datumi ir ASV formātā. Mēneši pirmie, otrās dienas. Šis formāta veids ir atkarīgs no jūsu Windows reģionālajiem iestatījumiem.
1. Pirmkārt, mēs deklarējam trīs Integer tipa mainīgos. Vienu mainīgo mēs saucam par yearCount, vienu mainīgo mēs saucam par yearAsk un vienu mainīgo mēs saucam par i.
Dim gadsCount As Integer, yearAsk As Integer, i As Integer
2. Mēs inicializējam yearCount ar vērtību 0 un yearAsk ar šūnas C4 vērtību.
yearCount = 0
yearAsk = Diapazons ("C4"). Vērtība
3. Mēs sākam For For Next cilpu.
Ja i = 1 līdz 16
4. Tagad mēs pārbaudām katru datumu un tikai tad, ja datuma gads ir vienāds ar ievadīto gadu šūnā C4, mēs gadu palielinām par 1. Mēs izmantojam funkciju Gads, lai iegūtu datuma gadu.
Ja gads (šūnas (i, 1). Vērtība) = yearAsk Tad
yearCount = yearCount + 1
Beigas Ja
5. Neaizmirstiet slēgt cilpu.
Tālāk i
6. Visbeidzot, mēs parādām kopējos gada notikumus. Mēs izmantojam & operatoru, lai savienotu (savienotu) divas virknes.
MsgBox yearCount & "notikumi gadā" & yearAsk
7. Ievietojiet savu makro komandu pogā un pārbaudiet to.
Rezultāts:
Piezīme: tā kā mēs izveidojām mainīgo yearAsk, jūs varat vienkārši saskaitīt cita gada notikumu skaitu, ievadot citu gadu šūnā C4 un vēlreiz noklikšķinot uz komandas pogas.
