Funkce měsíce VBA - Jak získat číslo měsíce od data?

Excel VBA měsíc

Funkce VBA Month je vestavěná funkce používaná k získání měsíce od data a výstup vrácený touto funkcí je celé číslo od 1 do 12. Tato funkce pouze extrahuje číslo měsíce z dodané hodnoty data.

Pokud je například datum 28. května 2019, pak k získání čísla měsíce od tohoto data můžeme použít funkci MĚSÍC.

Jak používat funkci měsíce ve VBA?

Níže je uvedena syntaxe funkce MĚSÍC.

Musíme pouze uvést datum, od kterého se snažíme extrahovat číslo měsíce.

Příklad č. 1

Uvidíme, jak napsat kód pro extrahování čísla měsíce od data. Budeme mít datum jako „10 -tého Oct 2019".

Krok 1: Spusťte postup makra.

Kód:

SubMěsíc_Example1 () Konec Sub

Krok 2: Definujte proměnnou pro uchování hodnoty data. Protože ukládáme datovou hodnotu, náš datový typ by měl být „Datum“. Deklarujte tedy proměnnou a přiřaďte datový typ deklarované proměnné jako „Datum“.

Kód:

SubMěsíc_Example1 () Dim DDate as Date End Sub

Krok 3: K této proměnné přiřadit hodnotu data z 10 th Oct 2019.

Kód:

SubMěsíc_Example1 () Dim DDate As Date DDate = "10 Oct 2019" End Sub

Krok 4: Nyní přiřaďte číslo měsíce k deklaraci další proměnné jako „Celé číslo“.

Kód:

SubMěsíc_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" End Sub
Poznámka: Důvod, proč jsme proměnnou deklarovali jako Integer, protože náš počet měsíců končí pouze na 12. Celočíselný datový typ tedy může obsahovat toto číslo.

Krok 5: U této proměnné otevřete funkci MĚSÍC.

Kód:

SubMěsíc_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (End Sub

Krok 6: Funkce měsíce s dotazem na „Datum“, které je třeba zadat, aby bylo možné extrahovat číslo měsíce. Protože jsme cílové datum již uložili do proměnné „DDate“, zadejte tuto proměnnou jako vstupní parametr pro funkci měsíce.

Kód:

SubMěsíc_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) End Sub

Krok 7: Funkce „Měsíc“ nyní vrátí číslo měsíce od zadaného data do proměnné „Měsíc“ a nakonec zobrazí výsledek v okně se zprávou ve VBA.

Kód:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub

Spusťte kód a podívejte se na číslo měsíce v okně se zprávou.

Výstup:

Takže číslo měsíce od dodaného data je 10, tj. Měsíc říjen.

Příklad č. 2

Nyní vezmeme odkazy na buňky pro kódování. Níže je datum, které máme v listu.

Takže z hodnoty data buňky A2 musíme extrahovat číslo měsíce do buňky B2.

Kód:

SubMěsíc_Example2 () Rozsah ("B2"). Hodnota = Konec Sub

Otevřete funkci MĚSÍC a zadejte datum jako hodnotu ROZSAH A2.

Kód:

Sub Month_Example2 () Range ("B2"). Value = Month (Range ("A2")) End Sub

Důvod, proč jsme dodali buňku Range A2, protože tentokrát je naše datum v buňce A2, takže stejný bude odkaz.

Nyní proveďte kód a získejte číslo měsíce od data v buňce B2.

Tady máš, dostali jsme číslo měsíce do buňky B2.

Příklad č. 3

Získali jsme měsíc pro datum jedné buňky, ale co když máme několik řádků dat, jako je ten níže.

V těchto případech musíme projít buňkami a provést úkol extrahovat číslo měsíce od každého příslušného data.

Níže uvedený kód provede práci za nás.

Kód:

Sub Month_Example3 () Dim k As Long Pro k = 2 až 12 buněk (k, 3). Hodnota = Měsíc (buňky (k, 2). Hodnota) Další k Konec Sub

Co tento kód udělá, bude procházet řádky od 2 do 12 a extrahovat číslo měsíce z druhého sloupce a uložit výsledek do třetího sloupce.

Na co si pamatovat zde

  • MĚSÍC je funkce listu, stejně jako funkce VBA.
  • MĚSÍC vyžaduje jiný platný odkaz na datum, zobrazí se chybová zpráva.
  • Pokud je číslo měsíce 12, vyvolá chybovou zprávu.

Zajímavé články...