|
▼Ned さん:
ありがとうございました。
簡単なコードで出来るのですね
固い頭ではダメですね(-_-;)
Offset Onlyでは・・・
遅くまで本当にありがとうございました。
安心して、これで眠りにつけます。
また、お願いします。
>あまり難しく考えず、またOffsetに拘らず、下記みたいな感じで良いかと。
>
>Private Sub Worksheet_Change(ByVal Target As Range)
> Dim r As Range
> Dim rr As Range
>
> Set rr = Intersect(Target, Range("Q17:R550"))
> If rr Is Nothing Then Exit Sub
> Application.EnableEvents = False
> For Each r In rr
> If IsEmpty(r.Value) Then
> Cells(r.Row, 1).ClearContents
> Cells(r.Row, 4).ClearContents
> End If
> Next r
> Set rr = Nothing
> Application.EnableEvents = True '■必要
>End Sub
|
|