| |
▼bridgesbook さん：
こんばんは。
>
>セルに数字を入力すると、セルの色が、入力した数字に相当する色に変わる。
>番号を消去するとセル色が無色になる。
>というコードを作成しました。
>
>１つ１つ数字を入力する場合は、正常に動くのですが、
>複数セルをコピー＆ペーストすると、全てのセルが一番上の数字の色になってしまいます。
>複数セルをコピー＆ペーストしても、それぞれのセルの数字に相当する色にするにはどうしたら良いのでしょうか？
>なにとぞ、よろしくお願いいたします。
>
>-------------------------------------------------------------
>
'===================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim crng As Range
Dim rt As Range
Set rt = Application.Intersect(Target, Range(Cells(1, 1), Cells(50, 1)))
If Not rt Is Nothing Then
Application.EnableEvents = False
For Each crng In rt
With crng
.Interior.ColorIndex = .Value 'セル色を入力した値とする
If IsEmpty(.Value) Then '空欄なら無色とする
.Interior.ColorIndex = xlNone
End If
End With
Next
Application.EnableEvents = True
End If
End Sub
これで試してみて下さい
|
|
ichinose
- 05/8/25(木) 23:13 -
