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

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

 

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

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

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

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

 

（圖片較大，請拉動滾動條觀看）

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

　　4、將下述代碼輸入到右側(cè)的編輯區(qū)域中：

　　Sub auto_open()　 '設(shè)置一個自動運(yùn)行的宏——auto_open

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

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

　　End Sub

　　Sub tx()　 '設(shè)置一個顯示提醒消息的宏（名稱要與上述自動運(yùn)行宏中調(diào)用的名稱一致）。

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

　　End Sub

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

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

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

 

 

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

創(chuàng)建模板徹底修改Excel常用默認(rèn)設(shè)置09-21

巧妙面試“婆家”07-31

面試提醒24則07-31

“批評”變成提醒08-18

解決Excel數(shù)值進(jìn)位問題07-31

解決Excel求和產(chǎn)生的誤差07-31

Excel打印故障問答錦囊07-31

構(gòu)造Excel動態(tài)圖表07-31

面試意外如何巧妙圓場07-31

網(wǎng)購陷阱巧妙應(yīng)對08-08