网站 › 『编程语言区』 › [VBA]让弹出的对话框自动延时关闭

wkdxz 发表于 2022-7-13 15:14

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

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



代码位置：


可测试文件：密码 52pojie

wkdxz 发表于 2022-7-13 18:08

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

兄弟 你调用了 sorting 过程，这个过程在哪？
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 发表于 2022-7-13 18:14

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

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

a2523188267 发表于 2022-7-13 15:25

是VBA代码 不是VBS

wkdxz 发表于 2022-7-13 15:27

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

确实手滑打错了

kfhgng 发表于 2022-7-13 16:02

有特别的功用吗？

lovehfs 发表于 2022-7-13 17:27

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

深海老鱼 发表于 2022-7-13 17:33

谢谢分享...

zhlezhi 发表于 2022-7-13 17:58

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

Bingo2018 发表于 2022-7-13 17:59

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

Application.DisplayAlerts = False

ws.delete

Call Sorting

End Sub

查看完整版本: [VBA]让弹出的对话框自动延时关闭