如何巧妙設(shè)置定時提醒？

1、打開Excel目標文檔，按【Alt】+【F11】組合鍵，進入VBA編輯狀態(tài)。

2、在“工程資源管理器”窗口中，右鍵單擊“VBAProject(練習.xls)”，在隨即打開的快捷菜單中執(zhí)行【插入】|【模塊】命令，插入一個模塊，如圖1所示。

圖1 插入新模塊

3、選中“模塊1”，執(zhí)行菜單欄中的【視圖】|【屬性窗口】命令，在打開的“屬性”窗口中將其更名為“提醒”，如圖2所示。

圖2 “屬性”窗口

4、在“提醒”模塊的代碼窗口中輸入如下代碼，如圖3所示。

Sub auto_open()

'設(shè)置一個自動運行的宏——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è)置一個顯示提醒消息的宏(名稱要與上述自動運行宏中調(diào)用的名稱一致)。

msg = MsgBox("下午要交稿!"， vbInformation， "趕快發(fā)郵件")

'設(shè)置提醒對話框中的消息和標題(前面是消息內(nèi)容，后面是對話框標題，請根據(jù)需要輸入)。

End Sub

圖3 輸入代碼

5、保存并退出VBA編輯狀態(tài)，當設(shè)定的時間到來時，系統(tǒng)將彈出提示對話框提醒用戶，如圖4所示。

圖4 提醒窗口