|
▼hama さん:
>逆に前シートを後シートと比較して違う色を付ける
>ことができますでしょうか?
どういうことでしょうか?
>>>前と後のA列を検索してなかったら後のAセルに色をつける
>>>前と後のA列に同じ値があったら
>>>Bセル→Cセル→Dセルと比較をしていってセルの値が違っていたら
>>>色をつける
↑この最後の「色を付ける」ところのことですか?
いまは、
> 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 さん、ご自分でできますよね?
それとは別のことですか?
# それから、hama さん、スレッドをお借りします。
これは hama さんだけに言えることではないのですが、
全文引用は不必要です。
必要な部分だけを引用してください。
|
|