|
▼SWX さん:
こんにちは
>はじめまして。
>
>Sheet1のセルA1にAと入力するとセルB1:F1の色が赤色に、Bと入力すると青色、Cと入力すると黄色、Dと入力すると緑色・・・のような複数の条件を設定するにはどのようなマクロを組めば良いのでしょうか?
>
>エクセルのバージョンは2000、OSはWinMEです。
>
>ご存知の方ご教授願います。
該当のシートイベントに記載して下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Co As Integer
With Target
If .Address(0, 0) <> "A1" Then Exit Sub
Select Case .Value
Case "A": Co = 3
Case "B": Co = 5
Case "C": Co = 6
Case "D": Co = 10
Case Else: Co = 0
End Select
.Offset(, 1).Resize(, 5).Interior.ColorIndex = Co
End With
End Sub
|
|