[已解决]自定义多表查找的问题

隐身

1. Public Function nvl(cz, co)
   
2. '多表精确查找，类似于VLOOKUP功能
   
3. 'NVL(查找对象，超找到的内容偏移列数），查找不到返回的是0
   
4. Dim rng As Range, sht As Worksheet
   
5. On Error Resume Next
   
6. For Each sht In Worksheets
   
7.     If sht.Name <> ActiveSheet.Name Then
   
8.         Set rng = sht.Cells.Find(what:=cz, lookat:=xlWhole).Offset(0, co)
   
9.             If Not rng Is Nothing Then
   
10.                 nvl = rng.Value
    
11.                 Exit For
    
12.             End If
    
13.     End If
    
14. Next
    
15. End Function

复制代码

这段自定义函数代码，在查找不到数据的时候，返回的是0.如何实现，像普通函数一样，超找不到的时候返回错误类型？

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-4-21 11:22

1. Public Function nvl(cz, co)
   
2. '多表精确查找，类似于VLOOKUP功能
   
3. 'NVL(查找对象，超找到的内容偏移列数），查找不到返回的是0
   
4. Dim rng As Range, sht As Worksheet
   
5. On Error Resume Next
   
6. For Each sht In Worksheets
   
7.     If sht.Name <> ActiveSheet.Name Then
   
8.         Set rng = sht.Cells.Find(what:=cz, lookat:=xlWhole).Offset(0, co)
   
9.             If Not rng Is Nothing Then
   
10.                 nvl = rng.Value
    
11.                 Exit For
    
12.             End If
    
13.     End If
    
14. Next
    
15.     If rng Is Nothing Then nvl = "查找不到"
    
16. End Function

复制代码

可以显示查找不到！

跳转到最佳答案楼层

zjcat35

1. Public Function nvl(cz, co)
   
2. '多表精确查找，类似于VLOOKUP功能
   
3. 'NVL(查找对象，超找到的内容偏移列数），查找不到返回的是0
   
4. Dim rng As Range, sht As Worksheet
   
5. On Error Resume Next
   
6. For Each sht In Worksheets
   
7.     If sht.Name <> ActiveSheet.Name Then
   
8.         Set rng = sht.Cells.Find(what:=cz, lookat:=xlWhole).Offset(0, co)
   
9.             If Not rng Is Nothing Then
   
10.                 nvl = rng.Value
    
11.                 Exit For
    
12.             End If
    
13.     End If
    
14. Next
    
15.     If rng Is Nothing Then nvl = "查找不到"
    
16. End Function

复制代码

可以显示查找不到！