WSH.Popupメソッドの使い方(メッセージボックスを自動に閉じる・時間経過で閉じる)●はじめに今回は、Wsh.Popupメゾットの使い方を説明します。Wsh.Popupメゾットは、メッセージボックスを自動的に閉じる事ができる機能です。VBAでは、メッセージボックス(Msgbox)の機能では、自動に閉じる機能はありません。Host(Wsh)の機能を有効にする事で、メッセージボックスを自動(秒指定)で閉じる事ができます。それでは、下記のサンプルプログラムを交えて説明いたします。Wsh.Popupの利用方法については、下記を参照してください。VBAでPOPUPメゾットを利用する上で必ず下記の設定が必要になります。メッセージボックスの上部タイトル名を指定します。VBAでPOPUPメゾットを利用する上で必ず下記の設定が必要になります。vbExclamation【nTypeの設定については、下記の定数で設定する事ができます。16警告メッセージのアイコンを表示します。32問い合わせメッセージアイコンを表示します。48注意メッセージアイコンを表示します。64情報メッセージアイコンを表示します。【戻り値については、下記の通りになります。※戻り値は、数値でも文字列でも一緒です。(メッセージボックス・基礎編)メッセージボックスのメッセージを自動的に閉じます。下記のサンプルプログラムは、メッセージボックスのメッセージを自動的に閉じるサンプルプログラムです。Model】の参照設定する必要が有ります。メッセージボックスを約3秒間表示して閉じます。※プログラム実行後、メッセージが表示されて約3秒後、自動的にメッセージが閉じました。(画面クリックして拡大)メッセージボックス(アイコン付き)のメッセージを自動的に閉じます。下記のサンプルプログラムは、メッセージボックス(アイコン付き)のメッセージを連続的に表示させて自動的に閉じるサンプルプログラムです。Model】の参照設定する必要が有ります。【実行手順】1メッセージボックス+警告アイコンを約1秒間表示して閉じます。2メッセージボックス+問い合わせアイコンを約1秒間表示して閉じます。3メッセージボックス+注意アイコンを約1秒間表示して閉じます。4メッセージボックス+情報アイコン約1秒間表示して閉じます。※プログラム実行後、メッセージボックス+アイコン4種類を順番に表示して、約1秒後に閉じました。(画面クリックして拡大)メッセージボックス(ボタン付き)のメッセージを自動的に閉じます。下記のサンプルプログラムは、メッセージボックス(ボタン付き)のメッセージを連続的に表示させて自動的に閉じるサンプルプログラムです。Model】の参照設定する必要が有ります。【実行手順】1メッセージボックス+【OK】ボタンを約1秒間表示して閉じます。2メッセージボックス+【OK・キャンセル】を約1秒間表示して閉じます。3メッセージボックス+【はい・いいえ】を約1秒間表示して閉じます。約1秒間表示して閉じます。5メッセージボックス+【はい・いいえ・キャンセル】を約1秒間表示して閉じます。6メッセージボックス+【再試行・キャンセル】を約1秒間表示して閉じます。※※プログラム実行後、メッセージボックス+6種類のボタン(表示)を順番に表示して、約1秒後に閉じました。下記のサンプルプログラムは、メッセージボックスを表示させて指定時間(約5秒)以内にメッセージボックス閉じるので【はい・いいえ】の判断させるサンプルプログラムです。Model】の参照設定する必要が有ります。【実行手順】1メッセージボックが表示されて、【5秒以内に「Yes」】2メッセージボックスの表示で【はい】を選択した場合、【はい】を選択したメッセージボックスを表示させる。(約1秒以内に閉じる)3メッセージボックスの表示で【いいえ】を選択した場合、【いいえ】を選択したメッセージボックスを表示させる。'メッセージボックスを表示させて指定時間内にYes・Noの判断させる。'メッセージボックスを表示させて指定時間内に「はい・いいえ」の判断させる。WSH.Popup("5秒以内に「はい」か「いいえ」のボタンを押して下さい。'メッセージボックスを表示させて指定時間内に「はい・いいえ」の判断させる。WSH.Popup("5秒以内に「はい」か「いいえ」のボタンを押して下さい。※プログラム実行後、メッセージボックスを表示さますので、指定時間(約5秒)以内にメッセージボックス閉じるので【はい・いいえ】の判断します。【はい】か【いいえ】を選ぶと押したボタンのメッセージが表示(約1秒)されます。(画面クリックして拡大)メッセージボックスを表示させて指定時間内にアンケートを回答させる。下記のサンプルプログラムは、順番にメッセージボックス(ボタン付き)をアンケート方式で表示させて、メッセージの回答を5秒以内に回答させるサンプルプログラムです。アンケートの回答結果は、EXCELシートに一覧表示されます。Model】の参照設定する必要が有ります。【実行手順】1メッセージボックスにアンケート内容(質問内容)が表示されるので、設問1~5まで、順番に「はい・いいえ」で回答します。2アンケートを回答した結果をEXCELシートのC列に「はい・いいえ」で登録されます。'メッセージボックスを表示させて指定時間内にアンケートを回答させる。'メッセージボックスを表示させて指定時間内にアンケートを回答させる。'C列の回答結果をクリアーする。"社内アンケートを開始します。約5秒以内にお答え下さい。'アンケートを順番に表示させて回答する。"アンケートを終了します。ご協力ありがとうございました。'メッセージボックスを表示させて指定時間内にアンケートを回答させる。'C列の回答結果をクリアーする。"社内アンケートを開始します。約5秒以内にお答え下さい。'アンケートを順番に表示させて回答する。"アンケートを終了します。ご協力ありがとうございました。※プログラム実行後、順番にアンケート内容がメッセージボックスに表示されますので、「はい・いいえ」で回答します。アンケート内容に回答した結果は、C列の【回答】に「はい・いいえ」で登録されます。(画面クリックして拡大)最後まで、ご覧いただきまして誠に有難うございました。VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。スパークラインを設定する。スパークラインを設定する。指定した行列に小計を追加する。指定した表を自動的に背景色をゼブラ模様(縞模様)にする。Functionプロシージャを使いこなす。便利なVBAコード・サンプルプログラム一覧・覚えると便利・効率が上がる。エラーかどうがを判定します。