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 lukua 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.
Esimerkki 1
Näemme, kuinka kirjoitetaan koodi kuukausiluvun poimimiseksi päivämäärästä. Otamme päivämäärä ”10 th lokakuu 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 "Päivämäärä". 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: Tätä muuttuja, antaa arvoon perustuva 10 th lokakuu 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ä Helmikuun lukumäärä kokonaislukuna DDate = "10.10.2019" Loppuosa
Vaihe 5: Tälle muuttujalle avataan MONTH-toiminto.
Koodi:
Alikuukausi_esimerkki1 () Himmennä päivämäärä päivämääränä Himmennä kuukausiluku 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 kohdennettu päivämäärä on jo tallennettu muuttujaan "DDate", anna tämä muuttuja kuukauden funktion syöttöparametriksi.
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ää lopulta tuloksen VBA-viestiruudussa.
Koodi:
Alikuukausi_esimerkki1 () Himmennä päivämäärä päivämääränä Himmennä kuukausiLuku kokonaislukuna
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
Open the MONTH function and supply the date as RANGE A2 value.
Code:
Sub Month_Example2() Range("B2").Value = Month(Range("A2")) End Sub
The reason why we have supplied Range A2 cell because this time, our date is in the cell A2, so the same will be the reference.
Now execute the code and get the month number from the date in cell B2.
Here you go, we got the month number in cell B2.
Example #3
We have extracted the month for the single-cell date, but what if we have multiple rows of data like the below one.
In these cases, we need to loop through the cells and execute the task of extracting the month number from each respective date.
The below code will do the job for us.
Code:
Sub Month_Example3() Dim k As Long For k = 2 To 12 Cells(k, 3).Value = Month(Cells(k, 2).Value) Next k End Sub
Tämä koodi tekee, että se selaa rivejä 2-12, poimi kuukauden numeron toisesta sarakkeesta ja tallentaa tuloksen kolmanteen sarakkeeseen.
Muistettavaa täällä
- KUUKAUSI on laskentataulukko- ja VBA-toiminto.
- MONTH vaatii muuten kelvollisen päivämääräviitteen, saamme virheilmoituksen.
- Jos kuukauden numero on 12, se heittää virheilmoituksen.
