|
こんばんわ。
セルに数字を入力すると、セルの色が、入力した数字に相当する色に変わる。
番号を消去するとセル色が無色になる。
というコードを作成しました。
1つ1つ数字を入力する場合は、正常に動くのですが、
複数セルをコピー&ペーストすると、全てのセルが一番上の数字の色になってしまいます。
複数セルをコピー&ペーストしても、それぞれのセルの数字に相当する色にするにはどうしたら良いのでしょうか?
なにとぞ、よろしくお願いいたします。
-------------------------------------------------------------
Private rT As Range
Private Sub Worksheet_Change(ByVal Target As Range)
Set rT = Target
With rT
If Not Application.Intersect(rT, Range(Cells(1, 1), Cells(50, 1))) Is Nothing Then
Application.EnableEvents = False
.Interior.ColorIndex = .Value 'セル色を入力した値とする
If IsEmpty(.Value) Then '空欄なら無色とする
.Interior.ColorIndex = xlNone
End If
Application.EnableEvents = True
End If
End With
End Sub
|
|