用Excel巧妙設置定時(shí)提醒

【簡(jiǎn) 介】
　　小余在交易中心工作，經(jīng)常要打電話(huà)通知相應的評委參加工程評標工作，有時(shí)工作一忙，就忘記通知而影響正常開(kāi)標。

 

　　小余在交易中心工作，經(jīng)常要打電話(huà)通知相應的評委參加工程評標工作，有時(shí)工作一忙，就忘記通知而影響正常開(kāi)標。

　　由于他每天都用Excel為登記相應的數據，于是，我就用Excel為他設置了一個(gè)定時(shí)提醒的功能。文章末尾提供原文件供大家下載參考。

　　1、啟動(dòng)Excel，新建一文檔，取名保存（如“提醒.xls”）。

　　2、按“Alt+F11”組合鍵進(jìn)入VBA編輯狀態(tài)（如圖1）。

 

（圖片較大，請拉動(dòng)滾動(dòng)條觀(guān)看）

　　3、在左側“工程資源管理器”窗口中，選中“VBAProject(提醒.xls)”選項，執行“插入模塊”命令，插入一個(gè)新模塊（模塊1，參見(jiàn)圖1）。

　　4、將下述代碼輸入到右側的編輯區域中：

　　Sub auto_open()　 '設置一個(gè)自動(dòng)運行的宏——auto_open

　 Application.OnTime TimeValue("08:30:00"), "tx" 　'設置提醒時(shí)間——08:30:00（可以根據需要修改），設置調用提醒宏——tx。

　　Application.OnTime TimeValue("09:30:00"), "tx" 　'再設置提醒一次。

　　End Sub

　　Sub tx()　 '設置一個(gè)顯示提醒消息的宏（名稱(chēng)要與上述自動(dòng)運行宏中調用的名稱(chēng)一致）。

　　msg = MsgBox("通知張三、李四、王五評委參加下午評標！", vbInformation, "趕快打電話(huà)") '設置提醒對話(huà)框中的消息和標題（前面是消息內容，后面是對話(huà)框標題，請根據需要輸入）。

　　End Sub

　　注意：①上述代碼中，英文單引號及其后面的字符是對代碼的解釋?zhuān)�在�?shí)際輸入時(shí)可以不需要（參見(jiàn)圖1）。②如果設置多個(gè)提醒宏（tx1、tx2……），并在自動(dòng)運行宏中分別設置調用的時(shí)間，可以實(shí)現多個(gè)消息的定時(shí)提醒。

　　5、輸入完成后，退出VBA編輯狀態(tài)，保存工作簿文檔。

　　6、以后，一上班，就啟動(dòng)Excel，打開(kāi)上述工作簿文檔。設定時(shí)間一到，系統即刻彈出如圖2所示的提示框，這下不會(huì )忘記了吧。原文件下載

 

 

【用Excel巧妙設置定時(shí)提醒】相關(guān)文章：

Excel定期提醒實(shí)例：設備檢測提醒11-11

巧妙利用Word設置稿件格式11-11

創(chuàng )建模板徹底修改Excel常用默認設置03-25

用Word巧妙獲取QQ聊天記錄11-11

用Excel制作個(gè)性化銷(xiāo)售記錄圖表11-11

用Excel在教案中處理特殊文字11-11

讓Excel說(shuō)話(huà)11-11

巧妙面試“婆家”02-18

巧妙管理Word文檔11-11