企业官网建设流程全解析

你是不是也有这种经历：表格做到一半，突然想起上午十点有个会要开，或者有一份报表下午三点前必须提交。手机闹钟要么没设，要么设了也懒得看；专门的提醒软件又觉得为了这点小事装一个太折腾。其实你天天打开的那份Excel，本身就能干这个活——用VBA写一个几十行的定时器，到点自动弹窗提醒你，哪怕Excel最小化在后台也一样能触发。

这篇文章就手把手带你做一个“Excel定时提醒小工具”。不需要任何第三方插件，不装软件，纯靠Excel自带的VBA代码就能实现。适合谁？办公族、学生党、项目管理人，甚至是需要定时吃药的家人，只要电脑上有Excel，照着操作一遍就能用起来。会复制粘贴就能完成，全部核心代码我都贴在下面了。

1. 先想清楚：为什么用Excel做提醒这件事是靠谱的

1.1 真实场景里，谁需要这样一个弹窗提醒

我在实际工作中发现，Excel提醒工具最受欢迎的场景不是我原来以为的“个人备忘”，而是“戴着耳机盯着表格的人忘了时间”。比如财务月底结账，一上午坐在电脑前面改表，抬头已经是下午两点，午饭没吃、申报时间差点错过；再比如做数据分析的人跑批量脚本，十分钟之后才能出结果，这段时间干别的又怕忘记回来看；还有带项目的人，每天要提醒组员提交进度，自己先得记得几点发消息。

这些都是“人坐在电脑前，但注意力被表格吸走了”的场景。手机闹钟在兜里响，你真不一定能立刻反应过来，但Excel弹窗就在你眼睛正前方，想忽略都难。另一个很重要的点：很多公司内网电脑出于安全策略，不允许随便安装第三方软件，但Excel是办公标配，所以用Excel自带的VBA做提醒，几乎是“零门槛零风险”的方案。

1.2 这个工具能做什么，不能做什么

先把边界说清楚，免得你做完发现和想象的不一样。

它能做的事：

• 在指定时间弹出提醒窗口，显示你设置的文字。
• 支持每天循环提醒，比如每天上午9点半提醒开早会。
• 支持多个不同时间的提醒，上午提醒喝水、下午提醒提交报表。
• 可以读取单元格里的时间，改单元格就能改提醒时间，不用每次改代码。
• 支持后台最小化运行，Excel缩在任务栏里不影响弹窗。

它做不了的事：

• Excel进程完全关闭后不会弹窗。提醒的前提是Excel开着，你可以最小化，但不能退出。
• 电脑休眠或关机状态下不会弹窗。系统都睡了，Excel自然也醒不过来，这点后面我会专门讲怎么处理。
• 它不能在手机上弹窗，也不能跨设备推送消息。
• 如果你同时开着多个Excel工作簿，定时器只属于它所在的哪个工作簿，别搞混了。

一句话概括：这个工具适合“你人在电脑前，但脑子不在”的情况，不适合“人不在电脑前”的情况。想清楚这个边界，你才不会在关键时刻对它产生不切实际的期望。

2. 原理拆解：到点弹窗背后到底是怎么实现的

2.1 Application.OnTime 是核心，它和“傻等”不一样

VBA里实现定时，最常见的有两个函数：Application.Wait和Application.OnTime。很多新手容易栽在Wait上，因为它写起来很简单：Application.Wait "09:30:00"意思是程序原地停顿，一直等到9点半再继续往下走。听起来挺对，但问题特别大——Wait是阻塞式的，等于Excel这个时间段内什么都干不了，表格卡死，鼠标转圈，谁用谁崩溃。

所以必须用Application.OnTime。你可以把它理解成“在Excel里贴了一张便利贴，写着：到9点半喊我一声”。设定完之后，Excel继续正常给你用，该编辑编辑、该计算计算，等时间一到，Excel会执行你指定的那个过程（也就是弹窗提醒）。这是一种异步机制，核心价值就是——不打扰正常使用。

打个更生活化的比方：Wait是你在厨房站着干等水烧开，什么都不干；OnTime是定好闹钟，该切菜切菜、该刷手机刷手机，闹钟一响再回头处理。显然，后者才符合“贴心秘书”的定位。

2.2 OnTime 的四个参数，必须搞明白的细节

Application.OnTime的完整语法是这样：

Application.OnTime EarliestTime, Procedure, LatestTime, Schedule

四个参数的作用：

• EarliestTime：计划执行的时间，必须是一个日期型值。最常用的写法是TimeValue("09:30:00")，意思是“今天的9点30分”。如果要跨日期，比如明天早上9点半，写成Date + TimeValue("09:30:00")。
• Procedure：要执行的过程名，注意必须是“字符串”格式。比如你的过程叫ShowReminder，这里就要写"ShowReminder"，没有引号会直接报错。
• LatestTime：可选的“最晚执行时间”。它解决的是这样一种情况：到了9点半，Excel正好在忙（比如正在运行一个超长的公式计算），无法立刻执行定时任务，那么Excel会一直等到LatestTime指定的时间为止。如果到了LatestTime还没空，就放弃这次执行。建议每次都设置这个参数，比如LatestTime:=TimeValue("09:30:05")，意思是最多再等5秒，超过就拉倒，避免定时任务堆积。
• Schedule：默认为True，表示“安排一个定时任务”。如果你想取消之前安排的定时任务，就填False。这个参数在“关闭工作簿时清理定时器”的场景里非常关键。

2.3 弹窗用什么实现？MsgBox就够用

定时器触发了，怎么提醒？最简单粗暴的方式就是MsgBox。它弹出来的就是一个Windows标准对话框，有标题、有正文、有图标，点击“确定”关闭。虽然样子朴素，但目的就是让你“注意到”，朴素反而高效。

进阶一点，你可以根据任务紧急程度给不同图标：

• 普通喝水提醒用vbInformation，蓝色圆圈图标，画风平和。
• 会议提醒用vbExclamation，黄色感叹号，更醒目。
• 截止时间到了用vbCritical，红色叉号，压迫感拉满。

如果你觉得MsgBox长得丑，也可以花钱花时间做一个自定义的UserForm弹窗，加个背景图、放个按钮。但以我做了好几个版本的经验来看，最后你还是会回到MsgBox。因为提醒工具的核心是“瞬时打断”，不是“展示设计”。花里胡哨的窗体还会增加代码量，出错概率也更高。

3. 从零开始做：完整实操步骤照着抄就行

3.1 准备工作：打开VBA编辑器，理解模块的存放位置

打开Excel，按快捷键Alt + F11，会弹出VBA编辑器窗口。这个界面看起来像“程序员专属”，但你只需要认准一个功能：左侧的“工程资源管理器”，你会看到类似VBAProject（工作簿名称）的树形结构。

右键点击VBAProject，选择“插入” -> “模块”。这个新建的“模块1”就是存放代码的地方。为什么要插模块而不是写在别的位置？因为模块里的代码是通用的，Application.OnTime调用的过程定义在模块里最方便，后续维护也不会和其它事件代码互相干扰。

在动手写代码之前，还有一件事必须解决：让Excel允许代码运行。如果你用的是企业发放的电脑，很可能默认禁用了宏，打开含有代码的文件只会提示“宏已被禁用”。这个问题我会放到第4节详细说，你先跟着往下走，等保存文件时再处理宏安全设置。

3.2 第一版代码：一个能用的最小提醒工具

先来一个最简版：每天下午3点整，弹窗提醒“该提交报表了”。

在刚才新建的模块里粘贴这段代码：

Public RunWhen As Date Sub StartTimer() ' 设定第一次提醒时间：今天的15:00 RunWhen = Date + TimeValue("15:00:00") ' 安排定时任务，最多等待10秒 Application.OnTime EarliestTime:=RunWhen, _ Procedure:="ShowReminder", _ LatestTime:=RunWhen + TimeValue("00:00:10") End Sub Sub ShowReminder() ' 到点弹窗 MsgBox "下午3点了，该提交报表了！", vbInformation, "Excel贴心提醒" ' 这里先不安排下一次，第一版先跑通 End Sub

写完怎么测试？直接把光标放在StartTimer这个过程的任意位置，按F5运行。如果设定时间还没到，Excel不会有任何反应，这是正常的。但为了验证代码没问题，我强烈建议你第一次测试时把时间改成一分钟之后，比如现在时间是10:01，就改成TimeValue("10:02:00")，然后看着表等一分钟。到点弹窗出现，说明代码通道通畅，再改回真实时间。

这里有个小经验：千万不要一上来就把时间设在几个小时后，然后干等。万一代码有笔误，比如过程名拼错了，你要等好几个小时才发现，纯属浪费时间。先用一分钟后的时间做冒烟测试，是效率最高的方式。

3.3 第二版代码：循环提醒+自动启动+关闭清理

第一版只能提醒一次，实用性有限。真实场景下，你需要的是“每天下午3点都提醒”这种循环能力。要实现循环，只需要在ShowReminder过程里再调用一次StartTimer。

同时，你肯定希望“打开Excel就自动启动定时器”，不需要每天手动按F5。这个功能写在ThisWorkbook对象里，利用Workbook_Open事件实现。另外还有一个容易踩的坑：如果你关闭了工作簿但定时任务没取消，Excel可能还会继续弹窗，甚至报错。所以必须在Workbook_BeforeClose事件里取消定时任务。

步骤一：修改模块1里的代码，加入“完成提醒后自动安排下一次”的逻辑：

Public RunWhen As Date Sub StartTimer() ' 设定每日提醒时间：15:00 RunWhen = Date + TimeValue("15:00:00") ScheduleTimer End Sub Sub ScheduleTimer() ' 安排定时任务，若Excel忙则最多等10秒 Application.OnTime EarliestTime:=RunWhen, _ Procedure:="ShowReminder", _ LatestTime:=RunWhen + TimeValue("00:00:10") End Sub Sub ShowReminder() MsgBox "下午3点了，该提交报表了！", vbInformation, "Excel贴心提醒" ' 自动安排明天的同一时间 RunWhen = Date + TimeValue("15:00:00") ScheduleTimer End Sub Sub StopTimer() ' 取消尚未触发的定时任务 On Error Resume Next Application.OnTime EarliestTime:=RunWhen, _ Procedure:="ShowReminder", _ LatestTime:=RunWhen + TimeValue("00:00:10"), _ Schedule:=False On Error GoTo 0 End Sub

注意StopTimer里的On Error Resume Next。为什么需要它？因为如果你在工作簿打开期间从没启动过定时器，或者定时任务已经触发完了，再去取消一个不存在的任务就会报错。加上错误处理，取消时报错也默默跳过，不打断用户。

步骤二：双击左侧的ThisWorkbook图标，在代码区粘贴：

Private Sub Workbook_Open() StartTimer End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) StopTimer End Sub

Workbook_Open在文件打开时执行，StartTimer启动每日定时循环；Workbook_BeforeClose在关闭文件前执行清理动作，避免定时任务残留。

这里我额外提醒一个细节：如果你同时打开了多个Excel工作簿，每个工作簿的Workbook_Open都会启动属于自己的定时器。也就是说，两份工作簿都会在3点弹窗。如果你只想让其中一份弹，就只在那份里写Workbook_Open，另一份不写。新手经常在这上面懵，以为是代码写错了，其实是重复启动。

3.4 第三版代码：把时间和提示文字放到单元格里

写死时间只能满足固定日程，比如每天下午3点。但实际需求往往是变化的——今天想提醒下午2点开会，明天想提醒上午10点给客户回电话。每改一次就动一次代码，太不优雅。更好的方案是把时间和文字放在单元格里，程序启动时读取单元格内容。

我在B1单元格放“提醒时间”，B2单元格放“提醒内容”。在模块里写一个更通用的版本：

Public RunWhen As Date Sub StartTimer() Dim targetTime As Date On Error Resume Next ' 读取B2单元格中的时间，例如输入 15:00:00 targetTime = CDate(Range("B2").Value) On Error GoTo 0 If targetTime = 0 Then MsgBox "请在B2单元格中输入有效时间，例如 15:00:00", vbExclamation, "配置提醒" Exit Sub End If ' 如果时间已经过了，安排到明天 If Time > targetTime Then RunWhen = Date + 1 + targetTime Else RunWhen = Date + targetTime End If ScheduleTimer End Sub Sub ScheduleTimer() Application.OnTime EarliestTime:=RunWhen, _ Procedure:="ShowReminder", _ LatestTime:=RunWhen + TimeValue("00:00:10") End Sub Sub ShowReminder() ' 读取B3单元格中的提醒文字，若为空则使用默认文字 Dim msg As String msg = Trim(Range("B3").Value) If msg = "" Then msg = "时间到了！该干活了！" MsgBox msg, vbInformation, "Excel贴心提醒" StopTimer End Sub Sub StopTimer() On Error Resume Next Application.OnTime EarliestTime:=RunWhen, _ Procedure:="ShowReminder", _ LatestTime:=RunWhen + TimeValue("00:00:10"), _ Schedule:=False On Error GoTo 0 End Sub

这段代码最大的变化是：

• 通过CDate(Range("B2").Value)从单元格读取时间，改了单元格就等于改了提醒时间。
• 加了一个“时间早于当前时刻”的判断，自动安排到明天。如果没有这个判断，你今天下午5点打开文件，设置提醒4点，程序试图在今天的4点执行定时任务，但4点已经过去了，Application.OnTime会直接报错“指定的时间已过”。这个小判定能帮你避开一个非常隐蔽的坑。
• 每次弹窗后调用StopTimer，把它当成“单次提醒”用。如果想改成循环提醒，只要在ShowReminder末尾再调用一次StartTimer即可。

3.5 保存文件：必须存成启用宏的工作簿格式

写到这里，你需要保存文件了。这一步有说法：普通Excel文件默认保存为.xlsx格式，它天生不支持宏，就算你在里面写了VBA代码，保存后代码也会被静默丢弃。必须保存为.xlsm（启用宏的工作簿）格式。

操作方式：点击“文件” -> “另存为” -> 文件类型选择“Excel启用宏的工作簿 (*.xlsm)”。保存后文件名后缀会变成.xlsm，这就对了。

如果你用的是旧版Excel，对应的格式是.xls，同样能存宏。但.xlsm是当前主流通用格式，建议无脑选它。

4. 实测中的坑：常见问题与排查思路

4.1 宏被禁用了，怎么快速解开

这是所有人绕不开的第一道坎。打开你保存的.xlsm文件时，如果Excel顶部出现一条黄色的安全警告条，写着“宏已被禁用”，说明你的宏安全级别不允许运行代码。

最省事的临时方案：点击警告条上的“启用内容”按钮，本次运行就放行了。但下次打开又会问你一遍，挺烦的。

想一劳永逸，推荐设置“受信任位置”。把存放这个Excel文件的文件夹设置为受信任位置，放入该文件夹的文件打开时自动启用宏，不再反复弹提示。但请务必注意：受信任位置里别乱放来历不明的文件，这个文件夹只会放过你自己放进去的东西。

还有一种更麻烦的情况：公司IT策略直接锁死宏，连“启用内容”按钮都没有。这时候只能找IT管理员申请，或者用自己的个人电脑。不建议用歪门邪道去绕过安全策略，合规永远第一。

4.2 设置了时间却不弹窗，先按顺序查五件事

不弹窗的原因千奇百怪，但按顺序排查，五分钟内基本能定位。

第一，检查时间是否已经过去了。今天下午5点设置提醒下午3点，这永远不可能触发。用我之前在代码里写的“过期时间自动顺延到明天”逻辑能规避这个问题，如果没写，只能自己注意。

第二，检查过程名拼写是否一致。Procedure:="ShowReminder"，你的过程是不是真的叫ShowReminder？注意拼写区分大小写、也没多余空格。

第三，检查代码有没有语法错误。在VBA编辑器里，点击“调试” -> “编译VBAProject”，如果编译报错，鼠标会停在出错行，修完再跑一次。

第四，确认定时器真的启动了。最简单的办法，设置一个一分钟后的测试时间，按F5运行StartTimer，然后正常操作Excel，看到底弹不弹。如果这不弹，问题大概率出在时间参数上；如果弹了，那就是真实时间的设置逻辑有问题。

第五，检查你是不是同时开了多个Excel进程。有些同事电脑上挂着好几个Excel窗口，提醒代码可能被某个不可见的实例“接走了”。建议操作时只保留一个工作簿，或者关闭其它无关Excel窗口再测试。

4.3 弹窗重复出现或者关不掉，是定时器没清理干净

这种情况通常出现在你多次运行了StartTimer，但前面的定时任务没有被取消。比如你调试时前前后后按了三次F5，Excel里其实排着三个定时任务，到点就会连续弹出三个一模一样的窗口。

解决办法是在调试前先运行StopTimer，或者在代码开头调用一次StopTimer清理旧任务再启动新的：

Sub StartTimer() StopTimer ' 清理可能残留的旧定时器 ' ... 后续逻辑 End Sub

还有一个高发场景：你关掉了工作簿，结果定时弹窗还在，或者关闭时出现“内存不足”的报错。这多半是没写Workbook_BeforeClose清理逻辑，或者清理时报错被吞掉了。按我在3.3节写的模板，把StopTimer挂在关闭事件里，并且加上On Error Resume Next，基本能根治。

4.4 电脑休眠和锁屏会造成什么影响

这个坑特别隐蔽，我翻车过一次，必须拿出来单独说。

Application.OnTime的定时机制依赖Excel进程持续运行。你把电脑合上盖子进入休眠，所有程序暂停，定时器也会跟着“冻住”。等你再次唤醒电脑，Excel恢复运行，但系统时间已经跳过了原定提醒点。这时候Excel的行为取决于具体版本和触发时序，可能立刻补弹一次提醒，也可能干脆不弹了。

如果你是“人坐在电脑前但屏幕锁了”的状态，情况会好一些。锁屏不等于休眠，Excel进程还在跑，到点一样能弹窗，只是你看不到而已，解锁后消息框就挂在那等你处理。

最稳妥的做法：需要准点提醒时，别让电脑休眠。在“电源设置”里把休眠时间调长一点，或者每半小时动一下鼠标。如果你需要人离开电脑也能收到提醒，那Excel就真的搞不定了，得配合企业微信、钉钉或者系统任务计划程序做邮件提醒，那是另一个方案了。

5. 让它从“玩具”变成“生产力”的几个升级思路

5.1 给任务表格加一列“视觉提醒”，双重保险

弹窗是“瞬间提醒”，适合打断你；但有些任务不是到了那一刻才需要处理的，而是“快到期了，心里得有个数”。这种情况靠弹窗反而不合适——你不可能让Excel每五分钟弹一次，弹多了人就麻木了。

我习惯的做法是：在任务清单最右侧加一列为“剩余天数”，用公式自动计算，再用条件格式把临近截止日期的行标成黄色，把已过期的标成红色。

比如D列是截止日期，E2单元格写公式：

=D2-TODAY()

然后选中整个数据区域，设置条件格式：

• 规则1：=$E2<=0，填充红色，表示已过期。
• 规则2：=$E2<=3，填充黄色，表示三天内到期。

这样你每次打开表格，视觉上就能快速捕捉哪些任务要优先处理。弹窗负责“卡点”，条件格式负责“预热”，两者配合，比单用弹窗靠谱得多。

5.2 用“提醒清单”管理一天的所有提醒

我在电脑前工作一天，可能有五六个提醒：喝水、午饭、午休结束、下午提交报表、下班前整理日报。如果每个提醒都单独写一个模块过程，代码会变得臃肿。更合理的做法是做一个“提醒配置表”。

具体设计：

• A列：序号
• B列：提醒时间
• C列：提醒文字
• D列：是否启用（填“是”或“否”）

然后写一个过程遍历所有启用状态的行，逐行安排定时器：

Sub StartAllTimers() Dim i As Long Dim lastRow As Long lastRow = Sheets("提醒配置").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To lastRow If Sheets("提醒配置").Cells(i, 4).Value = "是" Then ScheduleOne CDate(Sheets("提醒配置").Cells(i, 2).Value), _ Sheets("提醒配置").Cells(i, 3).Value End If Next i End Sub

当然，要真正实现“每行一个独立定时器”，你需要在ScheduleOne里注册不同的过程，或者通过参数传递内容，这比单提醒版本复杂一些。但如果你需要管理5条以上的提醒，这个方向绝对值得去研究。真实的项目里，我就是用这个“提醒配置表”模式，把每天所有定时突发事项全部收敛到一个表里，维护成本很低。

5.3 谁适合用这个工具，谁不适合

如果你平时工作流就是把Excel当“信息中枢”——所有计划、数据、名单都在表格里，那么这个提醒工具就是顺手加进去的一个天然模块，学习成本极低，用起来也顺手。

但如果你平时根本不怎么开Excel，工作上大量依赖手机和在线协作工具，那就别硬用Excel提醒。手机闹钟、日历日程、项目协作软件都比你改造Excel更轻量。工具是为人服务的，合适才是第一原则。我见过有人为了炫技，非要在Excel里做一套完整的会议管理系统，最后发现大家还是习惯用钉钉——那纯属给自己加戏。

个人认为，Excel定时提醒的最佳定位是：辅助那些“坐在Excel前专注工作”的人，而不是替代专业日程工具。找准定位，你才会觉得它贴心；用错场景，你会觉得它鸡肋。

最后分享一个我自己踩出来的测试习惯：每次写新版提醒代码，第一件事不是设今天下午5点，而是把测试时间设成“当前时间+2分钟”，然后继续手头的工作。到点弹窗出现，确认弹窗内容对不对、时间间隔对不对，再把真实时间填回去。这套“两分钟测试法”帮我避开了至少十次因为粗心导致的差错。做过两三次之后，你就能完全信任这个“Excel贴心秘书”了。