回覆列表
  • 1 # 使用者5376173803818

      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、當設定的時間到來時,系統將彈出提示框進行提醒。

  • 中秋節和大豐收的關聯?
  • 汽車發動後副水箱冒氣泡是怎麼回事?