[[20070926143714]]　『MSGBOXを1.5秒後に閉じる』（たろう）　ページの最後に飛ぶ

『MSGBOXを1.5秒後に閉じる』（たろう）

  表題のとおりですがMSGBOXを1.5秒後に閉じるVBAをおしえて。

 MsgBoxはボタンをクリックしない限り閉じません。
 ユーザーフォームで代用するか、
 PopUp
 を使ってはいかがでしょう？
 CreateObject("WScript.Shell").Popup "hoge ", 1.5

 (MARBIN)

 提示していてなんなのですが、
 PopUp
 は不安定です。
 いつまでたっても自動的に閉じてくれないときもあります。
 そんなときは手動で閉じてください。

 やはりユーザーフォームかな。
 (MARBIN)

 ありがとうございます。
 ちょっと改造しようと1.5を0.7秒にしたら閉じないのですが？
 1秒以下の場合はどうるれば・・・
                                    （たろう）

 PopUpは1秒以下で使えるかは分かりません。調べてみないと分かりませんが、
 使えないのかもしれません。

 ユーザーフォームでの方法です。

 ’標準モジュール
 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

 'メッセージ表示
 UserForm1.Show 0
 Sleep 1500
 Unload UserForm1

 'ユーザーフォーム
 Private Sub UserForm_Initialize()
　Me.Label1.Caption = "めっせ～じ"
 End Sub

 ※ユーザーフォームに表示するメッセージは
 'メッセージ表示側で設定することも出来ます。

 UserForm1.Label1.Caption = "めっせ～じ"
 UserForm1.Show 0
 Sleep 1500
 Unload UserForm1
 (MARBIN)

コメント返信：