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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: テキストファイル（Open ステートメント・Close ステートメント）

新規ブックを開かずにテキストファイルを開く OpenText ステートメントを …

: 「ファイル」ダイアログボックスを表示・設定（FileDialog オブジェクト）

FileDialog オブジェクト FileDialog オブジェクトのメソッ …

: ファイルサイズを取得（FileLen 関数）

ファイルサイズを取得ファイルのサイズ（バイト数）を取得するには、FileLen …

: FileDialog オブジェクトを取得する（FileDialog プロパティ）

FileDialog プロパティ FileDialog オブジェクトを取得しま …

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

Get ステートメント Open ステートメントをランダムアクセスモード（Ra …

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

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

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

: FileDialogFilters コレクション・FileDialogFilter オブジェクト

FileDialogFilters コレクション FileDialog オブジェ …

: Excel を終了する（Quit メソッド）

Excel を終了する（Quit メソッド） Quit メソッドを実行すると、E …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

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