質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.51%

  • VBA

    2309questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

EXCEL VBAでfor文のループ中にセットしたラベルのCaptionをfor文ループ中に表示させたい。

解決済

回答 4

投稿

  • 評価
  • クリップ 0
  • VIEW 2,587

GiveAHand

score 268

Excel VBAで、アプリケーションを作成しています。

処理時間がが長いので、For文中に進捗状況を表示させるために、ActiveXのラベルを設置して、そのCaptionに進捗を表示させるようにしたのですが、DoEventsを使っても、Sleepで少し待っても、ScreenUpdatingをTrueにしても、処理が完了するまで、ラベルのCaptionにセットした文字が表示されません。

つまり、処理中にはラベルのCaptionがずっと何も表示されず、処理終了後に、最後にセットしたCaptionが表示されるという状態です。

ちなみに、デバッグモードでステップ実行をすると、ループ中でもCaptionにセットした文字が表示されます。

また、ソースはこのように書いてます。

For i = 0 To 100000

    Application.ScreenUpdating = True

    DoEvents

    Sleep 1000

    Worksheets(1).lblMassage.Caption = i & "番目を処理中"

    DoEvents

    Application.ScreenUpdating = False

    (VBAの処理)

Next

DoEvebts、ScreenUpdating 、Sleepなどを、このようにつけたり、無くしたり、いろいろな組み合わせでやってみましたが、結果は何も変わりませんでした。

もちろん、ScreenUpdatingの記述を完全に無くしてもみました。

ActiveXのラベルのCaprionは、処理中にセットしたものは、処理が終わるまで表示されないものなのでしょうか?

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 4

checkベストアンサー

+2

Excel2010で試したところ問題なく更新されました。
ちなみにこれだけ。

For i = 0 To 100000
    Worksheets(1).lblMassage.Caption = i & "番目を処理中"
    DoEvents
Next


提示されているコードでも問題ありませんでした。
別の原因があるような気がします。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/06/28 18:16 編集

    ttyp03様

    ご回答ありがとうございます。

    おっしゃるとおり、このプログラムで、私のほうでもきちんと表示されました。

    そして、原因わかりました。
    原因は、プログラム自体を関数にして、標準モジュールに入れていたのですが、それが問題だったようです。

    プログラム自体を、シートに書いたら問題なく更新されました!

    動作検証して、動くという報告を頂いて私も方でもピンときました。
    ありがとうございました!

    キャンセル

+1

ActiveXって、懐かしい響きがしますね。
直接的な回答ではないですが、ステータスバーを使うという代替案ではダメですか?

Application.StatusBar = i & "番目を処理中"


こちらのほうがよほど簡単ですし、無駄に時間とられるより
現実的な対応をするというのもひとつだと思いますがいかがでしょう。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/06/28 18:07

    BJCRobot様

    ご回答ありがとうございます。

    そうですね。。。
    フォームではなく、シートに直接オブジェクトを貼り付けていますので。。。

    キャンセル

+1

私もttyp03さん同様、Excel2010環境で検証しましたが、問題なく1件づつ再描画されました。

メインのVBA処理ではScreenUpdating = Falseにしたいと考えると、最低限以下のコードがあればラベル再描画が行われると思います。

Sub Test()
    For i = 0 To 100000

        Application.ScreenUpdating = True
        DoEvents
        Worksheets(1).lblMassage.Caption = i & "番目を処理中"
        DoEvents

        Application.ScreenUpdating = False

        '(VBAの処理)

    Next
End Sub

これで再描画されないのであれば、前後の処理や環境の違いなどが原因かもしれません。

100000回というループ数に対して毎回DoEventsするのはいたずらに処理を重くしているような気がしますが、それはまた別の話。
lblMassageがMessage(メッセージ)ではなくMassage(マッサージ)なのも気になりましたが、それもまた別の話。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/06/28 18:19

    jawa様

    ttyp03さんの回答にも書きましたが、原因は、プログラム自体を関数にして、標準モジュールに入れていたのですが、それが問題だったようです。

    プログラム自体を、シートに書いたら問題なく更新されました!

    非常にご丁寧な検証をありがとうございました!
    これが無ければ気が付かなかったです。

    ありがとうございました!

    キャンセル

0

少し扱いがメンドクサイ AND 1秒ずつ更新しかできませんが
Application.OnTime
とかー

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/06/27 09:45

    あれ?lblMassageってなんだろう
    labelじゃないのか・・・

    キャンセル

  • 2016/06/28 18:08

    dot-asterisque様

    ご回答ありがとうございます。

    こんなのもあるんですね。
    ただ、確かに扱いめんどくさそう。。。^^;

    キャンセル

同じタグがついた質問を見る

  • VBA

    2309questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。