|
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
|
|