用Excel 制作“闹钟”功能

1、启动Excel，新建一文档，取名保存（如“提醒.xls”或“提醒.xlsx”）

2、按“Alt+F11”组合键进入VBA编辑状态。

3、在左侧“工程资源管理器”窗口中，选中“VBAProject(提醒.xls)”选项，执行“插入模块”命令，插入一个新模块。

4、将下述代码输入到右侧的编辑区域中：

Sub auto_open()   '设置一个自动运行的宏——auto_open

    Application.OnTime TimeValue("14:37:00"), "tx"   '设置提醒时间—可以根据需要修改）。

    Application.OnTime TimeValue("14:38:00"), "tx"   '再设置提醒一次。

End Sub

5、时间点可以自行编写

也可以在excel工作表的单元格中编写，vba运行时读取单元格的值。

14:37:00