エクセル勉強中の者です。
SelectCaseを使って特定セルの色を変えたいのですが上手く動作しません。
目的の動作
1:A1セルに数字を入力
2:A1に入力された数字を基にセルB1:B6に色を付ける
これを目標に作成したプログラム
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mycolor As Range
Dim boxcolor As Range
Set mycolor = Intersect(Target, Range("A1"))
Set boxcolor = Intersect(Target, Range("B1:B6"))
If Not mycolor Is Nothing Then
For Each mycolor In Target
Select Case Target.Value
Case Is = 1
boxcolor.ColorIndex = 3
Case Is = 2
boxcolor.ColorIndex = 5
Case Is = 3
boxcolor.ColorIndex = 4
Case Is = 4
boxcolor.ColorIndex = 6
Case Else
boxcolor.ColorIndex = xlAutomatic
End Select
Next mycolor
End If
End Sub
実行するとSelect Caseの最初で止まってしまいます。
何だか変数を上手く指定出来ていないような・・・?
色々と調べて手を加えてみましたが成功に至りませんでした。
お手数掛けますが御指導お願い致します。
ちなみにExcelはバージョン2002を使用しております。