VBA計算單元格值之前如果/然後聲明

Question

我運行代碼VBA測試是否細胞右邊是小於0，如果是，則使活動單元格0。這應該運行在小區被輸入。這是我到目前爲止有：

Private Sub worksheet_change(ByVal target As Range) 
If Not Intersect(target, Range("c7:c27")) Is Nothing Then isNegative 
End Sub 

然後

Sub isNegative() 
Dim cell As Range 
If ActiveCell.Offset(1, 0).Value < 0 Then 
ActiveCell.Value = 0 
End If 
End Sub 

但是，我認爲正在發生的事情是，它在計算前檢查數據。我該如何解決？

Answer 1

在進入小區時，這應該運行。

喜歡這個？

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Dim aCell As Range 

    If Not Intersect(Target, Range("C7:C27")) Is Nothing Then 
     For Each aCell In Range("C7:C27") 
      If aCell.Offset(1, 0).Value < 0 Then aCell.Value = 0 
     Next 
    End If 
End Sub