1、在Excel中新建一個文件,並將它命名為“提醒.xls”。
2、執行選單欄中的“工具”→“宏”→“Visual Basic編輯器”命令,進入VBA編輯狀態。
3、在“工程資源管理器”視窗中,選中“VBAProject(提醒.xls)”選項,然後執行選單欄中的“插入”→“模組”命令,插入一個名為“模組1”的新模組。
4、選中“模組1”,執行選單欄中的“檢視”→“屬性視窗”命令,在開啟的“屬性”視窗中將它更改為“提醒”。
5、在“提醒”模組的程式碼視窗中輸入如下所示的程式碼:
Sub auto_open() "設定一個自動執行的宏--auto_open
Application.OnTime TimeValue("09:30:00"), "tx"
"設定提醒時間為09:30:00(可以根據實際需要進行修改),設定呼叫提醒宏
Application.OnTime TimeValue("010:00:00"), "tx" "再設定提醒一次。
End Sub
Sub tx() "設定一個顯示提醒訊息的宏。
msg = MsgBox("訂購一張2005年1月1日北京——海南的機票!", vbInformation, "趕快訂機票")
提示:
可以設定多個提醒宏(tx1、tx2……),只需要在自動執行宏中分別設定呼叫的時間,即可實現多個訊息的定時提醒。
6、儲存程式碼,並退出VBA編輯狀態。
7、當設定的時間到來時,系統將彈出提示框進行提醒。
1、在Excel中新建一個文件,並將它命名為“提醒.xls”。
2、執行選單欄中的“工具”→“宏”→“Visual Basic編輯器”命令,進入VBA編輯狀態。
3、在“工程資源管理器”視窗中,選中“VBAProject(提醒.xls)”選項,然後執行選單欄中的“插入”→“模組”命令,插入一個名為“模組1”的新模組。
4、選中“模組1”,執行選單欄中的“檢視”→“屬性視窗”命令,在開啟的“屬性”視窗中將它更改為“提醒”。
5、在“提醒”模組的程式碼視窗中輸入如下所示的程式碼:
Sub auto_open() "設定一個自動執行的宏--auto_open
Application.OnTime TimeValue("09:30:00"), "tx"
"設定提醒時間為09:30:00(可以根據實際需要進行修改),設定呼叫提醒宏
Application.OnTime TimeValue("010:00:00"), "tx" "再設定提醒一次。
End Sub
Sub tx() "設定一個顯示提醒訊息的宏。
msg = MsgBox("訂購一張2005年1月1日北京——海南的機票!", vbInformation, "趕快訂機票")
End Sub
提示:
可以設定多個提醒宏(tx1、tx2……),只需要在自動執行宏中分別設定呼叫的時間,即可實現多個訊息的定時提醒。
6、儲存程式碼,並退出VBA編輯狀態。
7、當設定的時間到來時,系統將彈出提示框進行提醒。