即効テクニック |
●詳細● Excel97VBAでは、約200種類の組み込みダイアログボックスをDialogsプロパティで開く事ができます。 サンプルマクロでは、[ページ設定]ダイアログボックスを表示します。 ●準備● 標準モジュールに次のマクロを作成してください。●サンプル●
Sub Sample() Dim myRtn As Boolean myRtn = Application.Dialogs(xlDialogPageSetup).Show If myRtn = False Then MsgBox "[キャンセル]が選択されました" Else MsgBox "ページ設定が行われました" End If End Sub
●補足説明● Showメソッドは、組み込みダイアログボックスで[OK]ボタンがクリックされるとTrueを返し、[キャンセル]ボタンをクリックするとFalseを返します。 サンプルマクロでは、それを利用して、処理を分岐してメッセージボックスを表示しています。