Excel巧妙設(shè)置定時(shí)間提醒學(xué)習(xí)教案

1、會(huì)計(jì)學(xué)1Excel巧妙設(shè)置定時(shí)間提醒巧妙設(shè)置定時(shí)間提醒第一頁(yè)，編輯于星期六：十點(diǎn) 十一分。數(shù)據(jù)，于是，我就用Excel為他設(shè)置了一個(gè)定時(shí)提醒的功能。文章末尾提供原文件供大家下載參考。1、啟動(dòng)Excel，新建一文檔，取名保存(如“提第1頁(yè)/共13頁(yè)第二頁(yè)，編輯于星期六：十點(diǎn) 十一分。醒.xls”)。2、按“Alt+F11”組合鍵進(jìn)入VBA編輯狀態(tài)(如圖1)。(圖片較大，請(qǐng)拉動(dòng)滾動(dòng)條觀看)3、在左側(cè)“工程資源管理器”窗第2頁(yè)/共13頁(yè)第三頁(yè)，編輯于星期六：十點(diǎn) 十一分?？谥?，選中“VBAProject(提醒.xls)”選項(xiàng)，執(zhí)行“插入模塊”命令，插入一個(gè)新模塊(模塊1，參見圖1)。4、將下述代碼輸

2、入到右側(cè)的第3頁(yè)/共13頁(yè)第四頁(yè)，編輯于星期六：十點(diǎn) 十一分。編輯區(qū)域中：Sub auto_open() 設(shè)置一個(gè)自動(dòng)運(yùn)行的宏auto_openApplication.onTime Timeva第4頁(yè)/共13頁(yè)第五頁(yè)，編輯于星期六：十點(diǎn) 十一分。lue(08:30:00), tx 設(shè)置提醒時(shí)間08:30:00(可以根據(jù)需要修改)，設(shè)置調(diào)用提醒宏tx。Applic第5頁(yè)/共13頁(yè)第六頁(yè)，編輯于星期六：十點(diǎn) 十一分。ation.onTime Timevalue(09:30:00), tx 再設(shè)置提醒一次。End SubSub tx() 設(shè)第6頁(yè)/共13頁(yè)第七頁(yè)，編輯于星期六：十點(diǎn) 十一分。置一個(gè)顯

3、示提醒消息的宏(名稱要與上述自動(dòng)運(yùn)行宏中調(diào)用的名稱一致)。msg=MsgBox(通知張三、李四、王五評(píng)委參加下午評(píng)標(biāo)!, vbI第7頁(yè)/共13頁(yè)第八頁(yè)，編輯于星期六：十點(diǎn) 十一分。nformation, 趕快打電話) 設(shè)置提醒對(duì)話框中的消息和標(biāo)題(前面是消息內(nèi)容，后面是對(duì)話框標(biāo)題，請(qǐng)根據(jù)需要輸入)。End Su第8頁(yè)/共13頁(yè)第九頁(yè)，編輯于星期六：十點(diǎn) 十一分。b注意：上述代碼中，英文單引號(hào)及其后面的字符是對(duì)代碼的解釋，在實(shí)際輸入時(shí)可以不需要(參見圖1)。如果設(shè)置多個(gè)提醒宏(tx1、tx2)第9頁(yè)/共13頁(yè)第十頁(yè)，編輯于星期六：十點(diǎn) 十一分。，并在自動(dòng)運(yùn)行宏中分別設(shè)置調(diào)用的時(shí)間，可以實(shí)現(xiàn)多個(gè)消息的定時(shí)提醒。5、輸入完成后，退出VBA編輯狀態(tài)，保存工作簿文檔。6、以后，一上班，就啟第10頁(yè)/共13頁(yè)第十一頁(yè)，編輯于星期六：十點(diǎn) 十一分。動(dòng)Excel，打開上述工作簿文檔。設(shè)定時(shí)間一到，系統(tǒng)即刻彈出如圖2所示的提示框，這下不會(huì)忘記了吧。原文件下載第11頁(yè)/共13頁(yè)第十二頁(yè)，編輯于星期六：十