利用VBA代码打开或显示Excel内置对话框

Excel内置对话框的数量非常多,在我们日常工作中也是经常使用的,为了方便用户的使用,微软已经内嵌在菜单、工具栏、功能区,功能组等地方,如果我们自己对Excel进行个性化的二次定制,那么为了在自己开发的应用程序中指定的地方使用Excel内置对话框来丰富我们的程序功能,同时又减少重复劳动,就可以使用VBA代码来显示这些对话框,然后再对指定的对象进行精准操作。

利用VBA代码打开Excel内置的对话框很简单,只需要简短的几句代码即可,为了能够依次打开,这里笔者使用循环的方式来打开。咱们先来看几张打开的对话框截图,最后再附上完整代码。

下面是程序打开的对话框的截图:

由于Excel内置的对话框有很多,这里就不把所有的截图在这里展示,感兴趣的朋友可以复制下面的代码,自己运行。下面附上完整代码段:

Public Sub 依次打开Excel内置对话框()

On Error Resume Next

Dim i As Long

For i = 0 To Application.Dialogs.Count

Application.Dialogs(i).Show

Next

End Sub

发表评论
留言与评论(共有 0 条评论)
   
验证码:

相关文章

推荐文章

'); })();