|
▼Ned さん:
返事ありがとうございます。
目的は達成できました。
下記コードにおいて
ちょっと不安な部分があります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim rr As Range
Set rr = Intersect(Target, Range("R17:R550"))
If rr Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In rr
If r.Value = "" Then
r.Offset(, -14).ClearContents
r.Offset(, -17).ClearContents
Else
★この部分はどのようにするのがベストでしょうか
End If
Next
Set rr = Nothing
End Sub
よろしくお願いします。
>▼ooisi さん:
>こんにちは。
>そのコードでできているようですよ?
>該当SheetのシートモジュールのWorksheet_Changeイベントで書かれているのですよね。
>何か問題があるのでしょうか?
>(A,D列が結合セルでしたらちょっと修正が必要かもしれません)
|
|