[已解决]修改代码

759857387

附件是查找错误值，并间隔2秒显示
修改：查找表1-表3，将找到的错误值地址用“，”间隔开一并显示。
错误值提醒.rar (10.29 KB, 下载次数: 1)

2014-11-29 23:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-11-30 00:09

1. Sub 错误值提示()
   
2.     Dim s
   
3.     For i = 1 To Sheets.Count
   
4.         For Each r In Sheets(i).UsedRange    '数组
   
5.         If IsError(r.Value) = True Then
   
6.             s = s & Sheets(i).Name & "!" & r.Address & "，"
   
7.         End If
   
8.         Next
   
9.     Next
   
10.     If Len(s) > 0 Then MsgBox Left(s, Len(s) - 1)
    
11. End Sub

复制代码

335368-VBA-错误值提醒.rar (14.4 KB, 下载次数: 4)

2014-11-30 00:09 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

1. Sub 错误值提示()
   
2.     Dim s
   
3.     For i = 1 To Sheets.Count
   
4.         For Each r In Sheets(i).UsedRange    '数组
   
5.         If IsError(r.Value) = True Then
   
6.             s = s & Sheets(i).Name & "!" & r.Address & "，"
   
7.         End If
   
8.         Next
   
9.     Next
   
10.     If Len(s) > 0 Then MsgBox Left(s, Len(s) - 1)
    
11. End Sub

复制代码

335368-VBA-错误值提醒.rar (14.4 KB, 下载次数: 4)

2014-11-30 00:09 上传

点击文件名下载附件