VBA-Monatsfunktion

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-Vorlage

Beispiel 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 Sub 

Hinweis: 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.