[Excel VBA]MsgBox（のようなもの）を指定秒数だけ画面に表示する方法

2008/03/07

Sub test()
  Dim myShell As Object
  Set myShell = CreateObject("Wscript.Shell")
  myShell.PopUp "ここにメッセージ", 5, "ここにタイトル"
  Set myShell = Nothing
End Sub

ExcelのVBAでもPowerpointのVBAでもこのコードで動きます。
アプリの処理中に、ユーザにメッセージを伝えるのに使えそうですね。
プログレスバーで進捗表示してもいいんですが、処理が大げさになりがちなので、こっちの方が簡単ですね。
これは便利！

カテゴリ: VBA