VBA日期功能|如何使用Excel VBA日期功能?

Excel VBA DATE函数

VBA日期 是Date and Time函数,它仅返回您使用的系统日期的当前日期,还要注意的重要一点是,此函数中没有任何参数,要记住的另一个重要因素是此函数返回当前系统日期。

在excel中,我们不能没有某些功能,而“ VBA日期”是其中的一项功能。如果您经常使用excel工作表,则必须知道一个名为 “今天 ()” 它将根据系统日期返回当前日期。

日期是一个非常简单的函数,它仅根据您使用的系统日期返回当前日期。它的工作方式与我们的工作表功能“今天”非常相似,但本质上并不是不稳定的。

excel DATE函数的语法非常简单,因为它没有要提供的参数,并且仅包含空括号。

日期 ()

括号仅在您使用功能时说明功能,而无需输入括号。

如何使用Excel VBA日期功能?

您可以在此处下载此VBA日期Excel模板– VBA日期Excel模板

范例#1

假设您要在单元格A1中插入当前日期,然后按照以下步骤编写代码以在单元格A1中插入当前日期。

步骤1: 创建一个宏名称。

代码:

 子Date_Example1()

第2步: 由于我们需要将当前日期存储在单元格A1中,因此我们的代码为 范围(“ A1”)。值.

代码:

 Sub Date_Example1()Range(“ A1”)。Value End Sub 

第三步: 在单元格A1中,我们需要当前日期,因此请使用DATE函数。

代码:

 Sub Date_Example1()Range(“ A1”)。Value =日期结束Sub 

第4步: 好的,我们完成了。现在,通过按F5键运行此代码,或者您也可以手动运行该代码,如以下屏幕截图所示。我们将在单元格A1中获得当前日期。

因此,当我在系统中编写此代码时,当前日期是“ 2019年3月15日”。

注意:格式 日期的长短取决于Windows的设置。无论如何,您可以在格式单元格下更改日期的格式。

范例#2

假设您是LIC代理商,并且有多个客户要处理。关键对象之一是知道今天应付款的人,以便您可以致电他们并立即收取款项。

假设下面是您数据库中拥有的客户列表。

我已经写了一个代码,当您打开excel文件时,它会立即通知您。

代码:

 Sub Due_Notifier()Dimm Duedate As Date Dim i As Long Duedate = Date i = 2对于i = 2 To Cells(Rows.Count,1).End(xlUp).Row如果Duedate = DateSerial(年(日期),月Cells(i,3).Value),Day(Cells(i,3).Value))然后MsgBox“客户名称:”&Cells(i,1).Value&vbNewLine&“ Premium Amount:”&Cells(i ,2).Value End If Next Next结束子 

复制上面的代码,然后粘贴到VBA模块中。

现在,双击“此工作簿”选项。

现在选择 “工作簿” 从上面的下拉列表中。

选择选项“工作簿”后,您会看到一个私人宏会自动打开。

这里的宏名说 “ Workbook_Open()” 这意味着每当该工作簿打开您必须执行的操作时。每当打开此工作簿时,我们都需要运行我们创建的宏。

因此,在这里我们需要调用由其名称创建的宏。在上面的代码中,我们的宏名称是 “ Due_Notifier”。

代码:

 致电Due_Notifier

现在保存此工作簿并关闭它。

关闭它后,打开工作簿并查看魔术。

现在,我将打开...。

哇!!!它向我显示了客户名称及其在当前日期的到期金额。

客户名称为“ Amar”,到期金额为“ 20883”。之所以显示此客户名称,是因为Amar先生的到期日是2019年3月15日,即今天。

现在单击确定,如果到期日是今天,它将显示其他客户名称。

它显示了Arvind先生的名字,他的到期日也是2019年3月15日。

现在,您一到办公室就可以轻松识别客户名称。头疼的问题之一消失了。

同样,我创建了另一个excel宏,该宏将从您的Outlook发送自动生日电子邮件。

例子#3

假设您在“员工敬业度小组”中,您有责任向您的员工发送生日电子邮件。识别并分别将电子邮件发送给每个人是一件很痛苦的事情。

您好,我亲爱的朋友不用担心,我已经为您创建了一个宏,用于向您的员工发送自动生日电子邮件。

我已经创建了一些要测试的数据,下面是相同的图像。

您只需要根据表的标题更新员工主数据即可。以下是发送电子邮件的代码。

复制以下代码并粘贴到模块中。

 Sub Birthday_Wishes()将OutlookApp用作Outlook.Application并将OutlookMail用作Outlook.MailItem将Mydate用作日期Dim i作为长集OutlookApp = New Outlook.Application Mydate =日期i = 2对于i = 2到单元格(Rows.Count,1) .End(xlUp).Row Set OutlookMail = OutlookApp.CreateItem(olMailItem)如果Mydate = DateSerial(Year(Date),Month(Cells(i,5).Value),Day(Cells(i,5).Value))然后OutlookMail.To = Cells(i,7).Value OutlookMail.CC = Cells(i,8).Value OutlookMail.BCC =“” OutlookMail.Subject =“生日快乐-”&Cells(i,2).Value OutlookMail .Body =“亲爱的”和Cells(i,2).Value&“,”&vbNewLine&vbNewLine&_“我们希望您代表管理层祝您生日快乐,并祝愿未来一切顺利。”&vbNewLine &_ vbNewLine&“ Regards”,&vbNewLine&“ StrIDE Team” OutlookMail.Display OutlookMail.Send End if if Next i End Sub 

您到办公室后,只需打开文件并运行此代码,它将自动将生日祝福发送到相应的电子邮件ID。

笔记: 您应该在系统中配置Outlook。