查看: 1015|回复: 8
请教选中区域判断是否存在错误值或空白单元格的问题
阅读权限20
在线时间 小时
未标题-1 拷贝.jpg (148.05 KB, 下载次数: 0)
18:39 上传
(9.8 KB, 下载次数: 7)
18:40 上传
点击文件名下载附件
选择任意区域后点[审核]即可判断该区域是不是有存在错误值或空格，如果有则：提示有几处，（不要求知道是那几个单元格），如无则提示：无
因为数据区域比较大，人工审核太慢，随件为少是数据供测试，谢谢！
阅读权限50
在线时间 小时
Sub test()
& & For Each Rng In Selection
& && &&&If Rng = && Or Rng.Errors(1).Value = True Then
& && && && &n = n + 1
& && &&&End If
& & Next
& & If n & 0 Then MsgBox &该区域有错误&
End Sub
复制代码
阅读权限95
在线时间 小时
本帖最后由 zax010 于
19:30 编辑
& & Dim c As Range, m%
& & For Each c In Selection
& && &&&If InStr(c.Text, &#&) Or IsEmpty(c) Then m = m + 1
& & MsgBox m
阅读权限95
在线时间 小时
&&&&&&&&&&&&&&&&&&&&
(14.8 KB, 下载次数: 4)
19:30 上传
点击文件名下载附件
阅读权限90
在线时间 小时
& & & & & & & &
Sub 检查错误和空值数量() 'bajifeng
For Each c In Selection
& & If Application.IsError(c.Value) = True Then
& && &&&n = n + 1
& & ElseIf c = && Then
& && &&&n = n + 1
& & End If
Next
If n & 0 Then MsgBox &选中区域有 & & n & & 处错误！&
End Sub复制代码
阅读权限90
在线时间 小时
&&&&&&&&&&&&&&
19:40 上传
点击文件名下载附件
15.88 KB, 下载次数: 11
阅读权限90
在线时间 小时
&&&&&&&&&&&&&
动态演示：
(142.22 KB, 下载次数: 0)
19:44 上传
阅读权限20
在线时间 小时
谢谢老师们的帮助！
阅读权限20
在线时间 小时
&&&&&&&&&&&&&
动态演示：
如何判断表格内公式是否有错误（比如公式出现#N/A、#DIV/0！等），如果表格内有，则打开桌面的A文件，如果没有就打印当前工作表。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}