Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20442 / 76732

←次へ　｜　前へ→


	【61709】Re:カメラ機能を使用したブックがあると異常に処理が遅くなる

もも - 09/5/28(木) 14:56 -


	引用なし

	パスワード

▼ON さん：
>>Ａブックも再計算されるからです。
>上記のため、Ａブックでは再計算される可能性はないような気がします・・・

再計算という言葉が微妙ですがカメラ機能もリンクに変わりないわけで
リンク先の取得という動作のために重くなっているのでしょう。

で、セルへの変更がされる度にリンク先を確認に行きますので
（Ａブックでも）
当然重くなるわけです。

で、「セルへの変更がある都度」なので
その機会を減らすという意味では

Sub CLR_DT2()

Debug.Print Now()
With ActiveSheet
　.Range("M2,I4:I5,B8:B10,C12,F12,I12,S37,M5,E13").Interior.ColorIndex = 6 '.ClearContents
　Debug.Print Now()
　.Range("D16:F20,B19:B20,G19:G21,I16:I21").Interior.ColorIndex = 6 '.ClearContents
　Debug.Print Now()
　.Range("D26:F26,D29:F29,D32:F32,D34:F35,M21,M37").Interior.ColorIndex = 6 '.ClearContents
　Debug.Print Now()
End With
End Sub

と、纏めるとか。
もっと極端にすると

Sub CLR_DT2()

Debug.Print Now()
With ActiveSheet
　.Range("M2,I4:I5,M5,B8:B11,C12,E13,F12,I12,B19:B20,D16:F20,G19:G21,I16:I21,M21,D26:F26,D29:F29,D32:F32,D34:F35,M37").ClearContents
End With
Debug.Print Now()
End Sub

と、するだけでも速度は相当変わると思いますが。

>>Ａブックを閉じるなり、別インスタンスのエクセルでやるなりだと
>>思うのですが。
>が、理解できる人ならかまわないのですが
>エクセル一般操作でいっぱいいっぱいの人に利用してもらうブックを作成しています

という事であれば、このくらいしか対処しようが無いのではないでしょうか？

1 hits

▼

【61661】カメラ機能を使用したブックがあると異常に処理が遅くなる ON 09/5/25(月) 17:07