VBA mēneša funkcija | Kā iegūt mēneša numuru no datuma?

Excel VBA mēnesis

VBA mēneša funkcija ir iebūvēta funkcija, ko izmanto, lai iegūtu mēnesi no datuma, un šīs funkcijas rezultāts ir vesels skaitlis, kas svārstās no 1 līdz 12. Šī funkcija izvelk tikai mēneša numuru no piegādātās datuma vērtības.

Piemēram, ja datums ir 2019. gada 28. maijs, tad, lai iegūtu mēneša numuru no šī datuma, mēs varam izmantot funkciju MONTH.

Kā izmantot mēneša funkciju VBA?

Zemāk ir funkcijas MONTH sintakse.

Mums vienkārši jānorāda datums, no kura mēs cenšamies iegūt mēneša numuru.

Šo VBA mēneša Excel veidni varat lejupielādēt šeit - VBA mēneša Excel veidne

1. piemērs

Mēs redzēsim, kā rakstīt kodu, lai mēneša numuru izņemtu no datuma. Datums tiks noteikts kā “2019. gada 10. oktobris”.

1. darbība: sāciet makro procedūru.

Kods:

 Apakšmēnes_piemērs1 () Beigu apakšgrupa 

2. darbība: definējiet mainīgo, lai turētu datuma vērtību. Tā kā mēs glabājam datu vērtību, mūsu datu tipam jābūt “Datums”. Tāpēc deklarējiet mainīgo un piešķiriet deklarētajam mainīgajam datu tipu kā “Datums”.

Kods:

 Mēneša_piemērs1 () Dim DDate kā datuma beigu apakšdaļa 

3. darbība: šim mainīgajam piešķiriet 2019. gada 10. oktobra datuma vērtību.

Kods:

 Sub Month_Example1 () Dim DDate As Date DDate = "2019. gada 10. oktobris" Beigu apakšnodaļa 

4. solis: Tagad piešķiriet mēneša numuru, lai vēl vienu mainīgo deklarētu kā “Integer”.

Kods:

 Apakšmēnesis_piemērs1 () Dim DDate kā datums Dim MonthNum As Integer DDate = "2019. gada 10. oktobris" Beigu apakšnodaļa 

Piezīme . Iemesls, kāpēc esam pasludinājuši mainīgo kā veselu skaitli, jo mūsu mēneša skaitīšana beidzas tikai ar 12 Tātad vesels skaitlis datu tips var turēt šo skaitli.

5. solis: šim mainīgajam mēs atvērsim funkciju MONTH.

Kods:

 Apakšmēnes_piemērs1 () Dim DDate kā datums Dim MonthNum As Integer DDate = "2019. gada 10. oktobris" MonthNum = mēnesis (beigu apakšdaļa 

6. solis: mēneša funkcija, kurā tiek prasīts “Datums”, kas jānorāda, lai iegūtu mēneša numuru. Tā kā mainīgais “DDate” jau ir saglabājis mērķa datumu, sniedziet šo mainīgo kā mēneša funkcijas ievades parametru.

Kods:

 Apakšmēnes_piemērs1 () Dim DDate kā datums Dim MonthNum As Integer DDate = "2019. gada 10. oktobris" MonthNum = mēnesis (DDate) Beigu apakšnodaļa 

7. solis: Tagad funkcija “Mēnesis” atgriezīs mēneša numuru no norādītā datuma mainīgajam “MonthNum” un visbeidzot parādīs rezultātu VBA ziņojumu lodziņā.

Kods:

 Apakš mēnesis_piemērs1 () Dim DDate kā datums Dim MonthNum As Integer DDate = "10. oktobris 2019" MonthNum = mēnesis (DDate) MsgBox MonthNum End Sub 

Palaidiet kodu un ziņojuma lodziņā skatiet mēneša numuru.

Izeja:

Tātad mēneša numurs no norādītā datuma ir 10. ti, oktobra mēnesis.

2. piemērs

Tagad kodēšanai izmantosim šūnu atsauces. Zemāk ir datums, kas mums ir norādīts darblapā.

Tātad no šūnas A2 datuma vērtības mums jāizņem mēneša numurs šūnā B2.

Kods:

 Apakšmēneša_piemērs2 () diapazons ("B2"). Vērtība = Apakšgrupa 

Atveriet MONTH funkciju un norādiet datumu kā RANGE A2 vērtību.

Kods:

 Mēneša_piemērs2 () diapazons ("B2"). Vērtība = mēnesis (diapazons ("A2")) Beigas apakšdaļa 

Iemesls, kāpēc mēs piegādājām A2 diapazona šūnu, jo šoreiz mūsu datums ir šūnā A2, tāpēc tas pats būs atsauce.

Tagad izpildiet kodu un iegūstiet mēneša numuru no datuma šūnā B2.

Lūk, mēs saņēmām mēneša numuru šūnā B2.

3. piemērs

Mēs esam ieguvuši mēnesi vienas šūnas datumam, bet kas notiks, ja mums būs vairākas datu rindas, piemēram, zemāk esošā.

Šādos gadījumos mums ir jāapgūst šūnas un jāizpilda uzdevums iegūt mēneša numuru no katra attiecīgā datuma.

Zemāk redzamais kods padarīs darbu mūsu vietā.

Kods:

 Apakšmēnes_piemērs3 () Dim k tik ilgi, kamēr k = 2 līdz 12 šūnas (k, 3). Vērtība = mēnesis (šūnas (k, 2). Vērtība) Nākamā k beigu apakšdaļa 

Tas, ko šis kods darīs, ir tas, ka tas cilpos caur rindām no 2 līdz 12, mēneša numuru izvelk no otrās kolonnas un rezultātu saglabā trešajā kolonnā.

Šeit jāatceras lietas

  • MĒNESIS ir darblapas funkcija, kā arī VBA funkcija.
  • MONTH pieprasa derīgu datuma atsauci citādi, mēs saņemsim kļūdas ziņojumu.
  • Ja mēneša skaitlis ir 12, tas izmetīs kļūdas ziņojumu.

$config[zx-auto] not found$config[zx-overlay] not found