Excel VBA質問箱 IV

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

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


7920 / 76736 ←次へ | 前へ→

【74397】Re:色つきセルへのジャンプ
発言  UO3  - 13/5/29(水) 15:27 -

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

この状態にしたら、こちらでも気が遠くなるほどの時間がかかりました。
で、原因は、Cells の byRowsで検索しておられますから、A10 から A100 に至るまで
16384 * 90 ぐらいのセルをさがすことになりますね。
次に A100 から A1000 になりますと、16384 * 900 ぐらいの出るを対象にしていますね。

値の検索ならこれでもあっという間なんですが、(たぶん値のあるセルだけを検索しているのではないかと想像)
書式検索は、セルを1つずつ、【なめて】処理するようです。

したがって、重い処理は、どうしようもないと思いますが

Cells.Find を

Range("A1", ActiveSheet.UsedRange).Find

に変更すれば、少しはましかもしれません。

ところで、フォーマット規定ですが

With Application.FindFormat.Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = myColor
End With

これでよろしいと思いますよ。

0 hits

【74393】色つきセルへのジャンプ gg54 13/5/29(水) 8:42 質問
【74394】Re:色つきセルへのジャンプ UO3 13/5/29(水) 13:55 発言
【74395】Re:色つきセルへのジャンプ gg54 13/5/29(水) 14:55 発言
【74397】Re:色つきセルへのジャンプ UO3 13/5/29(水) 15:27 発言
【74398】Re:色つきセルへのジャンプ gg54 13/5/29(水) 15:34 質問
【74399】Re:色つきセルへのジャンプ gg54 13/5/29(水) 15:39 お礼

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