Excel内置对话框的数量非常多,在我们日常工作中也是经常使用的,为了方便用户的使用,微软已经内嵌在菜单、工具栏、功能区,功能组等地方,如果我们自己对Excel进行个性化的二次定制,那么为了在自己开发的应用程序中指定的地方使用Excel内置对话框来丰富我们的程序功能,同时又减少重复劳动,就可以使用VBA代码来显示这些对话框,然后再对指定的对象进行精准操作。
利用VBA代码打开Excel内置的对话框很简单,只需要简短的几句代码即可,为了能够依次打开,这里笔者使用循环的方式来打开。咱们先来看几张打开的对话框截图,最后再附上完整代码。
下面是程序打开的对话框的截图:
由于Excel内置的对话框有很多,这里就不把所有的截图在这里展示,感兴趣的朋友可以复制下面的代码,自己运行。下面附上完整代码段:
Public Sub 依次打开Excel内置对话框()
On Error Resume Next
Dim i As Long
For i = 0 To A
A(i).Show
Next
End Sub