[VBA]让弹出的对话框自动延时关闭

wkdxz

我又来分享收藏的VBA代码了，这个代码用在某些需要提示，又不需要手动确认的场合。
代码效果：



代码位置：


可测试文件：密码 52pojie
VBS延时对话框.rar (120.29 KB, 下载次数: 20)

2022-7-13 15:12 上传

点击文件名下载附件

wkdxz

Bingo2018 发表于 2022-7-13 17:59
请教大佬，我这句在模块里面运行，提示子过程或函数未定义，是哪里有问题吗?
Sub delete()
Dim ws As Wor ...

兄弟 你调用了 sorting 过程，这个过程在哪？

[Asm] 纯文本查看 复制代码

Sub delete()
    Dim ws As Worksheet
    Set ws = Worksheets("LookS")
    Application.DisplayAlerts = False
    ws.delete
    Call Sorting
End Sub

Sub Sorting()
    MsgBox "这里是 Sorting 过程的代码"
End Sub

Bingo2018

wkdxz 发表于 2022-7-13 18:08
兄弟 你调用了 sorting 过程，这个过程在哪？
[mw_shl_code=asm,true]Sub delete()
    Dim ws As Work ...

这段我也不懂，是别人发我的，但是就是用不上，原因是这样的，我在功能区上有一个选项卡，我想把这个选项卡用VBA的方式删除或者把勾去掉，让他不显示出来，因为这个是一个插件加载进来的，每次打开表格都显示，又不能删除，有什么办法可以用VBA每次执行完代码再顺便把那个选项卡取消显示吗？

a2523188267

是VBA代码 不是VBS

wkdxz

a2523188267 发表于 2022-7-13 15:25
是VBA代码 不是VBS

确实  手滑打错了

kfhgng

有特别的功用吗？

lovehfs

实用价值不大，默认的msgbox 足够用了。

深海老鱼

谢谢分享...

zhlezhi

作为初级财务，VBA也许是个非常易用的代码编程，希望多多分享

Bingo2018

请教大佬，我这句在模块里面运行，提示子过程或函数未定义，是哪里有问题吗?
Sub delete()
Dim ws As Worksheet
Set ws = Worksheets("LookS")

Application.DisplayAlerts = False

ws.delete

Call Sorting

End Sub