Excel VBA DATE -toiminto
VBA Date on päivämäärä ja aika -toiminto, se palauttaa vain nykyisen päivämäärän käyttämäsi järjestelmäpäivämäärän mukaan. Tärkeää on myös huomata, että tässä funktiossa ei ole mitään argumentteja, toinen tärkeä tekijä on muistaa, että tämä toiminto palauttaa nykyisen järjestelmän päivämäärän.
Excelissä emme voi elää ilman joitain toimintoja, ja "VBA Date" on yksi näistä toiminnoista. Jos käytät usein Excel-laskentataulukkoa, sinun on tiedettävä funktio nimeltä TODAY (), joka palauttaa nykyisen päivämäärän järjestelmän päivämäärän mukaan.
Päivämäärä on hyvin yksinkertainen toiminto, ja se palauttaa vain nykyisen päivämäärän käyttämäsi järjestelmän päivämäärän mukaan. Tämä toimii hyvin samalla tavalla kuin TÄNÄÄN laskentataulukkotoimintomme, mutta ei luonteeltaan epävakaa.
Excel DATE -funktion syntaksitapa on hyvin yksinkertainen, koska sillä ei ole argumenttia toimitettavaksi ja se sisältää vain tyhjät sulut.
Päivämäärä ()
Sulkumerkit ovat vain selittämään toimintoa, kun käytät toimintoa, sulkeita ei tarvitse kirjoittaa.
Kuinka käyttää Excel VBA Date -toimintoa?
Esimerkki 1
Oletetaan, että haluat lisätä nykyisen päivämäärän soluun A1, ja kirjoita koodi noudattamalla seuraavia ohjeita lisätäksesi nykyisen päivämäärän soluun A1.
Vaihe 1: Luo makron nimi.
Koodi:
Ajankohta_esimerkki1 ()
Vaihe 2: Koska meidän on tallennettava nykyinen päivämäärä soluun A1, koodimme on Range (“A1”) .
Koodi:
Alapäivä_esimerkki1 () Alue ("A1"). Arvo Loppu Alim
Vaihe 3: Solussa A1 tarvitaan nykyinen päivämäärä, joten käytä PÄIVÄYS-funktiota.
Koodi:
Alapäivä_esimerkki1 () Alue ("A1"). Arvo = Päivämäärän loppuosa
Vaihe 4: Ok, olemme valmiit. Suoritetaan tämä koodi nyt painamalla F5-näppäintä, tai voit suorittaa koodin myös manuaalisesti, kuten alla olevassa kuvakaappauksessa näkyy. Saamme nykyisen päivämäärän soluun A1.
Joten, kun minä kirjoitan tätä koodia nykyisen päivämäärän minun järjestelmä on ”15 th maaliskuu 2019”.
Huomaa: Päivämäärän muoto riippuu Windowsin asetuksista. Joka tapauksessa voit muuttaa päivämäärän muotoa muotoilusoluissa.
Esimerkki 2
Oletetaan, että olet LIC-agentti ja sinulla on useita asiakkaita. Yksi tärkeimmistä kohteista on tietää, kenen eräpäivä on tänään, jotta voit soittaa heille ja periä maksun heti.
Oletetaan, että alla on luettelo asiakkaista, jotka sinulla on tietokannassasi.
Olen jo kirjoittanut koodin, joka ilmoittaa sinulle heti, kun avaat Excel-tiedoston.
Koodi:
Sub Due_Notifier () Dim Duedate as Date Dim i As Long Duedate = Date i = 2 For i = 2 Solut (Rivit.Määrä, 1) .End (xlUp) .Rivi Jos Duedate = PäivämääräSarja (Vuosi (Päivä), Kuukausi Solut (i, 3). Arvo), päivä (solut (i, 3). Arvo)) Sitten MsgBox "Asiakkaan nimi:" & Solut (i, 1). Arvo & vbNewLine & "Ensisijainen määrä:" & Solut (i , 2). Arvo loppu jos seuraava i loppu ala
Kopioi yllä oleva koodi ja liitä se VBA-moduuliin.
Kaksoisnapsauta nyt ”Tämä työkirja” -vaihtoehtoa.
Valitse nyt "Työkirja" yllä olevasta avattavasta valikosta.
Heti kun valitset vaihtoehdon ”Työkirja”, näet, että yksityinen makro avautuu automaattisesti.
Tässä makron nimessä lukee ”Workbook_Open ()”, mikä tarkoittaa aina, kun tämä työkirja avaa sinun tehtäväsi. Aina kun tämä työkirja avautuu, meidän on suoritettava luomamme makro.
Joten tässä meidän on kutsuttava luomamme makro nimellä. Yllä olevassa koodissa makromme nimi on "Due_Notifier".
Koodi:
Soita erääntymiselle
Tallenna nyt tämä työkirja ja sulje se.
Kun olet sulkenut sen, avaa työkirja ja näe taika.
Nyt avaan….
Vau!!! Se näyttää minulle asiakkaan nimen ja heidän eräpäivänsä.
Asiakkaan nimi on “Amar” ja erääntyvä summa on “20883”. Syy siihen, miksi se näkyy tämän asiakkaan nimen, koska eräpäivä Mr. Amar on 15 th Maaliskuu 2019 eli tänään.
Napsauta nyt OK, se näyttää muut asiakkaiden nimet, jos eräpäivä on tänään.
Se näyttää herra Arvindin nimen; Hänen eräpäivä on 15. th maaliskuu 2019.
Nyt voit helposti tunnistaa asiakkaiden nimet heti, kun tulet toimistoon. Yksi suurista päänsärkyistä on kadonnut.
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
Heti kun tulet toimistoon, avaa vain tiedosto ja suorita tämä koodi, se lähettää automaattisesti syntymäpäivätoiveet vastaaville sähköpostiosoitteille.
Huomaa: Järjestelmässäsi on oltava määritetty Outlook.
