VBAを使用してExcel2016の組み込みダイアログボックスを表示する方法

VBAプログラマーであることは、時には圧倒される可能性があります。VBAを確認する1つの方法は、Excelコマンドを模倣できるツールであるということです。たとえば、次のVBAステートメントについて考えてみます。

Range（“ A1：A12”）。Name =“ MonthNames”

このVBAステートメントを実行すると、[式]→[定義済みの名前]→[名前の定義]を選択して[新しい名前]ダイアログボックスを表示し、[名前]ボックスにMonthNamesと入力し、[参照先]ボックスにA1：A12と入力して[OK]をクリックするのと同じ効果があります。

VBAステートメントを実行すると、[新しい名前]ダイアログボックスは表示されません。これはほとんどの場合、あなたが望んでいることです。マクロの実行中にダイアログボックスが画面上で点滅するのは望ましくありません。

ただし、場合によっては、コードでExcelの多くの組み込みダイアログボックスの1つを表示し、ユーザーがダイアログボックスで選択できるようにすることができます。これを行うには、VBAを使用してリボンコマンドを実行します。[新しい名前]ダイアログボックスを表示する例を次に示します。[参照先]ボックスのアドレスは、コマンドの実行時に選択された範囲を表します。

VBAを使用してExcelのダイアログボックスの1つを表示します。

Application.CommandBars.ExecuteMso“ NameDefine”

VBAコードはダイアログボックスから情報を取得できません。たとえば、コードを実行して[新しい名前]ダイアログボックスを表示すると、ユーザーが入力した名前や名前が付けられている範囲をコードで取得できません。

ExecuteMsoはCommandBarsオブジェクトのメソッドであり、リボンコントロールを表すidMsoパラメーターという1つの引数を受け入れます。残念ながら、これらのパラメータはヘルプシステムにリストされていません。また、リボンは永遠に存在していないため、ExecuteMsoメソッドを使用するコードはExcel2007より前のバージョンと互換性がありません。

ExecuteMsoメソッドを使用する別の例を次に示します。このステートメントを実行すると、[セルの書式設定]ダイアログボックスの[フォント]タブが表示されます。

Application.CommandBars.ExecuteMso 
「formatCellsFontDialog」

Application.CommandBars.ExecuteMso“ NumberFormatsDialog”