如何使用 VBA 顯示 Excel 2016 的內置對話框

成為 VBA 程序員有時會讓人不知所措。查看 VBA 的一種方式是，它是一種可讓您模仿 Excel 命令的工具。例如，考慮這個 VBA 語句：

範圍（“A1：A12”）。Name =“MonthNames”

執行此 VBA 語句與選擇公式 → 定義名稱 → 定義名稱以顯示新名稱對話框的效果相同，在名稱框中鍵入 MonthNames，在引用框中鍵入 A1:A12，然後單擊確定。

當您執行 VBA 語句時，不會出現“新名稱”對話框。這幾乎總是你想要發生的事情；您不希望在執行宏時對話框在屏幕上閃爍。

但是，在某些情況下，您可能希望代碼顯示 Excel 的許多內置對話框之一，並讓用戶在對話框中進行選擇。您可以通過使用 VBA 執行 Ribbon 命令來做到這一點。下面是一個顯示“新名稱”對話框的示例。引用框中的地址代表執行命令時選擇的範圍。

使用 VBA 顯示 Excel 的對話框之一。

Application.CommandBars.ExecuteMso “NameDefine”

您的 VBA 代碼無法從對話框中獲取任何信息。例如，如果您執行代碼以顯示“新名稱”對話框，則您的代碼無法獲取用戶輸入的名稱或正在命名的範圍。

ExecuteMso 是 CommandBars 對象的一種方法，它接受一個參數：表示 Ribbon 控件的 idMso 參數。不幸的是，這些參數沒有列在幫助系統中。並且由於功能區並非永遠存在，使用 ExecuteMso 方法的代碼與 Excel 2007 之前的版本不兼容。

這是使用 ExecuteMso 方法的另一個示例。執行此語句時，會顯示“設置單元格格式”對話框的“字體”選項卡：

Application.CommandBars.ExecuteMso 
“FormatCellsFontDialog”

Application.CommandBars.ExecuteMso “NumberFormatsDialog”