マクロで色が同じになるように設定したい
こんにちは。
現在マクロに挑戦中なのですが、一点分からず戸惑っています。
お分かりになる方教えてください。
下記のマクロを書きました。
Sheet2のセルに数字を入れることによってSheet1のセルの色が変わるようにしています。
25以上の数字は全て青（カラー番号5）表示にしたいのですが、どのように記したら良のか教えてください。
---------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iColors As Variant
Dim i As Integer
Dim j As Integer
iColors = Array(36, 20, 24, 37, 40, 39, 17, 22, 45, 43, 28, 6, 4, 41, 18, 47, 50, 46, 10, 7, 3, 21, 9, 5)
For Each c In Target
If c.Value <> "" Then
If IsNumeric(c.Value) Then
i = c.Value
If i > 0 And i < 25 Then
j = iColors(i - 1)
Else
j = 2
End If
End If
End If
i = c.Row
If i > 2 And j > 0 Then
Worksheets("Sheet1").Range("B3:K6").Cells(i - 3).Interior.ColorIndex = j
End If
Next c
End Sub
---------------------------------------------------------------
お分かりになる方、宜しくお願い致します。
お礼
回答ありがとうございます。 Longにすればよいのですね、無事動きました。 ありがとうございました。