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秒钟后就会弹出动静提醒。

注重事项
- 该代码只用于演示,未对文本框值的有用性进行校验,现实应用中请大师自行进行完美。








