欢迎到访阿拉善盟网!

首页科技正文

usdt提现教程(www.caibao.it):VBA经典代码 拿来即用 1.9 到时自动关闭的弹窗

admin2021-04-1730

USDT交易平台

U交所(www.payusdt.vip),全球頂尖的USDT場外擔保交易平臺。

2021-04-16 21:42 Excel和VBA

弹窗是我们常见的一种错误提醒方式

譬喻说你在写公式的时刻,若是少了一个括号或者公式写的不准确,他会给你这样一个弹窗

或者当你写VBA代码的时刻,若是代码泛起原则性错误的话,VB编辑器也会给你一个弹窗

这些弹窗有一个功效的特点,那就是需要你手动去关闭,至少你要手动去点击确定,然后这个弹窗才会关闭

而在我们写VBA程序的时刻,也会用这样一个弹窗,不外我们的弹窗跟多的照样提醒功效的弹窗

提醒功效的弹窗,起到的是一个警示和提醒的效果,尤其是在VBA代码中,若是你没有去掉这个弹窗,那么程序就会一直停在那里,异常的影响效率

尤其是我们正在执行一个大一点的程序的时刻,出去倒杯水,发现由于这个弹窗没有人去点击,导致程序一直停在这里,白白延迟了10多分钟的时间。

这样的弹窗效果异常的欠好,那么我们在自己制作VBA程序的时刻,是否能够实现一个有实效性的弹窗呢?

不管电脑前有没有人,时间到了没人操作的话,会自动关闭,而不会影响整体代码的运行呢?

谜底自然是一定的,完全可以。

然后,我们在模块1,写入简朴的代码

Sub test()

UserForm1.Show

,

usdt收款平台

菜宝钱包(www.caibao.it)是使用TRC-20协议的Usdt第三方支付平台,Usdt收款平台、Usdt自动充提平台、usdt跑分平台。免费提供入金通道、Usdt钱包支付接口、Usdt自动充值接口、Usdt无需实名寄售回收。菜宝Usdt钱包一键生成Usdt钱包、一键调用API接口、一键无实名出售Usdt。

,

End Sub

双击窗体,写入下面这段代码

Private Sub UserForm_Activate()

Application.Wait Now() + VBA.TimeValue("00:00:03")

Unload Me

End Sub

OK,然后就可以运行了。

我们执行了两次,窗台都是一闪而过,仅仅是泛起了3三秒,就自动关闭,我们并不需要做任何操作,他就会自行关闭。

这就是准时关闭的弹窗

这样的效果是对照显著的,尤其是在VBA代码中,除去一定要手工操作的弹窗之外,其他的警示性或者提醒性的弹窗,着实都可以通过这个方式来实现这个准时消逝的效果,会让我们的程序执行加倍的顺遂

固然现实的使用中,也要连系自己的场景,在需要的时刻使用这个方式。

代码剖析

今天的代码的重点就是

Application.WaitNow() +VBA.TimeValue("00:00:03")

Application.Wait方式,在VBA当中就是延时守候的意思

守候多久呢?

就是他后面的时间

Now() +VBA.TimeValue("00:00:03"),代表的就是现在往后3秒,你可以凭证自己的现实需要修改后面的时间。

本文链接:http://www.kariteparis.com/post/2696.html

网友评论