Fonction de mois VBA

Mois Excel VBA

La fonction de mois VBA est une fonction intégrée utilisée pour obtenir le mois à partir d'une date et la sortie renvoyée par cette fonction est un entier compris entre 1 et 12. Cette fonction extrait uniquement le numéro du mois de la valeur de date fournie.

Par exemple, si la date est 28-mai-2019, pour extraire le numéro du mois de cette date, nous pouvons utiliser la fonction MONTH.

Comment utiliser la fonction de mois dans VBA?

Voici la syntaxe de la fonction MONTH.

Nous avons juste besoin de fournir la date à partir de laquelle nous essayons d'extraire le numéro du mois.

Vous pouvez télécharger ce modèle Excel du mois VBA ici - Modèle Excel du mois VBA

Exemple 1

Nous verrons comment écrire un code pour extraire le numéro du mois de la date. Nous prendrons la date comme "10 octobre 2019".

Étape 1: démarrez la procédure de macro.

Code:

 Sous Month_Example1 () End Sub

Étape 2: définissez la variable pour contenir la valeur de date. Puisque nous stockons la valeur des données, notre type de données doit être «Date». Déclarez donc la variable et attribuez le type de données «Date» à la variable déclarée.

Code:

 Sub Month_Example1 () Dim DDate As Date End Sub

Étape 3: Pour cette variable, attribuez la valeur de date du 10 octobre 2019.

Code:

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

Étape 4: Attribuez maintenant le numéro du mois pour déclarer une autre variable comme «Integer».

Code:

 Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 oct 2019" End Sub

Remarque: La raison pour laquelle nous avons déclaré la variable comme Integer parce que notre décompte de mois se termine à 12 seulement. Le type de données entier peut donc contenir ce nombre.

Étape 5: Pour cette variable, nous allons ouvrir la fonction MOIS.

Code:

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

Étape 6: fonction Mois demandant la «Date» qui doit être fournie pour extraire le numéro du mois. Puisque nous avons déjà stocké la date ciblée dans la variable «DDate», fournissez cette variable comme paramètre d'entrée pour la fonction mois.

Code:

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

Étape 7: La fonction "Month" retournera maintenant le numéro du mois à partir de la date fournie à la variable "MonthNum" et affichera finalement le résultat dans une boîte de message dans VBA.

Code:

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

Exécutez le code et voyez le numéro du mois dans la boîte de message.

Production:

Ainsi, le numéro du mois à partir de la date fournie est le 10, c'est-à-dire le mois d'octobre.

Exemple # 2

Nous allons maintenant prendre des références de cellules pour le codage. Voici la date que nous avons dans la feuille de calcul.

Donc, à partir de la valeur de date de la cellule A2, nous devons extraire le numéro du mois dans la cellule B2.

Code:

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

Ouvrez la fonction MOIS et indiquez la date comme valeur RANGE A2.

Code:

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

La raison pour laquelle nous avons fourni la cellule Range A2 parce que cette fois notre date est dans la cellule A2, donc la même sera la référence.

Exécutez maintenant le code et obtenez le numéro du mois à partir de la date dans la cellule B2.

Ici vous allez, nous avons le numéro du mois dans la cellule B2.

Exemple # 3

Nous avons extrait le mois pour la date à cellule unique, mais que se passe-t-il si nous avons plusieurs lignes de données comme celle ci-dessous.

Dans ces cas, nous devons parcourir les cellules et exécuter la tâche d'extraction du numéro du mois de chaque date respective.

Le code ci-dessous fera le travail pour nous.

Code:

 Sub Month_Example3 () Dim k As Long For k = 2 To 12 Cells (k, 3) .Value = Month (Cells (k, 2) .Value) Next k End Sub

Ce code va faire une boucle sur les lignes de 2 à 12 et extraire le numéro du mois de la deuxième colonne et stocker le résultat dans la troisième colonne.

Choses à retenir ici

  • MONTH est une fonction de feuille de calcul ainsi qu'une fonction VBA.
  • MONTH nécessite une référence de date valide, sinon nous recevrons un message d'erreur.
  • Si le numéro du mois est 12, un message d'erreur s'affiche.