|
▼hama さん:
>▼kanabunさん 本当にすいません。
>まったくの初心者なのです。
>
>前と後の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後側のセルを色塗りします
>> ws後.Cells(newY, x).Interior.ColorIndex = 27
'他方の ws前側のセルも色塗りします
ws前.Cells(oldY, x).Interior.ColorIndex = 27
>> End If
>> Next
>> End If
上のように、やりたいことを日本語でコメントし、そのコメントをコードに
直す練習をしばらく続けると、そのうち、VBAが書けるようになると思います。
がんばって励んでください。
|
|