vba窗体如何设置定时提醒功能

vba窗体若何设置按时提醒功能？比来不少伴侣咨询若何在vba窗体中设置按时提醒功能，小编颠末一阵试探，现将本身的一些vba窗体若何设置按时提醒功能的经验分享给大师，但愿能对大师有所帮忙。

东西/原料

• excel或word

方式/步调

1. 1

   打开一个空白的excel或word文档，在东西栏中依次点击“开辟东西”——“Visual Basic”，或直接按下快捷键“Alt+F11”,打开Microsoft Visual Basic编纂窗口。

   
2. 2

   在Microsoft Visual Basic窗口，如下图所示依次点击“插入”——“用户窗体”，在当前文档中插入一个用户窗体。

   
3. 3

   如下图所示，在刚插入的用户窗体中，添加一个文本标签、一个文本框和一个按钮，并在属性面板中点窜其caption属性值。

   
4. 4

   双击刚添加的按钮，打开代码编纂窗口，可以看到，这时在代码编纂窗口中会主动生当作按钮的click事务的过程，在该事务过程中，我们添加以下代码：

   Application.OnTime TimeValue(textbox1.Text), "tip"

   
5. 5

   然后，在工程窗口中肆意位置右键鼠标，弹出菜单中依次选择“插入”——“模块”，这时会插入一个模块，并切换到该模块代码编纂窗口。

   
6. 6

   在模块代码编纂窗，输入以下代码：

   Sub tip()

       MsgBox ("时候到了")

   End Sub

   当设心猿意马的时候到了时，执行该动作，即弹出动静提醒。

   
7. 7

   双击工程窗口中的“UserForm1”切换到用户窗体页面，点击东西栏中的“运行”按钮或直接按快捷键F5，运行窗体。

   
8. 8

   在运行后的用户窗口中的文本框中输入一个时候后，点单“设置提醒”按钮，当系统时候与文本框中的时候一致时，就会弹出动静进行提醒。

   
9. 9

   除了可以在文本框中设置指按时间，还可以设置几多时候后进行提醒，只需点窜按钮代码如下：

   Sub CommandButton1_Click()

       Application.OnTime Now + TimeValue(textbox1.Text), "tip"

   End Sub

   
10. 10

    运行后，如下图所示在文本框中输入“00：00：05”，点击“设置提醒”按钮后，5秒钟后就会弹出动静提醒。

    

注重事项

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