Fonction Excel VBA DATE
La date VBA est une fonction de date et d'heure, elle ne renvoie que la date actuelle selon la date système que vous utilisez, également la chose importante à noter est que cette fonction ne contient aucun argument, un autre facteur important à retenir est que cette fonction renvoie la date système actuelle.
Dans Excel, nous ne pouvons pas vivre sans certaines des fonctions, et «VBA Date» est l'une de ces fonctions. Si vous êtes un utilisateur fréquent d'une feuille de calcul Excel, vous devez être conscient d'une fonction appelée «AUJOURD'HUI ()», qui renverra la date actuelle selon la date du système.
La date est une fonction très simple et elle ne renvoie que la date actuelle selon la date système que vous utilisez. Cela fonctionne de manière très similaire à notre fonction de feuille de calcul «AUJOURD'HUI» mais pas de nature volatile.
La syntaxe de la fonction Excel DATE est très simple car elle n'a aucun argument à fournir et ne comprend que des parenthèses vides.
Date ()
Les parenthèses sont là juste pour expliquer la fonction lorsque vous utilisez la fonction, pas besoin de saisir des parenthèses.
Comment utiliser la fonction de date Excel VBA?
Exemple 1
Supposons que vous souhaitiez insérer la date actuelle dans la cellule A1, puis suivez les étapes ci-dessous pour écrire le code pour insérer la date actuelle dans la cellule A1.
Étape 1: Créez un nom de macro.
Code:
Sous-Date_Exemple1 ()
Étape 2: Puisque nous devons stocker la date actuelle dans la cellule A1, notre code sera Range («A1») .
Code:
Sub Date_Example1 () Range ("A1"). Value End Sub
Étape 3: Dans la cellule A1, nous avons besoin de la date actuelle, utilisez donc la fonction DATE.
Code:
Sub Date_Example1 () Range ("A1"). Value = Date End Sub
Étape 4: Ok, nous avons terminé. Exécutons ce code maintenant en appuyant sur la touche F5, ou vous pouvez également exécuter le code manuellement, comme indiqué dans la capture d'écran ci-dessous. Nous obtiendrons la date actuelle dans la cellule A1.
Donc, quand je suis en train d' écrire ce code date dans mon système est « 15 e Mars 2019 ».
Remarque: le format de votre date dépend de vos paramètres Windows. Quoi qu'il en soit, vous pouvez modifier le format de la date sous les cellules de format.
Exemple # 2
Supposons que vous soyez un agent LIC et que vous ayez plusieurs clients à traiter. L'un des principaux objectifs est de savoir à qui le paiement est dû aujourd'hui afin que vous puissiez les appeler et encaisser le paiement immédiatement.
Supposons ci-dessous la liste des clients que vous avez dans votre base de données.
J'ai déjà écrit un code qui vous avertira dès que vous ouvrirez le fichier Excel.
Code:
Sub Due_Notifier () Dim Duedate As Date Dim i As Long Duedate = Date i = 2 For i = 2 To Cells (Rows.Count, 1) .End (xlUp) .Row If Duedate = DateSerial (Year (Date), Month ( Cells (i, 3) .Value), Day (Cells (i, 3) .Value)) Puis MsgBox "Nom du client:" & Cells (i, 1) .Value & vbNewLine & "Montant Premium:" & Cells (i , 2) .Value End If Next i End Sub
Copiez le code ci-dessus et collez-le dans le module VBA.
Maintenant, double-cliquez sur l'option «Ce classeur».
Sélectionnez maintenant «Classeur» dans la liste déroulante ci-dessus.
Dès que vous sélectionnez l'option «Classeur», vous pouvez voir qu'une macro privée s'ouvre automatiquement.
Ici, le nom de la macro indique «Workbook_Open ()», cela signifie chaque fois que ce classeur ouvre ce que vous devez faire. Chaque fois que ce classeur s'ouvre, nous devons exécuter la macro que nous avons créée.
Donc, ici, nous devons appeler notre macro que nous avons créée par son nom. Dans le code ci-dessus, le nom de notre macro est «Due_Notifier».
Code:
Appeler Due_Notifier
Maintenant, enregistrez ce classeur et fermez-le.
Après l'avoir fermé, ouvrez le classeur et voyez la magie.
Maintenant, je vais ouvrir….
Sensationnel!!! Il me montre le nom du client et son montant dû pour la date actuelle.
Le nom du client est «Amar» et le montant dû est «20883». La raison pour laquelle il est à l' affiche le nom du client parce que la date d' échéance pour M. Amar est le 15 e Mars 2019, à savoir, aujourd'hui.
Cliquez maintenant sur Ok, il affichera d'autres noms de clients si la date d'échéance est aujourd'hui.
Il montre le nom de M. Arvind; sa date d' échéance est le 15 e Mars 2019.
Désormais, vous pouvez facilement identifier les noms des clients dès votre arrivée au bureau. L'un des gros maux de tête a disparu.
Similarly, I have created one more excel macro, which will send auto birthday emails from your outlook.
Example #3
Assume you are in an “Employee Engagement Team,” and you are responsible for sending birthday emails to your employees. Identify and sending the email to each, and every one separately is a painful job.
Hello, my dear friend, doesn’t worry, I have created a macro for you to send the auto birthday emails to your employees.
I have created some data to test, and below is the image of the same.
You just need to update the employee master according to the headings of the table. Below is the code to send the emails.
Copy the below code and paste it in the module.
Sub Birthday_Wishes() Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Dim Mydate As Date Dim i As Long Set OutlookApp = New Outlook.Application Mydate = Date i = 2 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Set OutlookMail = OutlookApp.CreateItem(olMailItem) If Mydate = DateSerial(Year(Date), Month(Cells(i, 5).Value), Day(Cells(i, 5).Value)) Then OutlookMail.To = Cells(i, 7).Value OutlookMail.CC = Cells(i, 8).Value OutlookMail.BCC = "" OutlookMail.Subject = "Happy Birthday - " & Cells(i, 2).Value OutlookMail.Body = "Dear " & Cells(i, 2).Value & "," & vbNewLine & vbNewLine & _ "We wish you a happy birhday on behalf of the management and we wish all the success in the coming future" & vbNewLine & _ vbNewLine & "Regards," & vbNewLine & "StrIDE Team" OutlookMail.Display OutlookMail.Send End If Next i End Sub
Dès que vous arrivez au bureau, ouvrez simplement le fichier et exécutez ce code, il enverra automatiquement les souhaits d'anniversaire aux identifiants de messagerie respectifs.
Remarque: Outlook doit être configuré dans votre système.
