在Excel中VBA的應(yīng)用很多，今天我們將利用VBA設(shè)置提醒。
1．在Excel中新建一個(gè)文檔，并將它命名為“提醒.xls”。
2．執(zhí)行菜單欄中的“工具”→“宏”→“Visual Basic編輯器”命令，進(jìn)入VBA編輯狀態(tài)。
3．在“工程資源管理器”窗口中，選中“VBAProject（提醒.xls）”選項(xiàng)，然后執(zhí)行菜單欄中的“插入”→“模塊”命令，插入一個(gè)名為“模塊1”的新模塊。
4．選中“模塊1”，執(zhí)行菜單欄中的“視圖”→“屬性窗口”命令，在打開的“屬性”窗口中將它更改為“提醒”。
5．在“提醒”模塊的代碼窗口中輸入如下所示的代碼：
Sub auto_open() '設(shè)置一個(gè)自動運(yùn)行的宏--auto_open
Application.OnTime TimeValue("09:30:00"), "tx"
'設(shè)置提醒時(shí)間為09:30:00（可以根據(jù)實(shí)際需要進(jìn)行修改），設(shè)置調(diào)用提醒宏
Application.OnTime TimeValue("010:00:00"), "tx" '再設(shè)置提醒一次。
End Sub
Sub tx() '設(shè)置一個(gè)顯示提醒消息的宏。
msg = MsgBox("訂購一張2005年1月1日北京——海南的機(jī)票！", vbInformation, "趕快訂機(jī)票")
End Sub
提示：
可以設(shè)置多個(gè)提醒宏（tx1、tx2……），只需要在自動運(yùn)行宏中分別設(shè)置調(diào)用的時(shí)間，即可實(shí)現(xiàn)多個(gè)消息的定時(shí)提醒。
6．保存代碼，并退出VBA編輯狀態(tài)。
7．當(dāng)設(shè)定的時(shí)間到來時(shí)，系統(tǒng)將彈出提示框進(jìn)行提醒。
