VBA-kuukausitoiminto | Kuinka saada kuukausiluku päivämäärästä?
Excel VBA -kuukausi
VBA Month Function on sisäänrakennettu toiminto, jota käytetään kuukauden saamiseksi päivämäärästä, ja tämän toiminnon palauttama lähtö on kokonaisluku välillä 1-12. Tämä toiminto poimii vain kuukauden numeron toimitetusta päivämääräarvosta.
Esimerkiksi, jos päivämäärä on 28. toukokuuta-2019, voimme käyttää kuukauden numeroa tästä päivästä MONTH-funktiolla.
Kuinka käyttää kuukausitoimintoa VBA: ssa?
Alla on MONTH-funktion syntaksit.
Meidän on vain annettava päivämäärä, josta yritämme poimia kuukauden numeron.
Voit ladata tämän VBA Month Excel -mallin täältä - VBA Month Excel -malliEsimerkki 1
Näemme, kuinka kirjoitetaan koodi kuukausiluvun poimimiseksi päivämäärästä. Otamme päivämäärän "10. lokakuuta 2019".
Vaihe 1: Käynnistä makromenettely.
Koodi:
Alikuukausi_Esimerkki1 () Loppu Alim
Vaihe 2: Määritä muuttuja pitämään päivämääräarvo. Koska tallennamme data-arvoa, tietotyyppimme tulisi olla ”Date”. Joten ilmoita muuttuja ja määritä ilmoitetulle muuttujalle tietotyyppi nimellä "Päivämäärä".
Koodi:
Alikuukausi_Esimerkki1 () Himmennä Päivämäärä päivämäärän lopussa Alim
Vaihe 3: Määritä tälle muuttujalle päivämääräarvo 10. lokakuuta 2019.
Koodi:
Alikuukausi_Esimerkki1 () Himmennä Päivämäärä Päivämääränä DDate = "10.10.2019" Loppuosa
Vaihe 4: Määritä nyt kuukauden numero, jotta yksi muuttuja ilmoitetaan kokonaisluvuksi.
Koodi:
Alikuukausi_esimerkki1 () Himmennä päivämäärä päivämääränä Dim Kuukausisumma kokonaislukuna DDate = "10.10.2019" Loppu
Vaihe 5: Tälle muuttujalle avataan MONTH-toiminto.
Koodi:
Alikuukausi_esimerkki1 () Himmennä päivämäärä päivämääränä Helmikuun lukumäärä kokonaislukuna DPäivämäärä = "10. lokakuuta 2019" kuukausi = kuukausi (loppuosa
Vaihe 6: Kuukausitoiminto, joka pyytää päivämäärää, joka on annettava kuukauden numeron noutamiseksi. Koska olemme jo tallentaneet kohdennetun päivämäärän muuttujaan "DDate", toimita tämä muuttuja kuukauden funktion syöttöparametrina.
Koodi:
Alikuukausi_esimerkki1 () Himmennä päivämäärä päivämääränä Dim Kuukauden luku kokonaislukuna DDate = "10.10.2019" MonthNum = kuukausi (DDate) Loppuosa
Vaihe 7: Nyt "Kuukausi" -toiminto palauttaa kuukauden numeron toimitetusta päivämäärästä muuttujaan "MonthNum" ja näyttää lopuksi tuloksen VBA-viestiruudussa.
Koodi:
Alikuukausi_esimerkki1 () Himmennä päivämäärä päivämääränä Himmennä kuukausiluku kokonaislukuna DPäivämäärä = "10.10.2019" Kuukausisumma = kuukausi (päiväys) MsgBox Kuukaudenarvo loppu
Suorita koodi ja katso kuukauden numero viestiruudussa.
Tuotos:
Joten kuukauden numero toimitetusta päivämäärästä on 10 eli lokakuun kuukausi.
Esimerkki 2
Nyt otamme soluviitteet koodausta varten. Alla on laskentataulukossa oleva päivämäärä.
Joten solun A2 päivämääräarvosta meidän on purettava kuukauden numero soluun B2.
Koodi:
Alikuukausi_esimerkki2 () -alue ("B2"). Arvo = Lopeta ali
Avaa MONTH-toiminto ja anna päivämäärä RANGE A2 -arvoksi.
Koodi:
Alikuukausi_esimerkki2 () Alue ("B2"). Arvo = Kuukausi (Alue ("A2")) Alalohko
Syy miksi olemme toimittaneet Range A2 -solun, koska tällä kertaa päivämäärä on solussa A2, joten sama on viite.
Suorita nyt koodi ja hae kuukauden numero solussa B2 olevasta päivämäärästä.
Tässä on, saimme kuukauden numeron solussa B2.
Esimerkki 3
Olemme poimineet yhden solun päivämäärän kuukauden, mutta mitä jos meillä on useita tietorivejä, kuten alla oleva.
Näissä tapauksissa meidän on mentävä solujen läpi ja suoritettava kuukausinumeron poiminta jokaisesta päivämäärästä.
Alla oleva koodi tekee työn meille.
Koodi:
Alikuukausi_esimerkki3 () Himmennä k niin kauan kuin k = 2 - 12 solua (k, 3). Arvo = Kuukausi (solut (k, 2). Arvo) Seuraava k Lopeta ali
Tämä koodi tekee, että se selaa rivejä 2-12, poimi kuukauden numeron toisesta sarakkeesta ja tallentaa tuloksen kolmanteen sarakkeeseen.
Muistettavaa täällä
- MONTH on laskentataulukko- ja VBA-toiminto.
- MONTH vaatii voimassa olevan päivämääräviitteen muuten, saamme virheilmoituksen.
- Jos kuukauden numero on 12, se heittää virheilmoituksen.
