|
▼ringotyanZ さん:
>ponpon さん、アドバイスありがとうございます。
>データをまとめてコピペしてみたところ、C列全てが赤くなってしまいます。
こちらでは、うまくいっているのですが・・・
>ブックを一旦保存して閉じてから開くと、今度はC列全てが黒くなってしまいました。
それは、そのようにしています。
それが、ダメなら(前回の色を保持するなら)
Thisworkbookもジールの
Private Sub Workbook_Open()
Dim myR As Range
Set myR = Sheets("Sheet1").Range("C1", Sheets("Sheet1").Range("C65536").End(xlUp))
With myR
’.Font.ColorIndex = 0 ここで色を黒にしています。
.Copy Sheets("sheet1").Range("Z1")
End With
End Sub
>C列に「1」と入力するとそこだけ青くなります。
そのまま上書き保存して開き直し、1や2を入れてください。
希望通りになると思うのですが・・・
もう一度新規ブックにデータをコピペして試してみてください。
それでもうまくいかない場合は、ちょっと分かりかねますので、
識者の回答をお待ちください。
シートモジュール
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
|
|