|
▼夜勤労働者 さん:
>
>イメージ:
>
> A B C D E F G
>1
>2 あ 赤色
>3 い
>4 あ 赤色
>・
提示されたデータの通りだとすると、
A列に"あ"が入力された時にF列のセルを赤くします。
シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count <> 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If .Row = 1 Then Exit Sub
End With
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
If Target.Value = "あ" Then
Target.Offset(, 5).Interior.ColorIndex = 3
End If
Application.EnableEvents = True
End If
End Sub
|
|