|
▼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
|
|