|
解決している質問に対し、重ねて質問してすみません。
下のセルA1に入力したらセルB1:F1に色が付くマクロですが、続けてセルA2、セルA3、
A4・・・に同じ条件を設定するにはどういったマクロを追加すればいいか教えて頂けますか。
>▼Statis さん:
>はじめまして。親切に教えて下さりおかげで助かりました。
>本当にありがとうございました。
>
>>▼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
|
|