如何设置excel到期自动提醒功能
3个回答
2017-09-12 · 为您提供更好的产品和服务
七彩虹科技有限公司
七彩虹科技成立于1995年,中国著名的DIY硬件厂商, 亚太区最重要的显示卡提供商之一。专注于IT硬件产品研发、生产和销售,致力于为个人和企业用户提供最具创新与实用价值的硬件产品及应用方案。
向TA提问
关注
展开全部
1、启动Excel,新建一文档,取名保存(如“提醒.xls”)。
2、按“Alt+F11”组合键进入VBA编辑状态。
3、在左侧“工程资源管理器”窗口中,选中“VBAProject(提醒.xls)”选项,执行“插入模块”命令,插入一个新模块。
4、将下述代码输入到右侧的编辑区域中:
Sub auto_open() '设置一个自动运行的宏——auto_open
Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00(可以根据需要修改),设置调用提醒宏——tx。
Application.OnTime TimeValue("09:30:00"), "tx" '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏(名称要与上述自动运行宏中调用的名称一致)。
msg = MsgBox("通知张三、李四、王五评委参加下午评标!", vbInformation, "赶快打电话") '设置提醒对话框中的消息和标题(前面是消息内容,后面是对话框标题,请根据需要输入)。
End Sub
注意:①上述代码中,英文单引号及其后面的字符是对代码的解释,在实际输入时可以不需要。②如果设置多个提醒宏(tx1、tx2……),并在自动运行宏中分别设置调用的时间,可以实现多个消息的定时提醒。
5、输入完成后,退出VBA编辑状态,保存工作簿文档。
6、以后,一上班,就启动Excel,打开上述工作簿文档。设定时间一到,系统即刻弹出提示框。
2、按“Alt+F11”组合键进入VBA编辑状态。
3、在左侧“工程资源管理器”窗口中,选中“VBAProject(提醒.xls)”选项,执行“插入模块”命令,插入一个新模块。
4、将下述代码输入到右侧的编辑区域中:
Sub auto_open() '设置一个自动运行的宏——auto_open
Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00(可以根据需要修改),设置调用提醒宏——tx。
Application.OnTime TimeValue("09:30:00"), "tx" '再设置提醒一次。
End Sub
Sub tx() '设置一个显示提醒消息的宏(名称要与上述自动运行宏中调用的名称一致)。
msg = MsgBox("通知张三、李四、王五评委参加下午评标!", vbInformation, "赶快打电话") '设置提醒对话框中的消息和标题(前面是消息内容,后面是对话框标题,请根据需要输入)。
End Sub
注意:①上述代码中,英文单引号及其后面的字符是对代码的解释,在实际输入时可以不需要。②如果设置多个提醒宏(tx1、tx2……),并在自动运行宏中分别设置调用的时间,可以实现多个消息的定时提醒。
5、输入完成后,退出VBA编辑状态,保存工作簿文档。
6、以后,一上班,就启动Excel,打开上述工作簿文档。设定时间一到,系统即刻弹出提示框。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询