Selles artiklis loome makro, et loetleda kuud määratud perioodi ja ka selle kuu päevade vahel. Samuti kuvatakse määratud perioodi vaheliste päevade koguarv.
Oleme loonud makro “DaysInPeriod”, et loetleda kuu kuud ja päevade arv kuus. Makrot saab käivitada, klõpsates nuppu „Esita”.
Enne makro käivitamist tuleb sisestada algus- ja lõppkuupäev. See võtab väärtuse lahtris “G6” alguskuupäevaks ja väärtuse lahtris “G7” lõppkuupäevaks. Väljund kuvatakse allpool lahtris “F9”.
Kui klõpsate nupul Esita, kuvab makro veerus F kuu nime ja veerus G selle kuu päevade arvu. Viimasel real kuvatakse määratud perioodi vaheline päevade koguarv.
Loogiline seletus
Makro puhul alustame silmuseid alguskuupäevast määratud lõppkuupäevani. Lingimise ajal kontrollime kuu viimast kuupäeva. Kui leitakse kuu viimane kuupäev, kuvatakse veergudes F ja G. selle kuu nimi ja päevade arv samal kuul, samuti kontrollime lõppkuupäeva. Lõppkuupäeva ilmumisel kuvatakse viimase kuu kirje ja selle kuu päevade arv.
Palun järgige koodi allpool
Valik Explicit Sub DaysInPeriod () Dim Alguskuupäev, Lõppkuupäev Kuupäevana Dim intRow täisarvuna, intDays As Integer 'Eelmise sisuvahemiku kustutamine ("F10: G1048576"). ClearContents' Algus- ja lõppkuupäeva alguskuupäev = Vahemik ("G6") EndDate = Vahemik ("G7") 'Muutuja initsialiseerimine algusrea rea numbriks intRow = 10' Kuude ja päevade arvu loetlemine alguskuupäevast kuni lõppkuupäevani lõpukuupäevale Kui (kuu (alguskuupäev) kuu (alguskuupäev + 1)) Või alguskuupäev = lõppkuupäev Siis 'Kuu nime sisestamine Lahtrid (intRow, 6) = Vorming (alguskuupäev, "mmmm")' Kuude päevade arvu sisestamine Lahtrid ( intRow, 7) = intDays 'Järgmisele reale liikumine intRow = intRow + 1 intDays = 0 End If' Liikumine järgmisele kuupäevale = "Päevade koguhulk" (intRow, 7) = Application.Sum (vahemik ("G10: G" ja intRow)) Lõpu alam
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile