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

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

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

圖1 插入新模塊

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

圖2 “屬性”窗口

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

Sub auto_open()

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

Application.OnTime TimeValue("08：30：00"), "tx"

'設(shè)置提醒時(shí)間——08：30：00(可以根據(jù)需要修改)，設(shè)置調(diào)用提醒宏——tx.

Application.OnTime TimeValue("09：30：00"), "tx"

'再設(shè)置提醒一次。

End Sub

Sub tx()

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

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

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

End Sub

圖3 輸入代碼

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

圖4 提醒窗口