在Excel中实现日期临期自动预警，可通过以下两种方式实现：条件格式设置或VBA宏编程。以下是具体方法：

一、条件格式设置（推荐）

1. 基础预警设置

   • 选中需要监控的日期列（如D2:D100），点击【开始】→【条件格式】→【新建规则】；

   • 选择【使用公式确定要设置格式的单元格】，输入公式=AND（D2=TODAY（））（假设日期在D列）；

   • 设置填充色（如橙红色），点击【确定】。此时，D列中临近3天的日期将自动变色。

2. 自定义预警范围

   • 选中日期列，重复上述步骤；

   • 修改公式为=AND（D2-TODAY（）≤7）（7天预警）或=AND（D2-TODAY（）<-30）（30天预警）；

   • 设置对应颜色（如红色、黄色、绿色）。

3. 多条件格式设置

   • 在条件格式规则中，可添加多个条件，例如：

     • 小于0天：红色（=AND（D2-TODAY（）<0））

     • 0-2天：黄色（=AND（D2-TODAY（）≤2））

     • 大于7天：绿色（=AND（D2-TODAY（）>7））

二、VBA宏编程（高级功能）

1. 基本预警弹窗

   • 按下Alt+F11打开VBA编辑器，插入新模块，输入以下代码：

     Sub DateAlert()
         Dim cell As Range
         For Each cell In Range("D2:D100") ' 修改为实际日期列
             If cell.Value - Date() ≤ 0 Then
                 MsgBox "注意！" & cell.Offset(0, -3).Value & " 天到期", vbExclamation
             ElseIf cell.Value - Date() ≤ 7 Then
                 MsgBox "还有 " & cell.Value - Date() & " 天到期", vbInformation
             End If
         Next cell
     End Sub
     

   • 将此宏绑定到按钮或工作表打开事件中。

2. 邮件自动发送提醒 （扩展功能）

   • 在VBA中添加SMTP邮件发送代码（需配置Outlook）：

     Sub SendEmailAlert()
         Dim cell As Range
         Dim emailSubject As String
         Dim emailBody As String
         Dim OutApp As Object
         Dim OutMail As Object
         For Each cell In Range("D2:D100")
             If cell.Value - Date() ≤ 0 Then
                 emailSubject = "合同到期提醒"
                 emailBody = "合同 " & cell.Offset(0, -3).Value & " 已到期！"
                 SendEmail cell.Offset(0, -3), emailSubject, emailBody
             End If
         Next cell
     End Sub
     Sub SendEmail(toCell As Range, subject As String, body As String)
         Set OutApp = CreateObject("Outlook.Application")
         Set OutMail = OutApp.CreateItem(0)
         With OutMail
             .To = toCell.Address
             .Subject = subject
             .Body = body
             .Send
         End With
         Set OutMail = Nothing
         Set OutApp = Nothing
     End Sub
     

   • 通过ThisWorkbook_Open事件触发邮件发送：

     Private Sub Workbook_Open()
         SendEmailAlert
     End Sub
     

三、注意事项

• 日期格式 ：确保日期列使用标准格式（如yyyy-mm-dd），否则需通过DATEVALUE函数转换；

• 动态范围 ：使用End（xlUp）函数动态获取数据范围，避免手动调整单元格；

• 性能优化 ：对于大数据量，建议先测试小范围，避免频繁触发宏影响性能。

通过以上方法，可灵活实现日期临期预警，根据需求选择条件格式或自动化脚本。