エクセルVBAで「はい」「いいえ」のないメッセージを表示する方法

質問

エクセル９５およびエクセル９７を使用しています。

エクセルVBAでメッセージを表示する場合、通常は、

Sub メッセージ()
MsgBox "～メッセージ本文～", vbOKOnly + vbinformatoin, "メッセージタイトル"
End Sub

のように書くと思います。他にも、vbOKCancel、 vbYesNo などもあります。
しかしこれらはいづれにせよ、ユーザーがメッセージに表示された「はい」や「いいえ」をクリックしないと先に進みません。、このメッセージから「はい」「いいえ」等の表示を無くし、メッセージを何秒か表示したら、あとは自動的に消えるようにするにはどうすればいいのでしょうか？

回答No.4

makoto61111

すみません、excel95は触った事がないのと、Dialogsheetsを使った事がないので私には解りかねます。

回答No.3

makoto61111

他の人も書いていましたがmsgboxでないと駄目ですか？(^^;
とりあえずFormを使って同じ機能の物でしたら書いてみたので参考までに...

標準モジュールとフォームを作成。
それぞれをUserForm1とModule1とする。

フォームのオブジェクトに表示したいメッセージを書く。

UserForm1のコードに

Private Sub UserForm_Activate()
　　t=Timer
　　Do While Timer < t + 1　'1は秒数です。10にすれば10秒です。
　　　　DoEvents
　　Loop
　　Unload Me
End Sub

Module1のコードに

Sub Macro1()
　　UserForm1.Show
End Sub

こんな感じでは駄目でしょうか？

お礼

ありがとうございます。これでエクセル９７と２０００については解決しました。
ただ、ユーザーフォームの無いエクセル９５については出来ません。
Dialogsheetが代りだと思うのですが、９５の場合、標準モジュールしかないので

Private Sub UserForm_Activate()
～略～
End Sub

の部分を標準モジュールにどう書けばいいのか教えてくださいませんでしょうか？

呼び出す方はこれでいいと思うのですが。
Sub Macro1()
　　Dialogsheets("Dialog1").Show
End Sub

補足

Sub Macro1()
DialogSheets("dialog1").Show
t = Timer
Do While Timer < t + 1 '1は秒数です。10にすれば10秒です。
DoEvents
Loop
DialogSheets("dialog1").Hide
End Sub

とやったのですが、ダイアローグシートのＯＫまたはきゃんせるボタンを押さないとさきにすすみません。

ダイアローグシートのかわりにテキストボックスを使って、

Sub Macro2()
Sheets("sheet1").DrawingObjects("テキスト 1").Visible = True
t = Timer
Do While Timer < t + 1 '1は秒数です。10にすれば10秒です。
DoEvents
Loop
Sheets("sheet1").DrawingObjects("テキスト 1").Visible = False
End Sub

とすれば働くのですが、いかんせんテキストボックスなものですから・・・・。

回答No.2

kagep

MsgBox関数で出力されるメッセージボックスはシステムが管理しており、
メッセージ出力後の処理の継続には必ずボタンが必要です。
なので、ボタンを出さずにタイマーで消す、
などというカスタマイズはできません。

ＶＢＡでなく、ＶＢならこの場合は、
メッセージを表示するだけのフォームを作成し、
そのフォームのLoadとUnloadをメインフォームから
タイマーでコントロールする、という方法を取ると思います。

ＶＢＡだと・・・他の方にお任せしたいと・・・（苦笑）

回答No.1

ats8181oyaji

こんにちは

メッセージボックスでないといけませんか？

ラベルにメッセージを表示しタイムウェイトした後に
スペースを送ってメッセージを消す。
という簡単な方法がありますが。。。

では

お礼

すみません、不勉強で「スペースを送る」という意味がわからないのです。
テキストボックスにメッセージを書いて、
Sub 表示()
～略～("テキストボックス名").Visible = True
Application.OnTime Now + TimeValue("00:00:05"),"非表示"
End Sub

Sub 非表示()
～略～ ("テキストボックス名").Visible = False
End Sub

と二つのマクロを書き、やろうかとも思いました。そういうことでしょうか？
出来ればメッセージボックスを利用したいのです。メッセージアイコンも使いたいですし。すみません。