Excel VBA質問箱 IV

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

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


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

7313 / 76732

←次へ　｜　前へ→


	【75007】Re:ループ抜け教えてください

hama

- 13/11/12(火) 23:22 -


	引用なし

	パスワード

▼kanabunさん　本当にすいません。
まったくの初心者なのです。

前と後のＡ列を検索してなかったら後のＡセルに色をつける
前と後のＡ列に同じ値があったら
Ｂセル→Ｃセル→Ｄセルと比較をしていってセルの値が違っていたら
前も後も色をつけたいのです。
↑新しい要素

>　　　　Else '「前」シートにこの値があったばあい
>　　　　　　 'その行のB列～D列の値を相互比較・色塗りする ●
>　　　　　　newY = c.Row
>　　　　　　oldY = foundCell.Row
>　　　　　　For x = 2 To 4　'B列～D列
>　　　　　　　　Ans2 = ws後.Cells(newY, x).Value
>　　　　　　　　If ws前.Cells(oldY, x).Value <> Ans2 Then '●●
>　　　　　　　　　　ws後.Cells(newY, x).Interior.ColorIndex = 27
>　　　　　　　　End If
>　　　　　　Next
>　　　　End If

の部分で、比較し、ちがっていたら ws後のほうにだけ色塗りをしていますが、
これを ws前のほうも塗りつぶせばいいってことですか？
↑そうです。どう直せばよいかわからないのです。

もしそうなら、hama さん、ご自分でできますよね?
↑それが初心者なのでできないのです。
すいません。よろしくお願いします。

301 hits

▼

【74996】ループ抜け教えてください hama 13/11/11(月) 20:30