作者:乔山办公网日期:
返回目录:excel表格制作
EXCEL中的VBA也需要一个开关
需要运行EXCEL才能开始执行
要开机就有显示,还是在自启动下面设置吧
Sub s() Do DoEvents If Time > TimeValue("10:00") Then MsgBox "时间来到源zd" End End If Loop While TrueEnd Sub
把这百个代度码放专到属
Private Sub Workbook_Open()
Application.OnTime Now() + TimeValue("00:00:10"), "wbclose"
End Sub
Public Sub wbclose()
Application.DisplayAlerts = False
ThisWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub
1、在Excel中新建一个文档,并将它命名为“提醒.xls”。
2、执行菜单栏中的“工具”→“宏”→“Visual Basic编辑器”命令,进入VBA编辑状态。
3、在“工程资源管理器”窗口中,选中“VBAProject(提醒.xls)”选项,然后执行菜单栏中的“插入”→“模块”命令,插入一个名为“模块1”的新模块。
4、选中“模块1”,执行菜单栏中的“视图”→“属性窗口”命令,在打开的“属性”窗口中将它更改为“提醒”。
5、在“提醒”模块的代码窗口中输入如下所示的代码:
Sub auto_open() '设置一个自动运行的宏--auto_open
Application.OnTime TimeValue("09:30:00"), "tx"
'设置提醒时间为09:30:00(可以根据实际需要进行修改),设置调用提醒宏
Application.OnTime TimeValue("010:00:00"), "tx" '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏。
msg = MsgBox("订购一张2005年1月1日北京——海南的机票!", vbInformation, "赶快订机票")
End Sub
提示:
可以设置多个提醒宏(tx1、tx2……),只需要在自动运行宏中分别设置调用的时间,即可实现多个消息的定时提e799bee5baa6e58685e5aeb9331醒。
6、保存代码,并退出VBA编辑状态。
7、当设定的时间到来时,系统将弹出提示框进行提醒。