Access #Et030 ≪自動的に閉じるメッセージを表示する《Windows Script Host》≫

ＡｃｃｅｓｓＴｉｐｓ by pPoy

←Top 　　　

Query　　

Form　　

Report　　

Sub　　

Function　　

Excel　　

Etc.　　

Word

etc. 自動的に閉じるメッセージを表示する
《Windows Script Host》
(Ac97,Ac2000,Ac2002）（Excel97,Excel2000,Excel2002）

etc.	自動的に閉じるメッセージを表示する《Windows Script Host》 (Ac97,Ac2000,Ac2002）（Excel97,Excel2000,Excel2002）
Access VBA を使用して、自動的に閉じるメッセージを表示する方法です。 `Windows Script Host` を使用します。これは Access 用に書いてありますが、Excel VBA からでもそのまま使用できます。以下のスクリプトを標準モジュールに貼り付けてください。
Sub testPopUp() '自動的に閉じるメッセージを表示する 2008/07/27 pPoy 'Windows Script Host 使用 Dim wsh As Object 'WScript.Shell Dim stMES As String 'メッセージの内容 Dim lngTime As Long '閉じるまでの秒数 Dim stTitle As String 'メッセージタイトル lngTime = 2 '2秒 stTitle = "自動的に閉じるメッセージ" stMES = lngTime & " 秒お待ちください" & vbNewLine & _ "このメッセージは自動的に閉じます" Set wsh = CreateObject("WScript.Shell") Call wsh.PopUp(stMES, lngTime, stTitle, vbOKOnly + vbInformation) Set wsh = Nothing End Sub

Access VBA を使用して、自動的に閉じるメッセージを表示する方法です。
Windows Script Host を使用します。
これは Access 用に書いてありますが、Excel VBA からでもそのまま使用できます。

以下のスクリプトを標準モジュールに貼り付けてください。

Sub testPopUp()
'自動的に閉じるメッセージを表示する 2008/07/27 pPoy
'Windows Script Host 使用

    Dim wsh As Object           'WScript.Shell
    Dim stMES As String         'メッセージの内容
    Dim lngTime As Long         '閉じるまでの秒数
    Dim stTitle As String       'メッセージタイトル
    
    lngTime = 2                 '2秒
    stTitle = "自動的に閉じるメッセージ"
    
    stMES = lngTime & " 秒お待ちください" & vbNewLine & _
            "このメッセージは自動的に閉じます"
    
    Set wsh = CreateObject("WScript.Shell")
    Call wsh.PopUp(stMES, lngTime, stTitle, vbOKOnly + vbInformation)
    
    Set wsh = Nothing
End Sub

↑Top

≪結果≫

このコードを実行すると、メッセージボックスが表示されます。

通常のメッセージと殆ど変わりませんが、設定した秒数が経過すると
何もしなくてもメッセージが終了します。

※ 「OK」ボタンでも閉じることができます。

≪補足≫

閉じるまでの秒数はおおよその目安です。
正確な秒数が必要な場合は、お持ちのタイマー等をご使用ください。
WSH (Windows Script Host) の利用には、IE 3.0 以上のブラウザが必要です。
Access で使用する場合は、フォームのコマンドボタンなどから Call してください。
　　Call testPopUp()
Excel で使用する場合は、メニューの「ツール」－「マクロ」－「マクロ」から
　　testPopUp を選択して、実行してください。

↑Top