|
こんばんは。
またお世話になります。
E列の1行目から77行目まで(増える可能性があります)で
ABCDEFの選択により、背景色を変えたいと思います。
本をみながら一応書いてみたのですが、RGBカラーで指定
したいと思います。
1.Case "B"のところで、.Font.Color = RGB(0, 0, 0)
としてみたら、エラーになってしまいました。
どうやったらいいのでしょうか?
2.また、E列のABCDEFの選択により、同時に他のセルの色も
変えたいのですが、どのようにすればいいでしょうか?
例)E8がAのとき赤色→G8、I8、K8、M8も赤色
E9がBのとき緑色→I9、K9、M9も緑色.......
どうぞよろしくお願いいたします。
Sub 背景色()
Dim v As Integer
For v = 1 To 77
Cells(v, 5).Select
Select Case Cells(v, 5)
Case "A"
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "B"
With Selection.Interior
.Font.Color = RGB(0, 0, 0)
.Pattern = xlSolid
End With
Case "C"
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
Case "D"
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Case "E"
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
Case "F"
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
End Select
Next v
End Sub
|
|