cel********

2023/3/12 13:42

33回答

VBAでプログレスバー設定を教えてください。

VBAでプログレスバー設定を教えてください。 以下の内容で設定したのですが、ボタンをクリックするとユーザーフォームのマクロが何回も繰り返しながらかなりゆっくりプログレスバー（約10分）が動きます。ユーザーフォームにマクロを入力しなければプログレスバー（約10秒）は正常に動きます。そこで、マクロを入力しても正常に動くようにどなたかお教えください。よろしくお願いいたします。 ■ユーザーフォーム設定■ Private Sub CommandButton1_Click() Worksheets("sheet1").Activate CommandButton1.Enabled = False CommandButton2.Enabled = True MyFlag = False ProgressBar1.Visible = True ProgressBar1.BorderStyle = 1 - ccFixedSingle For i = 1 To 10000 ProgressBar1.Value = (i / 10000) * 100 'プログレスバーの値を設定 DoEvents ＿＿＿＿＿＿＿＿＿ '←ここにマクロを入力します If MyFlag = True Then 'キャンセルボタン MsgBox "キャンセルをクリックしたので、処理を中止" Exit For End If Next i CommandButton1.Enabled = True CommandButton2.Enabled = False MyFlag = False Unload Me End Sub Private Sub CommandButton2_Click() MyFlag = True End Sub Private Sub UserForm_Initialize() CommandButton2.Enabled = False End Sub ■モジュール設定■ Sub 設定() Worksheets("設定").Activate MyFlag = True Do While MyFlag = True UserForm3.Show (vbModal) 'ユーザーフォームを表示 Loop End Sub

Visual Basic | プログラミング・482閲覧・xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

mis********

2023/3/13 17:58

プログレスバーという名前から、VBA本体と連動した賢い仕組みで進捗状況を判断してバーを動かしてくれると、つい期待してしまいますが、そんな仕組みで動くようなことは1mmもありません。バーの長さは、すべてプログラマーの自己管理です。 0から100にいきなりなって「何のためのプログレスバーやねん」とか、 0から99まで調子よく進んでいたのに「99ですっと止まったまま。もしかしてフリーズ？それも判別できんプログレスバーっていったい……」とか、 そういう呆れるプログレスバーが普通です。なぜなら普通にプログラムするとそうなるからです。 プログレスバーに意味ある情報を表示させようと思ったら、マクロに担わせることになります。 そしてそれが出来るか出来ないかは、マクロの処理次第です。 たとえば、出来る例を示しますと、 Private Sub CommandButton1_Click() …… ProgressBar1.Max = 100 '100%の百分率で考える Call DoHevyWork(ProgressBar1) '重い処理のマクロ …… End Sub Sub DoHevyWork(pb As ProgressBar) pb.Value = 5 '全体の20%ぐらいの処理 'Call DoHevyWork_Part1 の代わりに Application.Wait (Now + TimeValue("0:00:02")) pb.Value = pb.Value + 15 '全体の60%ぐらいの処理(が負荷均等で6回Loopで処理される) Dim i As Long For i = 1 To 6 'Call DoHevyWork_Part2 の代わりに Application.Wait (Now + TimeValue("0:00:01")) pb.Value = pb.Value + 10 Next '全体の10%ぐらいの処理 'Call DoHevyWork_Part3 の代わりに Application.Wait (Now + TimeValue("0:00:01")) pb.Value = pb.Value + 10 '全体の10%ぐらいの処理 'Call DoHevyWork_Part4 の代わりに Application.Wait (Now + TimeValue("0:00:01")) pb.Value = pb.Value + 10 End Sub というような感じです。 Max = 100 としたので、値が最終的に100になるように配分します。 つまりプログレスバーを意味ある情報として表示させるには、 重い処理の合間に、ほどよい分割量で、 プログレスバー値を更新させる行を差し込んでいけるか、 という点にかかっています。

NEW! この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

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

お礼日時：2023/4/6 3:46

その他の回答（2件）

porihiko3

2023/3/12 20:26

こんちには。 エクセルマクロは、マルチタスクはできません。 ループをしながら、「マクロの処理」をさせるにしても、 マクロの処理が相当時間が必要な処理、と、わかっているなら、 示しているコードは、組みなおししないといけません。 エクスプローラのアニメーションのような動作を期待しているなら、 プログレスの動作するhtmlアニメーションの素材を用意して、 マクロからhtml表示を投げるとか、フォームにブラウザーコントロールを張り付けて、10秒のgif素材を表示するとか、マルチで動作する環境を作る必要があります。 プログレスバーで言えば、実際に処理させるマクロの中に、call プログレス(引数)のようにして、プログレスはメイン処理にしません。 もし、時間のかかるマクロの表示だけ担当させるなら、 ブラウザーコントロールを検討してください

1251702281

2023/3/12 13:48

このままなら、10秒なんですよね？ どういうマクロ入れたんですか？