魅族mx3换屏幕多少钱:怎样在excel里实现msgbox数据值报警?

来源:百度文库 编辑:九乡新闻网 时间:2024/04/28 16:15:09
怎样在excel里实现msgbox数据值报警?浏览次数:825次悬赏分:20 | 解决时间:2009-10-7 07:05 | 提问者:resteasy
我有一个sheet,某些单元格内带有简单的公式,但单元格内的数据如果为负值证明有错误,就弹出一个对话框,类似于msgBox,告诉我某个单元格内出现负值,需要关注。另外,条件格式我会用,不太显眼。sheet较大,不易查找。
最佳答案
'用VBA代码实现!'按alt+f11进入VBE编辑窗口,然后在工程窗口双击你的那个sheet会打开一个模'块窗口,把下面的代码复制进去--保存,再次按alt+f11返回excel窗口'这时,当你的那个sheet激活的时候就会自动统计查找已使用区域内的负值'的单元格地址,并且已msgbox的形式返回给你!(代码亲测,希望对你有用)'-------------以下代码部分,可全部复制我的答案到模块窗口---------------Private Sub Worksheet_Activate()Dim a, b As Range, tem As StringSet a = ActiveSheet.UsedRangetem = ""For Each b In aIf b.Value < 0 Thentem = tem & b.AddressLocal & Chr(10)End IfNext bIf tem <> "" Then MsgBox "含负值的单元格地址是:" & Chr(10) & tem, , "Code-By-F0reSt*"End Sub
分享给你的朋友吧:对我有帮助1