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

ebbe

对，跨工作表查询，Vlookup就没有问题。我这个DTime就有问题了。

青城山苦丁茶

增加“从未打开的工作薄取数”功能就可以了

那么的帅

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

已解决

312400-VBA-自定义函数-不打开工作取数.rar (12.09 KB, 下载次数: 16)

2013-11-1 11:28 上传

点击文件名下载附件

ebbe

那么的帅 发表于 2013-11-1 11:28
已解决

太牛逼了，终于搞定了。非常感谢。但是原理不是很明白

我把代码贴出来吧。

Function DTime(查找值 As Range, 查找范围, 查找列数 As Integer, 返回列数 As Integer)
    On Error Resume Next
    add1 = 查找范围.Address
    If InStr(add1, "[") = 0 Then
        arr = 查找范围
        LastRow = UBound(arr)
        For i = 1 To LastRow
            If 查找值 = arr(i, 查找列数) Then
                result = arr(i, 返回列数)
                Exit For
            End If
        Next i
        DTime = result
    Else
        LastRow = UBound(查找范围)
        For i = 1 To LastRow
            If 查找值 = 查找范围(i, 查找列数) Then
                result = 查找范围(i, 返回列数)
                Exit For
            End If
        Next i
        DTime = result
    End If
End Function


为什么 add1 = 查找范围.Address
    If InStr(add1, "[") = 0 Then

一个用数组，另一个却不用数组就解决问题了呢？主要是红色部分不理解

ebbe

我又修改了一下您的代码，试了一下，也能实现功能，如下：
Function DTime(查找值 As Range, 查找范围, 查找列数 As Integer, 返回列数 As Integer)
    On Error Resume Next
        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 发表于 2013-11-1 19:51
太牛逼了，终于搞定了。非常感谢。但是原理不是很明白

我把代码贴出来吧。

打开时，查找范围得到的是 单元格区域
不打开时，查找范围得到的是数组