Excel VBAクリア3つ目が削除された場合は2行から内容を削除します

Question

少しのコードで助けが必要です。私は、列E上の任意のセルに情報を入力した場合

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 

    ThisRow = Target.Row 
    If Target.Column = 5 Then 
     Range("C" & ThisRow).Value = Format(DateTime.Now, "hh:mm") 
     Range("D" & ThisRow).Value = Format(DateTime.Now, "mm/dd/yyyy") 
     Range("C:D").EntireColumn.AutoFit 
    End If 

End Sub 

基本的には、コードは上の列Cと「日付」に同じ行の「時間」が表示されます：

私は、次のコードを作成しました列Dの同じ行。

これは問題なく動作しています。しかし、列Eの項目が削除され、セルが空の場合、このコードで列CとDの情報を削除したいと思います。

ご協力いただきありがとうございます。

Answer 1

は、以下のコード試してみてください。

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 

    Dim ThisRow As Long 

    ThisRow = Target.Row 

    If Target.Column = 5 Then 
     ' if current Cell in Column E is empty, clear contents 
     If Range("E" & ThisRow).Value = "" Then 
      Range("C" & ThisRow).ClearContents 
      Range("D" & ThisRow).ClearContents 
     Else 
      Range("C" & ThisRow).Value = Format(DateTime.Now, "hh:mm") 
      Range("D" & ThisRow).Value = Format(DateTime.Now, "mm/dd/yyyy") 
     End If 

     Range("C:D").EntireColumn.AutoFit 
    End If 

End Sub