引言

在快节奏的生活中，每天都有各种各样的任务和日程需要安排。错过重要会议、忘记朋友生日、耽误项目截止日期……这些情况是不是经常发生？别担心，今天就来教大家如何用Excel制作一个简单又实用的日程提醒表，让你的生活和工作更加井井有条！

一、准备工作

在开始制作之前，我们需要准备好以下工具：

• 一台安装了Microsoft Excel的电脑（建议使用Excel 2016及以上版本，因为新版本的功能更强大）。
• 一个清晰的思路，明确自己需要哪些日程提醒功能，比如提醒时间、提醒事项内容、重复提醒等。

二、创建基础日程表

1. 打开Excel，新建一个工作簿。
2. 设计表头：
3. 在第一行依次输入以下标题：日期、时间、事件描述、提醒时间、是否提醒。
4. 例如，A1单元格输入“日期”，B1单元格输入“时间”，C1单元格输入“事件描述”，D1单元格输入“提醒时间”，E1单元格输入“是否提醒”。
5. 设置日期和时间格式：
6. 选中A列和B列，右键单击，选择“设置单元格格式”。
7. 在“数字”选项卡中，将A列设置为“日期”格式，将B列设置为“时间”格式。这样可以让输入的日期和时间更加规范，方便后续操作。

三、输入日程数据

1. 在A列输入具体的日期，比如“2025-01-25”。
2. 在B列输入具体的时间，比如“10:00”。
3. 在C列详细描述事件内容，比如“参加项目会议”“朋友生日聚会”等。
4. 在D列设置提醒时间，可以根据自己的需求设置提前多久提醒，比如提前1小时、提前1天等。这里的时间格式可以和B列一致，也可以根据实际情况调整。
5. 在E列输入“是”或“否”，表示是否需要提醒。如果某个事件不需要提醒，就输入“否”；需要提醒的事件输入“是”。

四、设置提醒功能

1.使用条件格式实现视觉提醒：

• 选中C列（事件描述列），点击“开始”选项卡中的“条件格式”。
• 选择“新建规则”，在弹出的对话框中选择“使用公式确定要设置格式的单元格”。
• 在公式框中输入以下公式：

=AND(TODAY()=$A3, NOW()<=$B3, $E3="是")

这个公式的意思是：如果今天的日期等于A列的日期，并且当前时间小于等于B列的时间，同时E列的值为“是”，那么就对C列的单元格进行格式设置。

• 点击“格式”按钮，选择一个醒目的颜色（比如红色），然后点击“确定”。
• 再次点击“确定”，完成条件格式的设置。这样，当满足提醒条件时，事件描述会自动变成红色，提醒你有即将发生的事件。

2.使用VBA实现弹窗提醒：

• 按下Alt + F11键，打开VBA编辑器。

• 在VBA编辑器中，点击“插入”->“模块”，在弹出的模块窗口中输入以下代码：

Sub 日程提醒()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    For i = 2 To lastRow
        If ws.Cells(i, "E").Value = "是" And ws.Cells(i, "A").Value = Date And ws.Cells(i, "B").Value <= Time Then
            MsgBox "提醒：你有一个日程安排！" & vbCrLf & _
                   "日期：" & ws.Cells(i, "A").Value & vbCrLf & _
                   "时间：" & ws.Cells(i, "B").Value & vbCrLf & _
                   "事件：" & ws.Cells(i, "C").Value, vbInformation, "日程提醒"
        End If
    Next i
End Sub

• 关闭VBA编辑器，回到Excel界面。

• 按下Alt + F8键，选择刚才编写的“日程提醒”宏，点击“运行”。程序会自动检查日程表，如果有符合条件的提醒事件，就会弹出一个对话框提醒你。

五、定时运行提醒功能

为了让提醒功能更加自动化，我们可以设置定时运行宏：

1. 按下Alt + F11键，打开VBA编辑器。
2. 在VBA编辑器中，点击“工具”->“引用”，在弹出的对话框中勾选“Microsoft Scripting Runtime”，然后点击“确定”。
3. 在模块窗口中输入以下代码：

Sub 定时提醒()
    On Error GoTo ErrorHandler ' 添加错误处理
    
    Dim timer As Date
    timer = Now + TimeValue("00:01:00") ' 设置每隔1分钟检查一次
    
    ' 检查目标宏是否存在
    If Not MacroExists("日程提醒") Then
        MsgBox "目标宏 '日程提醒' 不存在！", vbExclamation
        Exit Sub
    End If
    
    Application.OnTime earliesttime:=timer, procedure:="日程提醒", schedule:=True
    Exit Sub

ErrorHandler:
    MsgBox "定时提醒设置失败，错误号: " & Err.Number & "，错误描述: " & Err.Description, vbCritical
End Sub

Function MacroExists(macroName As String) As Boolean
    ' 检查目标宏是否存在
    Dim vbProj As Object
    Dim vbComp As Object
    Dim codeMod As Object
    Dim lineNum As Long
    
    On Error Resume Next
    Set vbProj = ThisWorkbook.VBProject
    If Err.Number <> 0 Then
        ' 如果没有启用对VBProject的访问权限
        MacroExists = False
        Exit Function
    End If
    
    For Each vbComp In vbProj.VBComponents
        Set codeMod = vbComp.CodeModule
        lineNum = codeMod.ProcStartLine(macroName, vbext_pk_Proc)
        If lineNum > 0 Then
            MacroExists = True
            Exit Function
        End If
    Next vbComp
    
    MacroExists = False
End Function

4. 关闭VBA编辑器，回到Excel界面。
5. 按下Alt + F8键，选择“定时提醒”宏，点击“运行”。这样，每隔1分钟，Excel就会自动检查一次日程表，并弹出提醒对话框。

六、美化日程表

为了让日程表看起来更加美观、易读，我们可以进行以下美化操作：

1. 调整列宽：选中所有列，双击列标题之间的分隔线，自动调整列宽。
2. 设置字体和字号：选中整个表格，设置字体为“微软雅黑”，字号为10。
3. 添加边框：选中表格区域，点击“开始”选项卡中的“边框”按钮，选择“所有边框”，为表格添加边框。
4. 设置表头样式：选中第一行表头，设置字体颜色为白色，填充颜色为深蓝色，然后点击“开始”选项卡中的“加粗”按钮，使表头更加醒目。
5. 添加筛选功能：选中表头，点击“数据”选项卡中的“筛选”按钮，为每一列添加筛选下拉箭头，方便快速筛选特定日期或事件的日程。

七、保存和备份

制作完成后，不要忘记保存文件。建议将文件保存在云盘或本地的固定位置，方便随时查看和修改。同时，定期备份文件，防止数据丢失。

结语

通过以上步骤，一个简单实用的Excel日程提醒表就制作完成了。它不仅能帮助你更好地管理日程，还能通过视觉和弹窗提醒功能，让你不再错过任何重要事件。快去试试吧，让生活和工作更加高效有序！如果你在制作过程中遇到任何问题，欢迎随时留言交流，我会第一时间为你解答。

希望这篇文章能对你有所帮助！如果你觉得有用，别忘了点赞、收藏和转发哦！