VBA -如果在A列中输入值，则更新D列中的单元格。如果值随后从A列中删除，则还从D列删除

Question

我正试图用excel制作一个销售点的销售单。我需要：

1. 当将条形码输入单元格A5开始时，我希望单元格D5继续更新，默认数量为“1”，以及
2. 如果条形码被移除，数量也应该被清除。

我可以实现#1，但不是#2。到目前为止，我有下面的代码，有人能帮忙吗？

Sub SetQuantity()

Dim LastRow As Long
Dim i As Long

LastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 5 To LastRow
    If Not IsEmpty(Range("A" & i).Value) Then
        Range("D" & i).Value = 1
     Else: DeleteQuantity
    End If
Next i

End Sub

Sub DeleteQuantity()

Dim LastRow As Long
Dim i As Long

LastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 5 To LastRow
    If Range("A" & i).Value = "" Then
        Range("D" & i).Value = ""
    End If
Next i

End Sub

Answer 1

像这样的东西可以避免所有的循环，而且可能会更好-

Sub worksheet_change(ByVal Target As Range)
Dim lastrow As Integer
lastrow = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A5:A" & lastrow)) Is Nothing Then
    If IsEmpty(Target) Then
        Target.Offset(, 3) = vbNullString
    Else: Target.Offset(, 3) = 1
    End If
End If
End Sub

你只要把它放在你想看的床单模块里就行了。

Answer 2

将此代码放入工作表模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
        If Not IsEmpty(Target.Value) Then
            Cells(Target.Row, 4) = 1
        Else
            Cells(Target.Row, 4).ClearContents
        End If
    End If
End Sub