Question

我目前正在设置一个小型清单工具，由于我是vba的新手，所以我陷入了困境。

因此，我有了一个表格，可以在其中注册所有进出货物，到目前为止，我已经包含了一个宏，如果进出列中的单元格发生了更改，该宏会自动将日期放入行中。

我现在想做的是，如果我删除“去往/往来”列中的值，那么日期也将消失。

到目前为止，这是我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim rng As Range

  On Error GoTo Ende
  Application.EnableEvents = False


  For Each rng In Application.Intersect(Columns("D"), Target).Cells
    If rng.Offset(0, -2).Value = "" Then
    rng.Offset(0, -2).Value = Date
    End If
  Next rng

Ende:
  Application.EnableEvents = True

End Sub

有人知道吗？

Answer 1

快速修复-添加另一个for循环，用于检查目标单元格是否为空：

stdout

如果我删除同一行中另一个单元格的值，是否有删除单元格值的函数？

1 个答案: