|
▼Jaka さん:
>1が先に入っていた場合の事は考えてません。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Value = "1" Then
> If Target.Column - 1 > 0 Then
> If Target.Offset(, -1).Value = "2" Then
> Application.EnableEvents = False
> Target.Value = ""
> Application.EnableEvents = True
> End If
> End If
> If Target.Column - 2 > 0 Then
> If Target.Offset(, -2).Value = "2" Then
> Application.EnableEvents = False
> Target.Value = ""
> Application.EnableEvents = True
> End If
> End If
> End If
>End Sub
お忙しい中ありがとうございます。
さっそく使わせていただきます。
|
|