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

《用excel巧妙設(shè)置定時(shí)提醒》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、用Excel巧妙設(shè)置定時(shí)提醒小余在交易中心工作，經(jīng)常要打電話通知相應(yīng)的評(píng)委參加工程評(píng)標(biāo)工作，有時(shí)工作一忙，就忘記通知而影響正常開(kāi)標(biāo)?！　∮捎谒刻於加肊xcel為登記相應(yīng)的數(shù)據(jù)，于是，我就用Excel為他設(shè)置了一個(gè)定時(shí)提醒的功能。文章末尾提供原文件供大家下載參考。　　1、啟動(dòng)Excel，新建一文檔，取名保存（如“提醒.xls”）?！　?、按“Alt+F11”組合鍵進(jìn)入VBA編輯狀態(tài)（如圖1）?！　　。▓D片較大，請(qǐng)拉動(dòng)滾動(dòng)條觀看）　　　　3、在左側(cè)“工程資源管理器”窗口中，選中“VBAProject(提醒.xls)”選項(xiàng)，執(zhí)行

2、“插入模塊”命令，插入一個(gè)新模塊（模塊1，參見(jiàn)圖1）?！　?、將下述代碼輸入到右側(cè)的編輯區(qū)域中：　　Subauto_open()　'設(shè)置一個(gè)自動(dòng)運(yùn)行的宏——auto_open　Application.OnTimeTimeValue("08:30:00"),"tx"　'設(shè)置提醒時(shí)間——08:30:00（可以根據(jù)需要修改），設(shè)置調(diào)用提醒宏——tx?！　pplication.OnTimeTimeValue("09:30:00"),"tx"　'再設(shè)置提醒一次?！　ndSub　　Subtx()　'設(shè)置一個(gè)顯示提醒消息的宏（名稱要與

3、上述自動(dòng)運(yùn)行宏中調(diào)用的名稱一致）?！　sg=MsgBox("通知張三、李四、王五評(píng)委參加下午評(píng)標(biāo)！",vbInformation,"趕快打電話")'設(shè)置提醒對(duì)話框中的消息和標(biāo)題（前面是消息內(nèi)容，后面是對(duì)話框標(biāo)題，請(qǐng)根據(jù)需要輸入）?！　ndSub　　注意：①上述代碼中，英文單引號(hào)及其后面的字符是對(duì)代碼的解釋，在實(shí)際輸入時(shí)可以不需要（參見(jiàn)圖1）。②如果設(shè)置多個(gè)提醒宏（tx1、tx2……），并在自動(dòng)運(yùn)行宏中分別設(shè)置調(diào)用的時(shí)間，可以實(shí)現(xiàn)多個(gè)消息的定時(shí)提醒?！　?、輸入完成后，退出VBA編輯狀態(tài)，保存工作簿文檔?！　?、以后，一上

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