|
A列にはランダムに数値を入力するのでしょーか ?
もしそうであるなら、セル入力イベントが良いでしょう。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A56")) Is Nothing Then Exit Sub
With Target
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
If .Value < 1 Or .Value > 56 Then Exit Sub
.Offset(, 1).Interior.ColorIndex = .Value
End With
End Sub
あるいは、1〜56まで順に塗りつぶすのであれば、普通のマクロにして
Sub MyCol()
Dim i As Integer
For i = 1 To 56
Cells(i, 2).Interior.ColorIndex = i
Next
End Sub
ぐらいで出来ます。
|
|