Šajā rakstā mēs izveidosim makro, lai uzskaitītu mēnešus starp noteikto periodu un arī dienu skaitu konkrētajā mēnesī. Tajā tiks parādīts arī kopējais dienu skaits starp noteikto periodu.
Mēs esam izveidojuši makro “DaysInPeriod”, lai uzskaitītu mēnešus un dienu skaitu mēnesī. Makro var izpildīt, noklikšķinot uz pogas “Iesniegt”.
Pirms makro palaišanas ir jānorāda sākuma un beigu datums. Šūnā “G6” tiek izmantota vērtība kā sākuma datums, bet šūnā “G7” - kā beigu datums. Izvads tiks parādīts zemāk šūnā “F9”.
Noklikšķinot uz pogas Iesniegt, makro parādīs mēneša nosaukumu F slejā un dienu skaitu šajā mēnesī ailē G. Pēdējā rindā tiks parādīts kopējais dienu skaits starp norādīto periodu.
Loģisks skaidrojums
Makro mēs sākam cilpas no sākuma datuma līdz norādītajam beigu datumam. Cilpas laikā mēs pārbaudām mēneša pēdējo datumu. Ja tiek konstatēts mēneša pēdējais datums, tad kolonnās F un G tiek parādīts mēneša nosaukums un dienu skaits šajā mēnesī, līdzīgi mēs pārbaudām arī beigu datumu. Kad tiek konstatēts beigu datums, tiek parādīts pēdējā mēneša ieraksts un šī mēneša dienu skaits.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub DaysInPeriod () Dim StartDate, EndDate kā Date Dim intRow As Integer, intDays As Integer 'Iepriekšējā satura diapazona notīrīšana ("F10: G1048576"). ClearContents' Sākuma un beigu datuma sākšanaDatums = Diapazons ("G6") EndDate = Diapazons ("G7") 'Mainīgā inicializēšana līdz sākuma rindas numuram intRow = 10' Mēnešu un dienu skaita uzskaitīšana no sākuma datuma līdz beigu datumam Do intDays = intDays + 1 'Mēneša pēdējā datuma pārbaude vai tad, kad sākuma datums ir vienāds uz beigu datumu Ja (mēnesis (sākuma datums) mēnesis (sākuma datums + 1)) vai sākuma datums = beigu datums Tad 'mēneša nosaukuma ievietošana šūnās (intRow, 6) = formāts (sākuma datums, "mmmm")' Mēneša dienu skaita ievietošana šūnās ( intRow, 7) = intDays 'Pāriet uz nākamo rindu intRow = intRow + 1 intDays = 0 End If' Pāriet uz nākamo datumu StartDate = StartDate + 1 Loop Before StartDate> EndDate 'Summas iegūšana pēdējā rindā Šūnas = "Kopējais dienu" šūnas (intRow, 7) = Application.Sum (Diapazons ("G10: G" un intRow)) Beigu apakšdaļa
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē