Worksheet_Change -3列乘法求值为

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Intersect(Target, Me.Columns(3)) '只监听第3列的改变事件
    
    If Not rng Is Nothing Then '确保被监听的范围不为空
        Application.EnableEvents = False '禁止事件触发，以防止进入死循环
        For Each cell In rng
            If IsNumeric(cell.Value) Then '只处理数值类型的单元格
                cell.Value = cell.Value * -3 '将单元格的值与-3相乘并赋值回去
            End If
        Next cell
        Application.EnableEvents = True '重新启用事件
    End If
End Sub