|
▼ringotyanZ さん:
>同一セルの内容が変わったとき、例えば388と入ってるデータの上に390と打ち直すと赤くなるのは確認できるのですが、データを丸ごとペーストしても何も起きませんでした。
私のマクロをお試しでしょうか?
それならば、私のマクロは、複数のコピペには対応していません。ichinoseさんのはOKです。
複数のコピペに対応するには、
以下のように変更していただく必要があります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
Application.EnableEvents = False
For Each r In Target
Select Case True
Case r.Value > Cells(r.Row, "Z").Value
r.Font.ColorIndex = 3
Cells(r.Row, "Z").Value = r.Value
Case r.Value < Cells(r.Row, "Z").Value
r.Font.ColorIndex = 5
Cells(r.Row, "Z").Value = r.Value
End Select
Next
Application.EnableEvents = True
End If
Application.ScreenUpdating = True
End Sub
|
|