作者：绿色风
分类：
时间：2022-08-18
浏览：214
楼主
春雷 |
- Option Explicit
- Sub Start()
- Application.OnTime "09:50:00", "CLWANG"
- End Sub
- Sub CLWANG()
- Dim i As Integer
- For i = 1 To 60
- Select Case i Mod 3
- Case 0
- Application.Wait Now() + TimeValue("00:00:01")
- Call ºì
- Case 1
- Application.Wait Now() + TimeValue("00:00:01")
- Call Ȯ
- Case 2
- Application.Wait Now() + TimeValue("00:00:01")
- Call ÂÌ
- End Select
- Next i
- ' ThisWorkbook.Saved = True
- ' ThisWorkbook.Close
- End Sub
- Sub ºì()
- '
- ' ºì Macro
- ' Macro recorded 2009-7-7 by CLWANG
- '
- '
- Range("A1").Select
- Selection.Font.ColorIndex = 3
- Range("A1").Select
- End Sub
- Sub Ȯ()
- '
- ' Ȯ Macro
- ' Macro recorded 2009-7-7 by CLWANG
- '
- '
- Range("A1").Select
- Selection.Font.ColorIndex = 6
- Range("A1").Select
- End Sub
- Sub ÂÌ()
- '
- ' ÂÌ Macro
- ' Macro recorded 2009-7-7 by CLWANG
- '
- '
- Range("A1").Select
- Selection.Font.ColorIndex = 4
- Range("A1").Select
- End Sub
方法步骤在附件里!
Start宏里面的时间为闹铃时间可根据你的要求更改!1.JPG
 2.JPG
 闹铃提醒.zip
|
2楼
aimstar |
原来vba也可以设置计划任务，学习下。
 |
3楼
芐雨 |
学习了，原来Application.Wait 是这样用 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一