利用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