为什么自定义函数出错？？、

cam333

MLOOKUP为什么自定义函数出错？？？ 不知道原因在那里？？那位高手指导一下

wj2368

没有上传自定义函数代码

tiansdk320

我这有一个自定义的，你参考下：

1. Function LOOK(查找值 As String, 区域 As Range, Optional 列 As Integer = 2, Optional 索引号 As Integer = 1) As String
   
2.     Application.Volatile    '将自定义函数标记为易失性函数，无论何时在工作表的任意单元格中进行计算时，易失性函数都必须重新进行计算
   
3.     Dim i As Long, cell As Range, Str As String
   
4.     With 区域(1).Resize(区域.Rows.Count, 1)
   
5.         If .Cells(1) = 查找值 Then Set cell = .Cells(1) Else Set cell = .Find(查找值, LookIn:=xlValues)
   
6.         If Not cell Is Nothing Then
   
7.         Str = cell.Address
   
8.         Do
   
9.             i = i + 1
   
10.             If i = 索引号 Then LOOK = cell.Offset(0, 列 - 1): Exit Function
    
11.             Set cell = 区域.Find(查找值, cell)
    
12.         Loop While Not cell Is Nothing And cell.Address <> Str
    
13.         End If
    
14.     End With
    
15. End Function

复制代码

cam333

谢谢上述两位回答，第1、代码在编辑器中。第2、我试了代码运行，可以。
但是第2位@提供的代码在其他工作薄中，无法使用，不知为什么？？？？

YZC51

请参考
Function WLOOKUP(X As Range, M As Variant, A As Byte, B As Byte)
Dim I As Integer
I = Application.WorksheetFunction.CountIf(M, X)
Set M = Intersect(M.Parent.UsedRange, M)
For Each MR In M
   If MR.Value = X Then
       Y = Y + 1
     If Y > I Then Exit Function
       If Y = A Then
       WLOOKUP = MR.Offset(0, B).Value
       End If
     End If
Next MR
End Function

wj2368

cam333 发表于 2018-6-28 10:38
谢谢上述两位回答，第1、代码在编辑器中。第2、我试了代码运行，可以。
但是第2位@提供的代码在其他工作 ...

。。。。。。。。。。。。。。

cam333

谢谢了@wj2368，但是有个缺点，不能实现反向查询，要实现这个功能，代码怎么添加？？？

wj2368

cam333 发表于 2018-6-29 15:46
谢谢了@wj2368，但是有个缺点，不能实现反向查询，要实现这个功能，代码怎么添加？？？

反向是什么意思？

wj2368

cam333 发表于 2018-6-29 15:46
谢谢了@wj2368，但是有个缺点，不能实现反向查询，要实现这个功能，代码怎么添加？？？

是多条件查询吧，按名字、按项目，这个论坛多的是，
我给修改的是你说这个代码出错？

cam333

wj2368 发表于 2018-7-2 14:09
是多条件查询吧，按名字、按项目，这个论坛多的是，
我给修改的是你说这个代码出错？

我的意思可能表达不清，抱歉。不是代码出错的，如果要实现从右向左查询，代码要如何修改或者补充？？