在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ù)實際需要進行修改),設置調用提醒宏
Application.OnTime TimeValue("010:00:00"), "tx" '再設置提醒一次。
End Sub
Sub tx() '設置一個顯示提醒消息的宏。
msg = MsgBox("訂購一張2005年1月1日北京——海南的機票!", vbInformation, "趕快訂機票")
End Sub
提示:
可以設置多個提醒宏(tx1、tx2……),只需要在自動運行宏中分別設置調用的時間,即可實現(xiàn)多個消息的定時提醒。
6.保存代碼,并退出VBA編輯狀態(tài)。
7.當設定的時間到來時,系統(tǒng)將彈出提示框進行提醒。