ダイアログ編-エクセルのＶＢＡ集

---

ダイアログ編

メッセージボックスを表示するには？

'ダイアログボックスにメッセージを表示する例です。
Sub メッセージボックスを表示する()

'『はい、いいえ』を選択できるようにし、『いいえ』の場合は終了
If MsgBox("次の作業に移りますか？", vbYesNo) = vbNo Then Exit Sub
MsgBox "次の作業に移ります", vbInformation
End Sub

検索ダイアログを表示するには？

Sub 検索ダイアログを表示する()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

印刷ダイアログをページ指定して表示するには？

'ページ指定で2ページから3ページを選んで印刷ダイアログを表示する例です。
Sub 印刷ダイアログを表示する()
Application.Dialogs(xlDialogPrint).Show arg1:=2, arg2:=2, arg3:=3
End Sub

ページトップ

---