|
さちきょんさん、こたつねこさん、こんにちは。。。
>1.Case "B"のところで、.Font.Color = RGB(0, 0, 0)
> としてみたら、エラーになってしまいました。
> どうやったらいいのでしょうか?
".Font" の前の ".Interior" をはずしてみてください。
>2.また、E列のABCDEFの選択により、同時に他のセルの色も
> 変えたいのですが、どのようにすればいいでしょうか?
>
> 例)E8がAのとき赤色→G8、I8、K8、M8も赤色
> E9がBのとき緑色→I9、K9、M9も緑色.......
「選択により」ということでしたのでワークシートチェンジを使用してみました。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngLOOP As Range
'エラートラップ
On Error GoTo SIGNAL_RETURN
'変更セルとE列の共有セルをループ
For Each rngLOOP In Intersect(Target, Columns(5))
Select Case Trim(rngLOOP.Value)
Case "A"
rngLOOP.Interior.ColorIndex = 3
'例) 他の列も背景色変更(G8、I8、K8、M8)
Cells(rngLOOP.Row, 7).Interior.ColorIndex = 3
Cells(rngLOOP.Row, 9).Interior.ColorIndex = 3
Cells(rngLOOP.Row, 11).Interior.ColorIndex = 3
Cells(rngLOOP.Row, 13).Interior.ColorIndex = 3
Case "B"
rngLOOP.Font.Color = RGB(0, 0, 0)
Case "C"
rngLOOP.Interior.ColorIndex = 5
Case "D"
rngLOOP.Interior.ColorIndex = 6
Case "E", "F"
rngLOOP.Interior.ColorIndex = 1
Case Else
Rows(rngLOOP.Row).Interior.ColorIndex = xlNone
Rows(rngLOOP.Row).Font.ColorIndex = 0
End Select
Next rngLOOP
'参照開放
Set rngLOOP = Nothing
SIGNAL_RETURN:
'参照開放
Set rngLOOP = Nothing
End Sub
ではでは。。。
|
|