EXCEL VBA WSH .Popupメソッドの使い方（メッセージボックスを自動に閉じる・時間経過で閉じる）

今回は、Wsh.Popupメゾットの使い方を説明します。Wsh.Popupメゾットは、メッセージボックスを自動的に閉じる事ができる機能です。EXCEL　VBAでは、メッセージボックス（Msgbox）の機能では、自動に閉じる機能はありません。実際に、Wsh.Popupメゾットを利用する場合、Windows Script Host(Wsh)の機能を有効にする事で、メッセージボックスを自動（秒指定）で閉じる事ができます。それでは、下記のサンプルプログラムを交えて説明いたします。

なお、Wsh.Popupの利用方法については、下記を参照してください。

●EXCEL　VBAでPOPUPメゾットを利用する上で必ず下記の設定が必要になります。

●　Wsh.Popup（strText,[nSecondsToWait],[strTitle],[nType])
　　　

引数名	説明
strText	メッセージボックスに表示する文字列を指定します（必須）
nSecondsToWait	メッセージボックスを閉じるまでの時間（秒単位）
strTitle	メッセージボックスの上部タイトル名を指定します。（省略可能）
nType	ボダンの設定（Yes/No等）及びアイコンの設定（省略可能）

　　　
【注意点①：参照設定】
　　　
●EXCEL　VBAでPOPUPメゾットを利用する上で必ず下記の設定が必要になります。
【使用例】
●　Wsh.Popup（strText,[nSecondsToWait],[strTitle],[nType])・　WSH.Popup “3秒後、自動に閉じます”, 3, “メッセージが表示”, vbExclamation
【nTypeの設定については、下記の定数で設定する事ができます。】

定数	値	アイコン画像	説明
vbCritical	16		警告メッセージのアイコンを表示します。
vbQuestion	32		問い合わせメッセージアイコンを表示します。
vbExclamation	48		注意メッセージアイコンを表示します。
vbinformation	64		情報メッセージアイコンを表示します。

定数	値	表示されるボタンと種類の内容	実行画面
vbOkonly	0	「OK」ボタンのみ表示
vbOkCancel	1	「OK」・「キャンセル」を表示
vbAbortRetryIgnore	2	「中止」・「再試行」・「無視」を表示
vbYesNoCancel	3	「はい」・「いいえ」・「キャンセル」を表示
vbYesNo	4	「はい」・「いいえ」を表示
vbRetryCancel	5	「再試行」・「キャンセル」を表示

【戻り値については、下記の通りになります。】
※戻り値は、数値でも文字列でも一緒です。例：「はい」の戻り値：６　＝　vbYes 　同じ戻り値です。

定数	内容説明	戻り値
vbOK	「OK」ボタンを押すと	1
vbCancel	「キャンセル」ボタンを押すと	2
vbAbort	「中止」ボタンを押すと	3
vbRetry	「再試行」ボタンを押すと	4
vbIgnore	「無視」ボタンを押すと	5
vbYes	「はい」ボタンを押すと	6
vbNo	「いいえ」ボタンを押すと	7

　　　
【POPUPメゾットは、メッセージボックスと同じ方法で設定が出来ますので、メッセージボックスの基礎も参照して下さい】

EXCEL VBA Msgboxの使い方　（メッセージボックス・基礎編）

　

下記のサンプルプログラムは、メッセージボックスのメッセージを自動的に閉じるサンプルプログラムです。以下のプログラム全てに共通しますが、プログラムを実行する際は、必ず事前に【Windows Script Host Object Model】の参照設定する必要が有ります。
※詳細は、上記【参照設定】を参照して下さい。
【実行手順】
・メッセージボックスを約３秒間表示して閉じます。

下記のサンプルプログラムは、メッセージボックス（アイコン付き）のメッセージを連続的に表示させて自動的に閉じるサンプルプログラムです。以下のプログラム全てに共通しますが、プログラムを実行する際は、必ず事前に【Windows Script Host Object Model】の参照設定する必要が有ります。

※詳細は、上記【参照設定】を参照して下さい。

【実行手順】
①メッセージボックス＋警告アイコンを約１秒間表示して閉じます。
②メッセージボックス＋問い合わせアイコンを約１秒間表示して閉じます。
③メッセージボックス＋注意アイコンを約１秒間表示して閉じます。
④メッセージボックス＋情報アイコン約１秒間表示して閉じます。

下記のサンプルプログラムは、メッセージボックス（ボタン付き）のメッセージを連続的に表示させて自動的に閉じるサンプルプログラムです。以下のプログラム全てに共通しますが、プログラムを実行する際は、必ず事前に【Windows Script Host Object Model】の参照設定する必要が有ります。

※詳細は、上記【参照設定】を参照して下さい。

【実行手順】
①メッセージボックス＋【OK】ボタンを約１秒間表示して閉じます。
②メッセージボックス＋【OK・キャンセル】を約１秒間表示して閉じます。
③メッセージボックス＋【はい・いいえ】を約１秒間表示して閉じます。
④メッセージボックス＋【中止・再試行・無視】を約１秒間表示して閉じます。
⑤メッセージボックス＋【はい・いいえ・キャンセル】を約１秒間表示して閉じます。
⑥メッセージボックス＋【再試行・キャンセル】を約１秒間表示して閉じます。

下記のサンプルプログラムは、メッセージボックスを表示させて指定時間（約５秒）以内にメッセージボックス閉じるので【はい・いいえ】の判断させるサンプルプログラムです。
以下のプログラム全てに共通しますが、プログラムを実行する際は、必ず事前に【Windows Script Host Object Model】の参照設定する必要が有ります。

※詳細は、上記【参照設定】を参照して下さい。

 

【実行手順】
①メッセージボックが表示されて、【５秒以内に「Yes」】
②メッセージボックスの表示で【はい】を選択した場合、【はい】を選択したメッセージボックスを表示させる。（約１秒以内に閉じる）
③メッセージボックスの表示で【いいえ】を選択した場合、【いいえ】を選択したメッセージボックスを表示させる。（約１秒以内に閉じる）

下記のサンプルプログラムは、順番にメッセージボックス（ボタン付き）をアンケート方式で表示させて、メッセージの回答を５秒以内に回答させるサンプルプログラムです。アンケートの回答結果は、EXCELシートに一覧表示されます。

以下のプログラム全てに共通しますが、プログラムを実行する際は、必ず事前に【Windows Script Host Object Model】の参照設定する必要が有ります。

※詳細は、上記【参照設定】を参照して下さい。

【実行手順】
①メッセージボックスにアンケート内容（質問内容）が表示されるので、設問１～５まで、順番に「はい・いいえ」で回答します。
②アンケートを回答した結果をEXCELシートのC列に「はい・いいえ」で登録されます。（約５秒以内に回答する）
※アンケートの回答に約５秒過ぎてしまった場合は、【空白】

最後まで、ご覧いただきまして誠に有難うございました。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。