Sub auto_open() '设置一个自动运行的宏--auto_open Application.OnTime TimeValue(11:00:00), tx '设置提醒时间为11:00:00(可以根据实际需要进行修改),设置调用提醒宏 Application.OnTime TimeValue(11:05:00), tx '再设置提醒一次。 End Sub Sub tx() '设置一个显示提醒消息的宏。 Application.WindowState = xlNormal '显示本表 msg = MsgBox(时间到!, vbInformation, 提示) End Sub