VBA 到指定的时间自动弹窗提示

CommaZ

各位老师们：
       因工作需要，想要实现的功能是：我在H列输入时间，当电脑系统时间到H列输入的时间或者超过这个时间，进行弹窗提示。
       以下2个方案能否实现：
       方案1：能否在不打开EXCLE宏表的前提下自动弹窗提示（感觉好像有点难）。
       方案2：如果需要打开EXCLE宏表，能否不需要点击宏按钮能自动提示。
       自己从论坛找了VBA代码改了下，但是需要打开EXCLE宏表，在点击宏按钮才会跳出提示，这样就失去了原本的意义，因为用EXCLE条件格式就能更简单的实现重点提示。
       以下这个图片是需要点击按钮才会跳出提示

       请各位老师指导下，并帮忙实现方案1（最优）或者方案2的需求，谢谢！

高个子

不打开EXCLE宏表的前提下你只能用条件格式来标记颜色，不能弄个弹窗出来，打开宏表的情况下不用sub，写个事件就可以了。。

adad321

填写时间，点击启动，到时间后弹出消息，响起提示音。

1. Option Explicit
   
2. Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
   
3. Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
   
4. Private Const WM_TIMER As Long = &H113
   
5. Private timerID As Long
   
6. 
   
7. Private Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
   
8.     Dim targetTime As Date
   
9.     Dim currentTime As Date
   
10.    
    
11.     targetTime = Range("H2").Value ' 获取H2单元格中的时间
    
12.     currentTime = Now ' 获取当前时间
    
13.    
    
14.     If Format(currentTime, "hh:mm:ss") = Format(targetTime, "hh:mm:ss") Then ' 判断当前时间是否等于目标时间
    
15.         MsgBox "时间到了！" ' 弹出消息框
    
16.         Beep ' 播放提示声音
    
17.         KillTimer hwnd, idEvent ' 停止定时器
    
18.     End If
    
19. End Sub
    
20. 
    
21. Sub StartTimer()
    
22.     timerID = SetTimer(0, 0, 1000, AddressOf TimerProc) ' 启动定时器，间隔为1秒
    
23. End Sub
    
24. 
    
25. Sub StopTimer()
    
26.     KillTimer 0, timerID ' 停止定时器
    
27. End Sub
    

复制代码

adad321

网络延迟，发重了，略

adad321

延迟网络，发重了，略

adad321

发重了，延迟了，略

沈默00

这个真心不错，顶一下

ZXB0312

学习一下

Raiseup

adad321 发表于 2023-7-7 21:37
填写时间，点击启动，到时间后弹出消息，响起提示音。

大佬，如果是64位系统，该咋改？

CommaZ

高个子 发表于 2023-7-7 18:54
不打开EXCLE宏表的前提下你只能用条件格式来标记颜色，不能弄个弹窗出来，打开宏表的情况下不用sub，写个事 ...

还属于新手，不会事件，感谢老师的意见！