如何实现语音提醒到期时间？

作者：绿色风分类：时间：2022-08-17 浏览：162

楼主
gouweicao78

Q：如何在单元格中输入到期的时间后，倒计时至剩3分钟时提醒“注意，只剩3分钟”，到期后提醒“注意，时间到”？
A：按<Alt+F11>，在VBE窗口插入模块，输入代码如下：

Option Explicit
Dim NextTick
Sub UpdateClock()
ThisWorkbook.Sheets(1).Calculate '让工作表自动计算
NextTick = Now + TimeValue("00:00:01") '设置1秒钟刷新的公式
Application.OnTime NextTick, "UpdateClock"
If [c5] = "00:03:00" Then
Application.Speech.Speak "注意，还剩3分钟"
ElseIf [c5] = "时间到" Then
Application.Speech.Speak "注意，时间到"
Application.OnTime NextTick, "UpdateClock", , False '停止刷新
End If
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False '停止刷新
End Sub

然后设置2个按钮，分别指定UpdateClock、Stopclock宏。在C1单元格输入到期时间（不带日期），在C5输入以下公式：

=TEXT(C1-NOW()+TODAY(),"hh:mm:ss;时间到")

时间语音提醒.rar

2楼
xmyjk

谢谢草版分享。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表