按快捷键alt+F11


在工作表上右击 查看代码：

Private Sub Worksheet_Calculate()

Dim x As Range

For Each x In [c:c]

If x < 0 Then

MsgBox "负值，请留意！"

Exit Sub

End If

Next

End Sub


代码解释：当工作表计算时，针对C列进行判断，遇到负值时，弹出对话框进行提示。  


提示内容可以修改