Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5266 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 はするのですが、その直後に固まってしまいます。
パソコンの個別的事情でしょうかね。
行数は１万程度、列は１０項目程度、２項目に関数が入っていますので
前もって、値にコピーしてから実行しても同じ状況でした。


>どんな状態のデータなのか解りませんが、とりあえず。
>再計算されないようにするとか。
>
>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とは関係がないようで申し訳有りませんが、どう言う事でしょうか？
原因は良く解りません。
スペックの低いＰＣでそういうことがあったような気もします。
図形の類があるとか.....。
削除する前に値だけ消してみるとか。

Rows(2).Resize(RW - 1).ClearContents
Rows(2).Resize(RW - 1).Delete
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5266 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free