プロが教える店舗&オフィスのセキュリティ対策術

エクセル・マクロで次のように、For Next ループの進行状況をStatusBarに表示しています。

’MsgBox "ループ数=" & m
Application.StatusBar = "ループ数=" & m

Msgboxをコメントで使用しない状態にすると、mの値が表示されますが、途中で数字が変化しなくなってしまいます。計算が実行していることは確かなのですが、例えば、2とか3とかで表示がストップしてしまい、変化しなくなってしまいます。

ところが、コメントをはずしてMsgBox表示するようにしますと、MsgBoxで「OK」とすると正常なmの値がステータスバーに表示されます。

どうすればステータスバーに正確に表示できるのでしょうか?
よろしくご教授ください。

ちなみに、OSはWindows7、エクセルOffice2010、バージョン14.0.5128.5000(32ビット)です。

A 回答 (1件)

こんにちは。



ステータスバーで、表示が止まるのはあんまり経験がないですが、

>Application.StatusBar = "ループ数=" & m
の前に
「DoEvents」を入れるとどうなりますか?

はずしてたらすみません。
    • good
    • 5
この回答へのお礼

バッチリです!!!

早々にご教授していただき助かりました。
どうもありがとうございました。

お礼日時:2011/02/19 11:14

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A