vba窗體如何設置定時提醒功能
vba窗體若何設置按時提醒功能？比來不少伴侶咨詢若何在vba窗體中設置按時提醒功能，小編顛末一陣試探，現將本身的一些vba窗體若何設置按時提醒功能的經驗分享給大師，但愿能對大師有所幫忙。
東西/原料
- excel或word
方式/步調
- 1
打開一個空白的excel或word文檔，在東西欄中依次點擊“開辟東西”——“Visual Basic”，或直接按下快捷鍵“Alt+F11”,打開Microsoft Visual Basic編纂窗口。
- 2
在Microsoft Visual Basic窗口，如下圖所示依次點擊“插入”——“用戶窗體”，在當前文檔中插入一個用戶窗體。
- 3
如下圖所示，在剛插入的用戶窗體中，添加一個文本標簽、一個文本框和一個按鈕，并在屬性面板中點竄其caption屬性值。
- 4
雙擊剛添加的按鈕，打開代碼編纂窗口，可以看到，這時在代碼編纂窗口中會主動生當作按鈕的click事務的過程，在該事務過程中，我們添加以下代碼：
Application.OnTime TimeValue(textbox1.Text), "tip"
- 5
然后，在工程窗口中肆意位置右鍵鼠標，彈出菜單中依次選擇“插入”——“模塊”，這時會插入一個模塊，并切換到該模塊代碼編纂窗口。
- 6
在模塊代碼編纂窗，輸入以下代碼：
Sub tip()
MsgBox ("時候到了")
End Sub
當設心猿意馬的時候到了時，執行該動作，即彈出動靜提醒。
- 7
雙擊工程窗口中的“UserForm1”切換到用戶窗體頁面，點擊東西欄中的“運行”按鈕或直接按快捷鍵F5，運行窗體。
- 8
在運行后的用戶窗口中的文本框中輸入一個時候后，點單“設置提醒”按鈕，當系統時候與文本框中的時候一致時，就會彈出動靜進行提醒。
- 9
除了可以在文本框中設置指按時間，還可以設置幾多時候后進行提醒，只需點竄按鈕代碼如下：
Sub CommandButton1_Click()
Application.OnTime Now + TimeValue(textbox1.Text), "tip"
End Sub
- 10
運行后，如下圖所示在文本框中輸入“00：00：05”，點擊“設置提醒”按鈕后，5秒鐘后就會彈出動靜提醒。
注重事項
- 該代碼只用于演示，未對文本框值的有用性進行校驗，現實應用中請大師自行進行完美。
- 發表于 2018-08-12 00:00
- 閱讀 ( 797 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章