Excel VBA Monat
Die VBA- Monatsfunktion ist eine integrierte Funktion, mit der der Monat von einem Datum abgerufen wird. Die von dieser Funktion zurückgegebene Ausgabe ist eine Ganzzahl zwischen 1 und 12. Diese Funktion extrahiert nur die Monatszahl aus dem angegebenen Datumswert.
Wenn das Datum beispielsweise der 28. Mai 2019 ist, können Sie die MONAT-Funktion verwenden, um die Monatsnummer aus diesem Datum zu extrahieren.
Wie verwende ich die Monatsfunktion in VBA?
Unten finden Sie die Syntax der MONTH-Funktion.
Wir müssen nur das Datum angeben, ab dem wir versuchen, die Monatszahl zu extrahieren.
Sie können diese VBA-Monats-Excel-Vorlage hier herunterladen - VBA-Monats-Excel-VorlageBeispiel 1
Wir werden sehen, wie man einen Code schreibt, um die Monatszahl aus dem Datum zu extrahieren. Wir nehmen das Datum als "10. Oktober 2019".
Schritt 1: Starten Sie die Makroprozedur.
Code:
Sub Month_Example1 () End Sub
Schritt 2: Definieren Sie die Variable für den Datumswert. Da wir den Datenwert speichern, sollte unser Datentyp "Datum" sein. Deklarieren Sie also die Variable und weisen Sie der deklarierten Variablen den Datentyp als "Datum" zu.
Code:
Sub Month_Example1 () DDate als Datumsende dimmen Sub
Schritt 3: Weisen Sie dieser Variablen den Datumswert vom 10. Oktober 2019 zu.
Code:
Sub Month_Example1 () Dim DDate As Date DDate = "10 Oct 2019" End Sub
Schritt 4: Weisen Sie nun die Monatsnummer zu, um eine weitere Variable als "Ganzzahl" zu deklarieren.
Code:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" End SubHinweis: Der Grund, warum wir die Variable als Ganzzahl deklariert haben, weil unsere Monatszahl nur bei 12 endet. Der ganzzahlige Datentyp kann also diese Nummer enthalten.
Schritt 5: Für diese Variable öffnen wir die MONTH-Funktion.
Code:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10. Oktober 2019" MonthNum = Month (End Sub
Schritt 6: Monatsfunktion fragt nach dem „Datum“, das angegeben werden muss, um die Monatsnummer zu extrahieren. Da wir das Zieldatum bereits in der Variablen „DDate“ gespeichert haben, geben Sie diese Variable als Eingabeparameter für die Monatsfunktion an.
Code:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10. Oktober 2019" MonthNum = Month (DDate) End Sub
Schritt 7: Jetzt gibt die Funktion "Monat" die Monatsnummer vom angegebenen Datum an die Variable "MonthNum" zurück und zeigt das Ergebnis schließlich in einem Meldungsfeld in VBA an.
Code:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10. Oktober 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub
Führen Sie den Code aus und sehen Sie die Monatsnummer im Meldungsfeld.
Ausgabe:
Die Monatsnummer ab dem angegebenen Datum ist also 10, dh Oktobermonat.
Beispiel 2
Jetzt nehmen wir Zellreferenzen zur Codierung. Unten ist das Datum, das wir im Arbeitsblatt haben.
Aus dem Datumswert der Zelle A2 müssen wir also die Monatszahl in die Zelle B2 extrahieren.
Code:
Sub Month_Example2 () Range ("B2"). Value = End Sub
Öffnen Sie die MONTH-Funktion und geben Sie das Datum als RANGE A2-Wert ein.
Code:
Sub Month_Example2 () Range ("B2"). Value = Month (Range ("A2")) End Sub
Der Grund, warum wir die Zelle Range A2 geliefert haben, weil unser Datum diesmal in der Zelle A2 liegt, ist dies auch die Referenz.
Führen Sie nun den Code aus und erhalten Sie die Monatsnummer ab dem Datum in Zelle B2.
Los geht's, wir haben die Monatsnummer in Zelle B2.
Beispiel 3
Wir haben den Monat für das Einzelzellen-Datum extrahiert, aber was ist, wenn wir mehrere Datenzeilen wie die folgende haben?
In diesen Fällen müssen wir die Zellen durchlaufen und die Aufgabe ausführen, die Monatsnummer aus dem jeweiligen Datum zu extrahieren.
Der folgende Code erledigt die Arbeit für uns.
Code:
Sub Month_Example3 () Dim k As Long For k = 2 bis 12 Zellen (k, 3) .Value = Month (Zellen (k, 2) .Value) Next k End Sub
Dieser Code durchläuft die Zeilen von 2 bis 12 und extrahiert die Monatszahl aus der zweiten Spalte und speichert das Ergebnis in der dritten Spalte.
Dinge, an die man sich hier erinnern sollte
- MONTH ist eine Arbeitsblattfunktion sowie eine VBA-Funktion.
- MONAT erfordert eine gültige Datumsreferenz, andernfalls erhalten wir eine Fehlermeldung.
- Wenn die Monatszahl 12 ist, wird eine Fehlermeldung ausgegeben.