如何用vba查找错误值，并选中它

lumo3217

每天都要做这个检查工作，能否通过VBA来检查单元格区域内是否有错误值，有错误值，则选中它。这样我就知道，这个表中存在公式错误，并找出来。请帮忙看一下，万分感谢！

jiangxiaoyun

lumo3217

jiangxiaoyun 发表于 2017-7-21 10:50

谢谢，用VBA能实现吗？因为我每次这样选好麻烦，每天重复的动作，累！O(∩_∩)O哈哈~

lumo3217

lumo3217 发表于 2017-7-21 11:03
谢谢，用VBA能实现吗？因为我每次这样选好麻烦，每天重复的动作，累！O(∩_∩)O哈哈~

录制宏好像不行，录不了

jiangxiaoyun

1. Sub Cat()
   
2.     Dim rng As Range
   
3.     Set rng = [a1].CurrentRegion.SpecialCells(xlCellTypeFormulas, xlErrors)
   
4.     rng.Select
   
5. End Sub

复制代码

jiangxiaoyun

附件.zip (39.93 KB, 下载次数: 8)

2017-7-21 11:24 上传

点击文件名下载附件

lumo3217

jiangxiaoyun 发表于 2017-7-21 11:24

超级赞
大神，万分感谢！

lumo3217

jiangxiaoyun 发表于 2017-7-21 11:23

如果没有查找出错误值，代码会出错。能不能设一个，没有错误值的提示

jiangxiaoyun

lumo3217 发表于 2017-7-21 14:32
如果没有查找出错误值，代码会出错。能不能设一个，没有错误值的提示

Sub Cat()
    Dim rng As Range
    On Error GoTo 100:
    Set rng = [a1].CurrentRegion.SpecialCells(xlCellTypeFormulas, xlErrors)
    rng.Select
    Exit Sub
100:
    MsgBox "No Error"
End Sub

lumo3217

jiangxiaoyun 发表于 2017-7-21 14:43
Sub Cat()
    Dim rng As Range
    On Error GoTo 100:

  解决！Thank You！