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
- 阅读 ( 953 )
- 分类：其他类型
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章