[已解决][求助]请帮助修改倒计时音频提示方式

zzh49

各位老师好，请帮助修改倒计时提示方式。说明在附件中： 倒计时音频提示.rar (437.41 KB, 下载次数: 25)

2011-10-11 09:14 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-11 10:36

1. Sub TIMER()
   
2.   If [B3] > 0 Then
   
3.     Application.OnTime Now() + VBA.TimeValue("0:0:01"), "TIMER"
   
4.   
   
5.     [B3] = [B3] - 1
   
6.     Else
   
7.     MsgBox "时间到", 0 + 64, "系统提示"
   
8.     End If
   
9.    If [B3] = 5 Then
   
10.     PLA
    
11.   End If
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

mxg825

1. Sub TIMER()
   
2.   If [B3] > 0 Then
   
3.     Application.OnTime Now() + VBA.TimeValue("0:0:01"), "TIMER"
   
4.   
   
5.     [B3] = [B3] - 1
   
6.     Else
   
7.     MsgBox "时间到", 0 + 64, "系统提示"
   
8.     End If
   
9.    If [B3] = 5 Then
   
10.     PLA
    
11.   End If
    
12. End Sub
    

复制代码

zzh49

回复 mxg825 的帖子

感谢老师的帮助！

qqyyh

不错,有意思!