|
▼blackjet さん:
>単独セルの条件上での背景色の設定は
>
>Select Case Range("A1").Value
> Case Is = "あ"
> Range("A1").Interior.ColorIndex = 34
> Case Is = "い"
> Range("A1").Interior.ColorIndex = 36
> Case Is = "う"
> Range("A1").Interior.ColorIndex = 38
> Case Is = "え"
> Range("A1").Interior.ColorIndex = 45
> Case Else
> Range("A1").Interior.ColorIndex = 35
> End Select
>
>こんな感じでやってみましたが、背景色を行の範囲内で(たとえばA1からA3)
>で変更して この条件をほかの行にも繰り返すことができません
こういうことがしたいの?
シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
Select Case Target.Value
Case "あ"
Target.Resize(, 4).Interior.ColorIndex = 5
Case "い"
Target.Resize(, 4).Interior.ColorIndex = 3
Case Else
End Select
End If
End Sub
|
|