excel到期自动提醒怎么做？邮件与微信通知设置教程

更新时间：2026-04-17 17:56

在管理产品有效期时，通过excel的逻辑判断功能可以自动识别临期产品，并利用VBA脚本或自动化工具实现邮件推送。这能有效避免因疏忽导致的过期损失。

一、实现到期前一个月自动显示“提醒”

如果你的到期日期在A列，可以通过简单的逻辑公式直接在B列生成文字提醒。

1、公式法：在B2单元格输入以下公式并向下填充：

=IF(AND(A2<>"", A2-TODAY()<=30), "提醒", "")

2、条件格式法（视觉强化）：

2-1、选中日期单元格区域。

2-2、点击“开始”>“条件格式”>“新建规则”。

2-3、选择“使用公式确定要设置格式的单元格”，输入：=AND(A2<>"", A2-TODAY()<=30)。

2-4、设置醒目的填充颜色（如红色）。

excel到期自动提醒怎么做？邮件与微信通知设置教程

二、通过邮件自动发送提醒通知

如果要实现不打开表格也收到通知，通常需要借助VBA调用outlook进程。

操作步骤如下：

1、在excel中按 Alt + F11 进入代码编辑器。

2、点击“插入”>“模块”，粘贴以下代码：

Sub SendEmailReminder()
    Dim OutlookApp As Object
    Dim MailItem As Object
    Dim cell As Range
    Set OutlookApp = CreateObject("Outlook.Application")

    '假设日期在Sheet1的A列，从A2到A100
    For Each cell In Sheets("Sheet1").Range("A2:A100")
        If cell.Value <> "" And cell.Value - Date <= 30 Then
            Set MailItem = OutlookApp.CreateItem(0)
            With MailItem
                .To = "你的邮箱地址@example.com"
                .Subject = "产品到期预警"
                .Body = "提醒：第 " & cell.Row & " 行的产品即将在30天内过期，请及时处理。"
                .Send
            End With
        End If
    Next cell
End Sub

3、按 F5 运行或在excel界面按 Alt + F8 执行脚本。

此对策要求电脑必须预装并配置好outlook客户端。由于excel本身是静态文件，无法在完全关闭电脑的情况下自主运行，建议将此脚本设置为“开机自启”或在每天固定时间打开表格。