Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5048 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52848】再計算の進捗状況をプログレスバーで表示したい たっきー 07/12/6(木) 7:03 質問[未読]
【52849】Re:再計算の進捗状況をプログレスバーで表... ichinose 07/12/6(木) 7:47 発言[未読]
【52891】Re:再計算の進捗状況をプログレスバーで表... たっきー 07/12/7(金) 23:02 お礼[未読]
【52848】再計算の進捗状況をプログレスバーで表示...
質問  たっきー E-MAIL  - 07/12/6(木) 7:03 -
引用なし
パスワード
   sumproduct関数をを多用しているファイルがあり、再計算に非常に時間が掛かって困っています。

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

「すぐに役立つエクセルVBAマクロ集」というＨＰから以下の記述を拾ってきましたが、この記述のどこに
　　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
【52849】Re:再計算の進捗状況をプログレスバーで...
発言  ichinose  - 07/12/6(木) 7:47 -
引用なし
パスワード
   ▼たっきー さん：
おはようございます。

>sumproduct関数をを多用しているファイルがあり、再計算に非常に時間が掛かって困っています。
>
>必要に応じて再計算をするようにしたいのですが、再計算に一分以上かかるためステータスバーの小さい表示ではなく、プログレスバーにて進捗状況を表示したいと思っています。

再計算で一分以上ですか・・・。


結論としては、

ActiveSheet.Calculate

とプログレスバーはとのコラボは無理ですよ！！

www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm

↑角田さんサイトにプログレスバーについて、詳しく記述されている箇所があります。
この中の「２．プログレスバーを作るのに必要な事」でプログレスバーを作れない例
を掲載していますが、この中の例と「ActiveSheet.Calculate」も同じです。

その他このプログレスバーの使用方法が詳しく記述されていますから、
調べてみてください。
そうすれば、プログレスバーを使用するには、何を大きく変更しなければならないか
見えてくるかもしれませんよ！！
【52891】Re:再計算の進捗状況をプログレスバーで...
お礼  たっきー E-MAIL  - 07/12/7(金) 23:02 -
引用なし
パスワード
   そうですか。。。違う方法を考えてみます。

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


▼ichinose さん：
>▼たっきー さん：
>おはようございます。
>
>>sumproduct関数をを多用しているファイルがあり、再計算に非常に時間が掛かって困っています。
>>
>>必要に応じて再計算をするようにしたいのですが、再計算に一分以上かかるためステータスバーの小さい表示ではなく、プログレスバーにて進捗状況を表示したいと思っています。
>
>再計算で一分以上ですか・・・。
>
>
>結論としては、
>
>ActiveSheet.Calculate
>
>とプログレスバーはとのコラボは無理ですよ！！
>
>www.h3.dion.ne.jp/~sakatsu/ProgressBarTopic.htm
>
>↑角田さんサイトにプログレスバーについて、詳しく記述されている箇所があります。
>この中の「２．プログレスバーを作るのに必要な事」でプログレスバーを作れない例
>を掲載していますが、この中の例と「ActiveSheet.Calculate」も同じです。
>
>その他このプログレスバーの使用方法が詳しく記述されていますから、
>調べてみてください。
>そうすれば、プログレスバーを使用するには、何を大きく変更しなければならないか
>見えてくるかもしれませんよ！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5048 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free