Question

我想要一个宏，以便当你在一个特定的细胞/细胞范围内输入0时，它会清除细胞。

我写了一个像这样的简单宏

Sub RemoveZeros()
'to remove 0 values that may be a result of a formula or direct entry.

    For Each cell In Range("A1:D20")
        If cell.Value = "0" Then cell.Clear
    Next

End Sub

但是，我必须在输入值后才能运行它以清除它。如果输入0，我希望单元格清除。我该怎么做？

Answer 1

我找到了解决方案

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
      If Target.Value = 0 Then Target.ClearContents
    Application.EnableEvents = True
End Sub

由于

在进入时从单元格中删除0

1 个答案: