请各位老师解决多条件查找自定义函数的条件个数问题

china047

各位老师,我做了一个多条件查找自定义函数,但不完美的是,查找条个的个数都是固定的,例如代码中的N1,N2为两个条件,如果有三个或四个条件,则要在代码中增加N3,N4,这样比较麻烦,
看哪件老师帮忙将代码修改为,增加查找条件而又不用修改代码!
自定义多条件查找函数NVLOOKUP.rar (19.66 KB, 下载次数: 52)

2012-12-18 16:37 上传

点击文件名下载附件

Public Function NVLOOKUP(nvlookup_value, table_array, N1, N2, col_index_num)
Dim arr, i As Long
arr = table_array
For i = 1 To UBound(arr)
If arr(i, N1) & arr(i, N2) = nvlookup_value And arr(i, col_index_num) <> "" Then
NVLOOKUP = arr(i, col_index_num)
End If
Next
Select Case NVLOOKUP
Case ""
NVLOOKUP = "#N/A"
Case Else
End Select
End Function

先谢过各位老师了!

yangyangzhifeng

用数组取代N1，N2

yangyangzhifeng

1. Public Function MVLOOKUP(nvlookup_value, table_array, ar(), col_index_num)
   
2.     Dim arr, i As Long, st$, j&
   
3.     arr = table_array
   
4.     For i = 1 To UBound(arr)
   
5.         st = ""
   
6.         For j = LBound(ar) To UBound(ar)
   
7.             st = st & arr(i, ar(j))
   
8.         Next
   
9.         If st = nvlookup_value And arr(i, col_index_num) <> "" Then
   
10.             MVLOOKUP = arr(i, col_index_num)
    
11.         End If
    
12.     Next
    
13.     Select Case MVLOOKUP
    
14.         Case ""
    
15.             MVLOOKUP = "#N/A"
    
16.         Case Else
    
17.     End Select
    
18. End Function
    

复制代码

这样用D2=MVLOOKUP(A2&B2,Sheet1!$A$2:$I$258,{1,8},9)

china047

yangyangzhifeng 发表于 2012-12-18 18:19
这样用D2=MVLOOKUP(A2&B2,Sheet1!$A$2:$I$258,{1,8},9)

{:soso_e113:}{:soso_e181:}多谢yangyangzhifeng,很好用.

nihao0o

{:soso_e100:}不错。。。。

梦幻圣手

yangyangzhifeng 发表于 2012-12-18 18:19
这样用D2=MVLOOKUP(A2&B2,Sheet1!$A$2:$I$258,{1,8},9)

多谢，找了好久，这一下及方便多了

titi012

参与 一下。。。。。
D2 输入 =xlOOKUP(9,A2&B2&C2,Sheet1!$A$2:$I$258,1,8,9) ，返回0.75

1. Public Function XLookup(Col_index_num, XLookup_Value, Table_Array, ParamArray List() As Variant)
   
2.     Dim Arr, i As Long, N, T
   
3.     Arr = Table_Array
   
4.     For i = 1 To UBound(Arr)
   
5.         T = ""
   
6.         For Each N In List
   
7.             T = T & Arr(i, N)
   
8.         Next
   
9.         If T Like XLookup_Value And Arr(i, Col_index_num) <> "" Then
   
10.             XLookup = Arr(i, Col_index_num)
    
11.         End If
    
12.     Next
    
13.     If XLookup = "" Then XLookup = "#N/A"
    
14. End Function

复制代码