如何根据公式的结果弹出对话框？

作者：绿色风分类：时间：2022-08-17 浏览：128

楼主
水星钓鱼

Q：以采编的帖子为例。某些单元格的改变将会导致对应的公式的结果出现不同的值。如何当公式结果为"数据错误"时弹出提示对话框？
A：由于这涉及到工作表Calculate事件和Change事件。所以可以通过定位到改变了值的单元格的从属单元格（即引用了该单元格的公式所在的单元格)的方法来避免复杂的逻辑判断代码。
代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
'当改变某一单元格的值时，触发该事件
'撤销工作表保护(无密码的情况)
ActiveSheet.Unprotect
'判断某一单元格的值是否为真空，如果不是则执行余下语句
If Not (IsEmpty(Target)) Then
'如果引用了这个单元格的公式的结果为"数据错误",则弹出提示对话框
If Target.DirectDependents(1) = "数据错误" Then
MsgBox "数据错了！"
End If
End If
End Sub

2楼
angel928

过来学习。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表