1、打开一个空白的excel或word文档,在工具栏中依次点击“开发工具”——“Visual Basic”,或直接按下快捷键“Alt+F11”,打开Microsoft Visual Basic编辑窗口。
2、在Microsoft Visual Basic窗口,如下图所示依次点击“插入”——“用户窗体”,在当前文档中插入一个用户窗体。
3、如下图所示,在刚插入的用户窗体中,添加一个文本标签、一个文本框和一个按钮,并在属性面板中修改其caption属性值。
4、双击刚添加的按钮,打开代码编辑窗口,可以看到,这时在代码编辑窗口中会自动生成按钮的clic氯短赤亻k事件的过程,在该事件过程中,菀蒯踔观我们添加以下代码: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秒钟后就会弹出消息提醒。