VBA Mesečna funkcija - Kako pridobiti mesečno številko od datuma?

Mesec Excel VBA

VBA Month Function je vgrajena funkcija, ki se uporablja za pridobivanje meseca od datuma, izhod, ki ga vrne ta funkcija, je celo število od 1 do 12. Ta funkcija samo izšteje številko meseca iz podane vrednosti datuma.

Če je na primer datum 28. maj 2019, lahko za izvleček številke meseca iz tega datuma uporabimo funkcijo MONTH.

Kako uporabiti mesečno funkcijo v VBA?

Spodaj je sintaksa funkcije MONTH.

Navesti moramo le datum, od katerega poskušamo pridobiti številko meseca.

Primer # 1

Videli bomo, kako napisati kodo, da izvlečemo številko meseca iz datuma. Mi bo datum kot "10 th oktober 2019".

1. korak: Zaženite postopek makra.

Koda:

Podmesec_Primer1 () Konec Pod

2. korak: Določite spremenljivko, ki bo vsebovala vrednost datuma. Ker shranjujemo podatkovno vrednost, bi moral biti naš tip podatkov „Datum“. Torej prijavite spremenljivko in deklarirani spremenljivki dodelite podatkovni tip kot »Datum«.

Koda:

Sub Month_Example1 () Dim DDate Kot Date End Sub

Korak 3: Za te spremenljivke, določite datum vrednost 10 th oktober 2019.

Koda:

Sub Month_Example1 () Dim DDate As Date DDate = "10. oktober 2019" End Sub

4. korak: Zdaj dodelite številko meseca, da razglasite še eno spremenljivko kot »Celo število«.

Koda:

Sub Month_Example1 () Dim DDate Kot Date Dim MonthNum As Integer DDate = "10. oktober 2019" End Sub
Opomba: Razlog, zakaj smo spremenljivko razglasili za celo število, ker se naše štetje mesecev konča samo ob 12. Celoštevilčni podatkovni tip torej lahko vsebuje to številko.

5. korak: Za to spremenljivko bomo odprli funkcijo MONTH.

Koda:

Sub Month_Example1 () Dim DDate kot datum Dim MonthNum As Integer DDate = "10. oktober 2019" MonthNum = Month (End Sub

6. korak: Mesečna funkcija, ki zahteva vnos datuma, ki ga je treba navesti, da izvleče številko meseca. Ker smo ciljni datum že shranili v spremenljivko "DDate", vnesite to spremenljivko kot vhodni parameter za funkcijo meseca.

Koda:

Sub Month_Example1 () Dim DDate Kot Date Dim MonthNum As Integer DDate = "10. oktober 2019" MonthNum = Month (DDate) End Sub

7. korak: Zdaj funkcija »Mesec« vrne številko meseca od navedenega datuma na spremenljivko »MonthNum« in rezultat končno prikaže v polju za sporočila v VBA.

Koda:

Sub Month_Example1 () Dim DDate kot datum Dim MonthNum As Integer DDate = "10. oktober 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub

Zaženite kodo in v polju za sporočilo si oglejte številko meseca.

Izhod:

Številka meseca od navedenega datuma je torej 10, tj. Oktobrski mesec.

2. primer

Zdaj bomo za kodiranje vzeli sklice na celice. Spodaj je datum, ki ga imamo na delovnem listu.

Torej iz datumske vrednosti celice A2 moramo v celico B2 izvleči številko meseca.

Koda:

Podmesec_Primer2 () Obseg ("B2"). Vrednost = Konec pod

Odprite funkcijo MONTH in vnesite datum kot vrednost RANGE A2.

Koda:

Sub Month_Example2 () Obseg ("B2"). Vrednost = Mesec (Obseg ("A2")) Konec Sub

Razlog, zakaj smo dobavili celico Range A2, ker je tokrat naš datum v celici A2, zato bo isti referenčni.

Zdaj izvedite kodo in dobite številko meseca od datuma v celici B2.

Izvolite, v celici B2 imamo številko meseca.

3. primer

Izdvojili smo mesec za enocelični datum, a kaj, če imamo več vrstic podatkov, kot je spodnja.

V teh primerih moramo zapreti celice in izvesti nalogo, kako iz vsakega datuma izvleči številko meseca.

Spodnja koda bo opravila delo namesto nas.

Koda:

Sub Month_Example3 () Dim k Kako dolgo za k = 2 do 12 celic (k, 3) .Vrednost = mesec (celice (k, 2) .Vrednost) Naslednji k End Sub

Ta koda bo storila, da bo zavila skozi vrstice od 2 do 12 in iz drugega stolpca izvlekla številko meseca ter rezultat shranila v tretji stolpec.

Tukaj si je treba zapomniti

  • MONTH je funkcija delovnega lista in funkcija VBA.
  • MONTH zahteva veljaven sklic datuma, sicer bomo dobili sporočilo o napaki.
  • Če je številka meseca 12, se prikaže sporočilo o napaki.

Zanimive Članki...