[已解决]自定义了一个函数类似 Vlookup，但出现了问题

ebbe

Function DTime(查找值 As Range, 查找范围 As Range, 查找列数 As Integer, 返回列数 As Integer)
LastRow = 查找范围(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
    If 查找值 = 查找范围(i, 查找列数) Then
        Result = 查找范围(i, 返回列数)
        Exit For
    End If
Next i
DTime = Result
End Function

我这个的function的作用是，在 查找范围 的“查找列数”内，查找 “查找值”，然后返回查找范围内的 返回列数 的值

例如：
              A              B

1	11
2	12
3	13
4	14
5	15
6	16
7	17

上述数字为查找范围，=Dtime（17，"A1:B7",2,1），那么结果返回值为7。

但是在表格关闭状态下，Vlookup能取到值，但我的函数却不能，且返回#value。请帮忙分析代码是怎么回事

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-11-1 11:28

ebbe 发表于 2013-10-31 22:28
对，跨工作表查询，Vlookup就没有问题。我这个DTime就有问题了。

已解决

(, 下载次数: 16)

上传

点击文件名下载附件

跳转到最佳答案楼层

ebbe

但是在表格关闭状态下，Vlookup能取到值，但我的函数却不能，且返回#value。请分析代码是怎么回事

那么的帅

ebbe 发表于 2013-10-30 23:23
但是在表格关闭状态下，Vlookup能取到值，但我的函数却不能，且返回#value。请分析代码是怎么回事

提供数据附件。

sliang28

查找范围应该要赋值给变量,你的自定义函数中根本没有这一步,所有不行.

Dj_soo

首先第一个参数不要定义为range,第二个参数你定义为range的话,就应该在公式里引用range,但你写的是一个字符串常量.修改这两点应该就可以了,代码没细看

ebbe

那么的帅 发表于 2013-10-31 00:46
提供数据附件。

这是两个表格，我都把它放在桌面上了

ebbe

Dj_soo 发表于 2013-10-31 09:05
首先第一个参数不要定义为range,第二个参数你定义为range的话,就应该在公式里引用range,但你写的是一个字符 ...

说明一下，我的第一个参数，在例子中我直接写了数字，但是我公式是在excel表格里选择一个单元格的，所以是Range。比如说，我想找到和C1单元格内容相同的数，则第一个参数就为“C1”。

第二个参数，就不太明白你说的什么意思了


例如：
              A              B

1	11
2	12
3	13
4	14
5	15
6	16
7	17

上述数字为查找范围，=Dtime（“C1”，"A1:B7",2,1），那么结果返回值为7。-----单元格C1中的内容为17.

ebbe

sliang28 发表于 2013-10-31 08:43
查找范围应该要赋值给变量,你的自定义函数中根本没有这一步,所有不行.

我觉得你说的应该是对的，应该增加什么代码？谢谢！

sliang28

ebbe 发表于 2013-10-31 21:42
我觉得你说的应该是对的，应该增加什么代码？谢谢！

没有看你附件，这样你自己试一下，应该没有问题。
Function DTime(查找值 As Range, 查找范围 As Range, 查找列数 As Integer, 返回列数 As Integer)
arr=查找范围
LastRow = ubound(arr)
For i = 1 To LastRow
    If 查找值 = arr(i, 查找列数) Then
        Result = arr(i, 返回列数)
        Exit For
    End If
Next i
DTime = Result
End Function

ebbe

sliang28 发表于 2013-10-31 21:47
没有看你附件，这样你自己试一下，应该没有问题。
Function DTime(查找值 As Range, 查找范围 As Range, ...

我试了一下你的代码，试验结果如下：

当我保存关闭引用表格和被引用表格后，再打开引用表格（被引用表格仍然保持关闭状态），最后还是出现#value！错误。Vlookup仍能查找到所要求的值

附件为试验结果，您可以查看一下