Funzione Excel VBA DATE
VBA Date è una funzione di data e ora, restituisce solo la data corrente in base alla data di sistema che stai utilizzando, inoltre la cosa importante da notare è che questa funzione non ha argomenti di alcun tipo, un altro fattore importante da ricordare è che questa funzione restituisce la data di sistema corrente.
In Excel, non possiamo vivere senza alcune delle funzioni, e "VBA Date" è una di queste funzioni. Se sei un utente frequente di un foglio di lavoro Excel, devi essere a conoscenza di una funzione chiamata "TODAY ()", che restituirà la data corrente secondo la data di sistema.
La data è una funzione molto semplice e restituisce solo la data corrente in base alla data di sistema che stai utilizzando. Funziona in modo molto simile alla nostra funzione del foglio di lavoro "OGGI" ma non è di natura volatile.
La sintassi della funzione DATA di Excel è molto semplice perché non ha argomenti da fornire e include solo parentesi vuote.
Data ()
Le parentesi servono solo per spiegare la funzione quando si utilizza la funzione, non è necessario inserire parentesi.
Come utilizzare la funzione data VBA di Excel?
Esempio 1
Supponi di voler inserire la data corrente nella cella A1, quindi segui i passaggi seguenti per scrivere il codice per inserire la data corrente nella cella A1.
Passaggio 1: crea un nome per la macro.
Codice:
Sub Date_Example1 ()
Passaggio 2: poiché dobbiamo memorizzare la data corrente nella cella A1, il nostro codice sarà Intervallo ("A1") .
Codice:
Sub Date_Example1 () Intervallo ("A1"). Valore End Sub
Passaggio 3: nella cella A1 abbiamo bisogno della data corrente, quindi usa la funzione DATA.
Codice:
Sub Date_Example1 () Intervallo ("A1"). Value = Date End Sub
Passaggio 4: ok, abbiamo finito. Eseguiamo questo codice ora premendo il tasto F5, oppure puoi anche eseguire il codice manualmente, come mostrato nello screenshot qui sotto. Otterremo la data corrente nella cella A1.
Così, quando scrivo questo codice data corrente nel mio sistema è “il 15 ° marzo 2019”.
Nota: il formato della data dipende dalle impostazioni di Windows. Ad ogni modo, puoi modificare il formato della data in celle di formato.
Esempio n. 2
Supponi di essere un agente LIC e di avere diversi clienti con cui trattare. Uno degli oggetti chiave è sapere di chi è il pagamento dovuto oggi in modo da poterlo chiamare e riscuotere immediatamente il pagamento.
Supponiamo che di seguito sia l'elenco dei clienti che hai nel tuo database.
Ho già scritto un codice che ti avviserà non appena aprirai il file excel.
Codice:
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)) Quindi MsgBox "Customer Name:" & Cells (i, 1) .Value & vbNewLine & "Premium Amount:" & Cells (i , 2) .Value End If Next i End Sub
Copia il codice sopra e incollalo nel modulo VBA.
Ora fai doppio clic sull'opzione "Questa cartella di lavoro".
Ora seleziona "Cartella di lavoro" dal menu a discesa sopra.
Non appena selezioni l'opzione "Cartella di lavoro", puoi vedere una macro privata che si apre automaticamente.
Qui il nome della macro dice "Workbook_Open ()" questo significa che ogni volta che questa cartella di lavoro apre quello che devi fare. Ogni volta che si apre questa cartella di lavoro, dobbiamo eseguire la macro che abbiamo creato.
Quindi, qui dobbiamo chiamare la nostra macro che abbiamo creato con il suo nome. Nel codice sopra, il nome della nostra macro è "Due_Notifier".
Codice:
Chiama Due_Notifier
Ora salva questa cartella di lavoro e chiudila.
Dopo averlo chiuso, apri la cartella di lavoro e guarda la magia.
Adesso aprirò….
Wow!!! Mi mostra il nome del cliente e l'importo dovuto per la data corrente.
Il nome del cliente è "Amar" e l'importo dovuto è "20883". Il motivo per cui si sta mostrando questo nome cliente, perché la data di scadenza per il signor Amar è il 15 ° marzo 2019, vale a dire, oggi.
Ora fai clic su Ok, mostrerà altri nomi di clienti se la data di scadenza è oggi.
Mostra il nome del signor Arvind; la sua data di scadenza è anche il 15 ° marzo 2019.
Ora puoi identificare facilmente i nomi dei clienti non appena arrivi in ufficio. Uno dei grossi mal di testa è sparito.
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
Non appena vieni in ufficio, apri il file ed esegui questo codice, invierà automaticamente gli auguri di compleanno ai rispettivi ID e-mail.
Nota: dovresti avere Outlook configurato nel tuo sistema.
