Excel VBA質問箱 IV

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

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


5247 / 13646 ツリー ←次へ | 前へ→

【51935】clearについて hisao 07/10/12(金) 12:59 質問[未読]
【51939】Re:clearについて Jaka 07/10/12(金) 14:01 発言[未読]
【51941】Re:clearについて hisao 07/10/12(金) 15:07 発言[未読]
【51942】Re:clearについて hisao 07/10/12(金) 15:25 発言[未読]
【51946】Re:clearについて Jaka 07/10/12(金) 16:27 発言[未読]

【51935】clearについて
質問  hisao  - 07/10/12(金) 12:59 -

引用なし
パスワード
   データーを入れ替えるため
Range("2:" & Range("A60000").End(xlUp).Row).Delete
あるいはclear を使いたいのですが
10000行程になると、非常に時間が掛かるかフリーズしてしまいます
cells.clearでも同様です。
何か良い方法は無いでしょうか、お教え下さい。

【51939】Re:clearについて
発言  Jaka  - 07/10/12(金) 14:01 -

引用なし
パスワード
   どんな状態のデータなのか解りませんが、とりあえず。
再計算されないようにするとか。

VVV = Application.Calculation
Application.Calculation = xlManual
Rows(2).Resize(Range("A65536").End(xlUp).Row - 1).Delete
Application.Calculation = VVV

【51941】Re:clearについて
発言  hisao  - 07/10/12(金) 15:07 -

引用なし
パスワード
   ▼Jaka さん:
jakaさん、いつも有り難うございます。
jakaさんの神通力、お教え頂いた構文で実行しても
何故か Delete はするのですが、その直後に固まってしまいます。
パソコンの個別的事情でしょうかね。
行数は1万程度、列は10項目程度、2項目に関数が入っていますので
前もって、値にコピーしてから実行しても同じ状況でした。


>どんな状態のデータなのか解りませんが、とりあえず。
>再計算されないようにするとか。
>
>VVV = Application.Calculation
>Application.Calculation = xlManual
>Rows(2).Resize(Range("A65536").End(xlUp).Row - 1).Delete
>Application.Calculation = VVV

【51942】Re:clearについて
発言  hisao  - 07/10/12(金) 15:25 -

引用なし
パスワード
   ▼Jaka さん:

お手数掛けます。
追伸です。
元の表をコピーして、そのまま そのシートに値をペーストしてから
そのシートをクリアーしても固まるのですが
別のシートに値ペーストして、そのシートを
cells.clearした場合は問題ないようです。
VBAとは関係がないようで申し訳有りませんが、どう言う事でしょうか?


>どんな状態のデータなのか解りませんが、とりあえず。
>再計算されないようにするとか。
>
>VVV = Application.Calculation
>Application.Calculation = xlManual
>Rows(2).Resize(Range("A65536").End(xlUp).Row - 1).Delete
>Application.Calculation = VVV

【51946】Re:clearについて
発言  Jaka  - 07/10/12(金) 16:27 -

引用なし
パスワード
   ▼hisao さん:
>元の表をコピーして、そのまま そのシートに値をペーストしてから
>そのシートをクリアーしても固まるのですが
>別のシートに値ペーストして、そのシートを
>cells.clearした場合は問題ないようです。
>VBAとは関係がないようで申し訳有りませんが、どう言う事でしょうか?
原因は良く解りません。
スペックの低いPCでそういうことがあったような気もします。
図形の類があるとか.....。
削除する前に値だけ消してみるとか。

Rows(2).Resize(RW - 1).ClearContents
Rows(2).Resize(RW - 1).Delete

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