|
agalinman さんこんばんわですます。
そんなに早く諦めなくともよいのでは?
色を塗る事ばかり気にせず次の流れでの処理は無理っぽいですかね?
あくまでも A1:G10 の範囲を例として。。
まずは塗りたいセルに数字を入力。。といきたいところですが先に
セルに値があるかもしれないので
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column <= 7 And .Row <= 10 Then
[H1].Value = .Value
Else: [H1].Value = ""
End If
End With
End Sub
でH1にでも値を逃がしておきそれから色を塗ります。
下記では、1,2,3を入力するとそれぞれ黒、赤、青とを塗るようにしています。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column <= 7 And .Row <= 10 Then
Select Case .Value
Case "": [H1].Value = ""
Case "1", "1": .Interior.ColorIndex = 1
.Value = [H1].Value
Case "2", "2": .Interior.ColorIndex = 3
.Value = [H1].Value
Case "3", "3": .Interior.ColorIndex = 5
.Value = [H1].Value
Case Else: End
End Select
End If
End With
End Sub
んでもってこの続きに色の数を調べるコードをつなげてみたり
してみたりしてみたらどうでしょうか?
もし塗りたい色の種類が多い場合はインデックスそのものを入力
するように変更してみてください。
あ!それとエラー処理は未だに良くわからないのでおまかせします。
|
|