在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è)自動(dòng)運(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("訂購(gòu)一張2005年1月1日北京——海南的機(jī)票！", vbInformation, "趕快訂機(jī)票")

　　End Sub

　　提示：

　　可以設(shè)置多個(gè)提醒宏（tx1、tx2……），只需要在自動(dòng)運(yùn)行宏中分別設(shè)置調(diào)用的時(shí)間，即可實(shí)現(xiàn)多個(gè)消息的定時(shí)提醒。

　　6．保存代碼，并退出VBA編輯狀態(tài)。

　　7．當(dāng)設(shè)定的時(shí)間到來(lái)時(shí)，系統(tǒng)將彈出提示框進(jìn)行提醒。