VBA kuu funktsioon - Kuidas saada kuu numbrit kuupäevast?

Lang L: none (table-of-contents)

Exceli VBA kuu

VBA kuufunktsioon on sisseehitatud funktsioon, mida kasutatakse kuu saamiseks kuupäevast alates ja selle funktsiooni tagastatav väljund on täisarv vahemikus 1 kuni 12. See funktsioon eraldab kuu numbri ainult tarnitud kuupäeva väärtusest.

Näiteks kui kuupäev on 28. mai-2019, siis kuunumbri väljavõtmiseks sellest kuupäevast saame kasutada funktsiooni KUU.

Kuidas kasutada kuufunktsiooni VBA-s?

Allpool on funktsiooni MONTH süntaks.

Peame lihtsalt esitama kuupäeva, millest alates proovime välja võtta kuu numbrit.

Näide 1

Näeme, kuidas kirjutada kood, et kuu number kuupäevast välja tõmmata. Võtame kuupäev "10 th oktoober 2019".

1. samm: käivitage makroprotseduur.

Kood:

Alamkuu_näide1 () Lõpp alam

2. samm: määratlege muutuja kuupäeva väärtuse hoidmiseks. Kuna me salvestame andmete väärtust, peaks meie andmetüübiks olema „Kuupäev”. Seega deklareerige muutuja ja määrake deklareeritud muutujale andmetüübiks kuupäev.

Kood:

Alamkuu_näide1 () Dim DDate kuupäeva lõpu alam

Samm 3: Selle muutuja määrata kuupäeva väärtus 10 th oktoober 2019.

Kood:

Alamkuu_näide1 () Dim DDate As Date DDate = "10. oktoober 2019" End Sub

4. samm: määrake nüüd kuu number, et deklareerida veel üks muutuja kui täisarv.

Kood:

Alamkuu_näide1 () Hämarda Kuupäev Kuupäevana Dim KuuNum täisarvuna Kuupäev = "10. oktoober 2019" Lõpp-alam
Märkus . Põhjus, miks oleme muutuja deklareerinud täisarvuna, kuna meie kuuarv lõpeb ainult kell 12. Nii et täisarvu andmetüüp mahutab seda arvu.

5. samm: selle muutuja jaoks avame funktsiooni MONTH.

Kood:

Alam Kuu_näide1 () Hämarda Kuupäev Kuupäevana Kuu Kuu Summa täisarvuna Kuupäev = "10. oktoober 2019" KuuNum = kuu (lõpu alam

6. samm: kuufunktsioon, mis küsib kuu numbri väljavõtmiseks kuupäeva, mis tuleb esitada. Kuna sihitud kuupäev on muutujale „DDate” juba salvestatud, esitage see muutuja kuufunktsiooni sisendparameetrina.

Kood:

Alam Kuu_näide1 () Hämarda Kuupäev Kuupäevana Dim KuuNum Täisarvuna DDate = "10. oktoober 2019" MonthNum = Kuu (DDate) Lõpp-alam

Samm 7: Nüüd tagastab funktsioon “Kuu” kuu numbri alates esitatud kuupäevast muutujale “MonthNum” ja näitab tulemust lõpuks VBA teatekastis.

Kood:

Alam Kuu_näide1 () Hämarda Kuupäev Kuupäevana Dim KuuNum As Täisarv DDate = "10. oktoober 2019" MonthNum = Kuu (DDate) MsgBox MonthNum End Sub

Käivitage kood ja vaadake teatekastis kuu numbrit.

Väljund:

Seega on kuu number alates esitatud kuupäevast 10, st oktoobri kuu.

Näide 2

Nüüd võtame kodeerimiseks lahtriviited. Allpool on kuupäev, mis meil töölehel on.

Seega peame lahtrist A2 kuupäeva väärtusest lahutama kuu numbri lahtrisse B2.

Kood:

Alamkuu_näide2 () vahemik ("B2"). Väärtus = Lõpp alam

Avage funktsioon MONTH ja sisestage kuupäev RANGE A2 väärtusena.

Kood:

Alamkuu_näide2 () vahemik ("B2"). Väärtus = kuu (vahemik ("A2")) Lõpp alam

Põhjus, miks oleme tarninud vahemiku A2 lahtrit, kuna seekord on meie kuupäev lahtris A2, nii et sama on ka viide.

Nüüd käivitage kood ja hankige kuu number lahtris B2 olevast kuupäevast.

Siin on, saime lahtrisse B2 kuu numbri.

Näide # 3

Oleme ühe lahtriga kuupäeva jaoks eraldanud kuu, kuid mis siis, kui meil on mitu rida andmeid nagu allpool.

Sellistel juhtudel peame lahtrid läbi uurima ja täitma kuu numbri väljavõtmise ülesande igast vastavast kuupäevast.

Allolev kood teeb selle töö meie eest ära.

Kood:

Alamkuu_näide3 () Dim k nii pikk, kui k = 2 kuni 12 lahtrit (k, 3). Väärtus = kuu (lahtrid (k, 2). Väärtus) Järgmine k Lõpp alam

See kood teeb seda, et see viib läbi read 2 kuni 12, eraldab teisest veerust kuu numbri ja salvestab tulemuse kolmandasse veergu.

Siinkohal meeldejäävad asjad

  • KUU on töölehe funktsioon, samuti VBA funktsioon.
  • MONTH nõuab teisiti kehtivat kuupäevaviidet, saame veateate.
  • Kui kuu number on 12, siis viskab see veateate.

Huvitavad Artiklid...