Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29169 / 76732 ←次へ | 前へ→

【52848】再計算の進捗状況をプログレスバーで表示したい
質問  たっきー E-MAIL  - 07/12/6(木) 7:03 -

引用なし
パスワード
   sumproduct関数をを多用しているファイルがあり、再計算に非常に時間が掛かって困っています。

必要に応じて再計算をするようにしたいのですが、再計算に一分以上かかるためステータスバーの小さい表示ではなく、プログレスバーにて進捗状況を表示したいと思っています。

「すぐに役立つエクセルVBAマクロ集」というHPから以下の記述を拾ってきましたが、この記述のどこに
  ActiveSheet.Calculate
を挿入すればいいのでしょうか?

ちなみに、AutoOpen()にてファイルを開いた時に計算方法を手動にしてあります。

========以下、参考にした記述========

Sub 参考_進捗状況の表示()
  総件数 = 10000
  UserForm.Show
  キャンセルボタン = ""

  For 処理件数 = 1 To 総件数
    UserForm.ProgressBar1.Value = 処理件数 / 総件数 * 100
    DoEvents
    If キャンセルボタン = "ON" Then
      MsgBox "キャンセルがクリックされたので、処理を中止します", , "マクロの中止"
      Exit For
    End If
  Next
   Unload UserForm
End Sub
2 hits

【52848】再計算の進捗状況をプログレスバーで表示したい たっきー 07/12/6(木) 7:03 質問
【52849】Re:再計算の進捗状況をプログレスバーで表... ichinose 07/12/6(木) 7:47 発言
【52891】Re:再計算の進捗状況をプログレスバーで表... たっきー 07/12/7(金) 23:02 お礼

29169 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free