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

查看原文 >>
相關文章