Excel VBA質問箱 IV

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

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


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

11337 / 76735

←次へ　｜　前へ→


	【70936】Re:比較し、一致したものをグレーアウト

kanabun - 12/1/19(木) 8:48 -


	引用なし

	パスワード

▼初心者1 さん： >ループさせて比較していくのだとは思うのですが・・・ Sub try1() 　Dim i As Long 　Dim a1 As Range, a2 As Range 　　Set a1 = Range("A1").Resize(10) 　Set a2 = Range("A21").Resize(10) 　a1.Interior.ColorIndex = xlNone 　a2.Interior.ColorIndex = xlNone 　For i = 1 To a1.Count 　　　If a1.Item(i).Value = "○" Then 　　　　　If a2.Item(i).Value = "○" Then 　　　　　　　a1.Item(i).Interior.ColorIndex = 16 　　　　　　　a2.Item(i).Interior.ColorIndex = 16 　　　　　End If 　　　End If 　Next 　　　　　　　　　　 End Sub >A1～A100など範囲が多い場合は、配列に格納してから比較したほうが >処理は早いのでしょうか。処理経過が分かるほど遅いなら、 Application.ScreenUpdating = False / True の制御を入れてください。それでも遅いときは、配列方式に切り替えるわけですが、今回のようなセルを塗りつぶす処理は配列化できないので、効果はさほど期待できないかも。