Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

Excel の組み込みダイアログボックス（Dialog, Dialogs）

2016/03/21

Excel の組み込みダイアログボックスを表示

Dialog オブジェクト を使用して、Show メソッドを実行します。

【書式】

object.Dialogs[.Item]( const ).Show [ ( Arg1, Arg2, Arg3, ……, Arg30 ) ]

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
const ・・・組み込みダイアログボックスを表すXlBuiltInDialog 列挙型の定数またはその値を指定します。
Arg1 … Arg30 ・・・引数 const で指定した組み込みダイアログボックスの初期値を設定するための引数の値を指定します。設定する引数の詳細については、組み込みダイアログボックスの引数一覧を参照してください。
戻り値・・・ブール型（Boolean）の値。組み込みダイアログボックスで、ユーザーが、[OK] をクリックをした場合には True を返し、[キャンセル] をクリックをした場合には False を返します。

Dialog.Show メソッド使用例

サンプルVBAソース 1

　
Sub Sample_Dialogs1()

    '「ファイルを開く」ダイアログボックスを表示
    '初期設定で、「C:\Documents\test.xlsx」を選択
    Application.Dialogs(xlDialogOpen).Show arg1:="C:\Documents\test.xlsx"

End Sub

1

2

3

4

5

6

7

8

9

　

Sub Sample_Dialogs1()

'「ファイルを開く」ダイアログボックスを表示

'初期設定で、「C:\Documents\test.xlsx」を選択

Application.Dialogs(xlDialogOpen).Show arg1:="C:\Documents\test.xlsx"

End Sub

　

実行結果 1

サンプルVBAソース 2

　
Sub Sample_Dialogs2()

    '「ページ設定」ダイアログボックスを表示
    '初期設定で、ページ中央寄せ（水平、垂直）に設定
    Application.Dialogs(xlDialogPageSetup).Show arg9:=True, arg10:=True

End Sub

1

2

3

4

5

6

7

8

9

　

Sub Sample_Dialogs2()

'「ページ設定」ダイアログボックスを表示

'初期設定で、ページ中央寄せ（水平、垂直）に設定

Application.Dialogs(xlDialogPageSetup).Show arg9:=True, arg10:=True

End Sub

　

実行結果 2

- Excel・ファイルの操作 Application オブジェクト, Dialog オブジェクト, Dialogs コレクション, Dialogs プロパティ, Excel・ファイルの操作, Show メソッド, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: テキストファイル：データを書き込む（Write # ステートメント）

Write # ステートメント Open ステートメントをシーケンシャル出力モ …

: テキストファイル：データを読み込む（Input # ステートメント）

Input # ステートメント Open ステートメントをシーケンシャル入力モ …

: テキストファイル：データを読み込む（Line Input # ステートメント）

Line Input # ステートメント Open ステートメントをシーケンシャ …

: 「ファイルを開く」ダイアログボックス（FindFile メソッド）

FindFile メソッド「ファイルを開く」ダイアログボックスを表示します。G …

: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）

LOF 関数 Open ステートメントにより開かれたファイルのサイズをバイト単 …

: フルパスからファイル名、パスを取得する

フルパスからファイル名のみを取得するフルパスからファイル名を取得するには、Di …

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

: Open ステートメントで使用できるファイル番号を取得（FreeFile 関数）

FreeFile 関数 Open ステートメントで使用するファイル番号（ 1 ～ …

: 組み込みダイアログボックスの引数一覧

組み込みダイアログボックスの引数一覧 Excel の組み込みダイアログボックスを …

: 特殊フォルダを取得（wsh.SpecialFolders）

CreateObject 関数：特殊フォルダを取得（WSH.SpecialFol …

PREV: 組み込みダイアログボックスの引数一覧
NEXT: フルパスからファイル名、パスを取得する