[已解决]如何让msgbox对话框弹出后一秒自动消失

ycb20010823 · 发表于 2010-3-9 08:55

我在打开这个excel时，自动弹出“欢迎使用”，如何让他在一秒后或是三秒后自动消失呢？谢谢！！

X70DAKHQ.rar (5.96 KB, 下载次数: 144)

amulee · 发表于 2010-3-9 09:13

严格地说，这个不是Msgbox

Sub AA()
    Dim WshShell As Object
    Set WshShell = CreateObject("Wscript.Shell")
    WshShell.Popup "1秒后关闭！", 1, "提示！"
End Sub

raulerini · 发表于 2010-3-9 09:14

学习一下[em01]

开辆小富康 · 发表于 2010-3-9 09:46

认真学习

cjainwei · 发表于 2010-3-9 12:08

好象1秒后没有自动关闭

附上录像，帮我看一下，到底是哪问题

Hzw7LYfg.rar (362.6 KB, 下载次数: 47)

ycb20010823 · 发表于 2010-3-9 13:17

二楼的高手你好，我就想要弹出的这个对话框msgbox 出来一秒后自动关闭，能实现吗，要是这个msgbox不能自动关闭的话，可以运行一个窗体，这个窗体弹出一个提示后，在1秒后自动关闭，能实现吗？

ycb20010823 · 发表于 2010-3-9 13:19

我就是想复制一个数据，提示复制成功后，一秒后自动关闭，这个可以用一个窗体来实现，可是怎么能自动关闭，我不知道代码了，谢谢朋友的帮助！！！

amulee · 发表于 2010-3-9 14:32

二楼的代码不是正合你意么

ycb20010823 · 发表于 2010-3-9 15:21

谢谢二楼的高手了，问题在你的提醒下，得以解决，谢谢！！！

吕?布 · 发表于 2010-3-9 18:02

QUOTE:

以下是引用cjainwei在2010-3-9 12:08:00的发言：

好象1秒后没有自动关闭

附上录像，帮我看一下，到底是哪问题

我这里好象也没有关闭啊

		自动登录	找回密码
密码			注册