[[20060107124014]]　『メッセージボックスを2秒後に自動で閉じる？』（赤い彗星）　ページの最後に飛ぶ

『メッセージボックスを2秒後に自動で閉じる？』（赤い彗星）

[メッセージボックスを2秒後に自動で閉じることは可能でしょうか]

 MsgBoxを出すと厄介なので、ステータスバーに表示では
 だめでしょうか？
 （kazu）

 マクロを実行して、最後に確認でメッセージボックスを出しているのですが
 OKをクリックしないといけないので、それを2秒後にかってに閉じれないものかと
 思いまして・・・（赤い彗星）

 MsgBoxをユーザーフォームのラベルで代用、ではいかがでしょう？

 '標準モジュール
 Sub kanryou()
  Dim mytime As Date
   UserForm1.Show 0
   mytime = Now
   mytime = mytime + TimeValue("00:00:02")
   Application.OnTime mytime, "msg"
 End Sub

 Sub msg()
  Unload UserForm1
 End Sub

 ユーザーフォームモジュール/ラベルを用意
 Private Sub UserForm_Initialize()
  Me.Label1.Caption = "完了"
 End Sub
 (MARBIN)

 このマクロはどのように今あるマクロにくっつければ良いのでしょうか
 高度な技なので、やはり、ニュータイプですかぁ（赤い彗星）
 そのまんま、標準モジュールに追加してはり付けたのですが、反応がないもので

　>ユーザーフォームモジュール/ラベルを用意

 ユーザーフォームは用意しましたか？
 (ガンダムみてないMARBIN)

 メッセージを出したいところに、

 Call kanryou

 と記述してみてください。
 (MARBIN)

コメント返信：

[ 一覧(最新更新順) ]

[[20060107124014]] 『メッセージボックスを2秒後に自動で閉じる？』（赤い彗星） ページの最後に飛ぶ

[[20060107124014]]　『メッセージボックスを2秒後に自動で閉じる？』（赤い彗星）　ページの最後に飛ぶ