Excel VBA質問箱 IV

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

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


20442 / 76732 ←次へ | 前へ→

【61709】Re:カメラ機能を使用したブックがあると異常に処理が遅くなる
発言  もも  - 09/5/28(木) 14:56 -

引用なし
パスワード
   ▼ON さん:
>>Aブックも再計算されるからです。
>上記のため、Aブックでは再計算される可能性はないような気がします・・・

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

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

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

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

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

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

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

【61661】カメラ機能を使用したブックがあると異常に処理が遅くなる ON 09/5/25(月) 17:07 質問
【61662】Re:カメラ機能を使用したブックがあると異... ON 09/5/25(月) 17:18 発言
【61663】Re:カメラ機能を使用したブックがあると異... ON 09/5/25(月) 17:20 発言
【61664】Re:カメラ機能を使用したブックがあると異... もも 09/5/25(月) 18:04 発言
【61666】Re:カメラ機能を使用したブックがあると異... ON 09/5/25(月) 18:29 発言
【61667】Re:カメラ機能を使用したブックがあると異... もも 09/5/25(月) 18:51 発言
【61706】Re:カメラ機能を使用したブックがあると異... ON 09/5/28(木) 13:35 発言
【61709】Re:カメラ機能を使用したブックがあると異... もも 09/5/28(木) 14:56 発言
【61710】Re:カメラ機能を使用したブックがあると異... もも 09/5/28(木) 14:58 発言
【61722】Re:カメラ機能を使用したブックがあると異... ON 09/5/29(金) 20:56 お礼
【61805】Re:カメラ機能を使用したブックがあると異... ON 09/6/5(金) 16:21 お礼

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