小编Sno*_*tty的帖子

VBA初学者在这里。

我有一个项目，我为用户指定了输入单元格。当这些输入单元格之一发生更改时，它需要运行几行代码，这些代码仅针对该单元格。如果用户清除单元格的内容，我希望代码用值“0”替换空白单元格。

下面的代码模拟了我想要实现的目标。它的编写形式与我的项目相同，但更简洁。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Row = 1 Then
    Range("B1").Value = "Changed 1"  'Just something specific to this cell. Not important
    If IsEmpty(Sheet1.Range("A1")) Then Sheet1.Range("A1").Value = 0
End If

If Target.Column = 1 And Target.Row = 2 Then
    Range("B2").Value = "Changed 2" 'Just something specific to this cell. Not important
    If IsEmpty(Sheet1.Range("A2")) Then Sheet1.Range("A2").Value = 0
End If

If Target.Column = 1 And Target.Row = 3 Then
    Range("B3").Value = "Changed 3" …