Excel巧妙設置定時間提醒

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

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

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

　　2、按“Alt+F11”組合鍵進入VBA編輯狀態(如圖1)。

　　(圖片較大，請拉動滾動條觀看)

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

　　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

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

　　5、輸入完成後，退出VBA編輯狀態，保存工作簿文檔。

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

        .