Excel VBA清除兩行中的內容（如果刪除了第三行）

Question

需要一點幫助，只需一點點代碼。

我已經創建了下面的代碼：

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 

基本上，如果我進入了對E列任意單元格信息，代碼將在同一行中顯示「時間」在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