在Excel中VBA的應用很多，今天我們將利用VBA設置提醒。

　　1．在Excel中新建一個文檔，并將它命名為“提醒.xls”。

　　2．執(zhí)行菜單欄中的“工具”→“宏”→“Visual Basic編輯器”命令，進入VBA編輯狀態(tài)。

　　3．在“工程資源管理器”窗口中，選中“VBAProject（提醒.xls）”選項，然后執(zhí)行菜單欄中的“插入”→“模塊”命令，插入一個名為“模塊1”的新模塊。

　　4．選中“模塊1”，執(zhí)行菜單欄中的“視圖”→“屬性窗口”命令，在打開的“屬性”窗口中將它更改為“提醒”。

　　5．在“提醒”模塊的代碼窗口中輸入如下所示的代碼：

　　Sub auto_open()

　　'設置一個自動運行的宏--auto_open

　　Application.OnTime TimeValue("09:30:00"), "tx"'設置提醒時間為09:30:00（可以根據(jù)實際需要進行修改），設置調(diào)用提醒宏

　　Application.OnTime TimeValue("010:00:00"), "tx"　'再設置提醒一次。

　　End Sub

　　Sub tx()

　　'設置一個顯示提醒消息的宏。

　　msg = MsgBox("訂購一張2005年1月1日北京——海南的機票！", vbInformation, "趕快訂機票")

　　End Sub

　　提示：

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

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

　　7．當設定的時間到來時，系統(tǒng)將彈出提示框進行提醒。