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 extrakci čí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.

Tuto šablonu VBA měsíc Excel si můžete stáhnout zde - Šablona VBA měsíc Excel

Příklad č. 1

Uvidíme, jak napsat kód pro extrahování čísla měsíce od data. Datum budeme považovat za „10. října 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: Pro tuto proměnnou přiřaďte hodnotu data 10. října 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 již cílové datum uložili do proměnné „DDate“, dodáme 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. Říjnový měsíc.

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:

 Sub Month_Example2 () Range ("B2"). Hodnota = End Sub 

Otevřete funkci MĚSÍC a zadejte datum jako hodnotu RANGE 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áš, máme číslo měsíce v buňce B2.

Příklad č. 3

Získali jsme měsíc pro datum jedné buňky, ale co když máme více řá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 i funkce VBA.
  • MĚSÍC vyžaduje platný odkaz na datum, jinak se zobrazí chybová zpráva.
  • Pokud je číslo měsíce 12, vyvolá chybovou zprávu.

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