怎样在excel里实现msgbox数据值报警？

来源：百度知道 编辑：UC知道 时间：2024/06/04 07:34:18
我有一个sheet，某些单元格内带有简单的公式，但单元格内的数据如果为负值证明有错误，就弹出一个对话框，类似于msgBox,告诉我某个单元格内出现负值，需要关注。
另外，条件格式我会用，不太显眼。sheet较大，不易查找。

'用VBA代码实现！

'按alt+f11进入VBE编辑窗口，然后在工程窗口双击你的那个sheet会打开一个模
'块窗口，把下面的代码复制进去--保存，再次按alt+f11返回excel窗口
'这时，当你的那个sheet激活的时候就会自动统计查找已使用区域内的负值
'的单元格地址，并且已msgbox的形式返回给你！（代码亲测，希望对你有用）

'-------------以下代码部分，可全部复制我的答案到模块窗口---------------

Private Sub Worksheet_Activate()
Dim a, b As Range, tem As String
Set a = ActiveSheet.UsedRange
tem = ""
For Each b In a
If b.Value < 0 Then
tem = tem & b.AddressLocal & Chr(10)
End If
Next b
If tem <> "" Then MsgBox "含负值的单元格地址是：" & Chr(10) & tem, , "Code-By-F0reSt*"
End Sub