关于VBA自定义函数需要从某个工作表中获取数据

lyliuyouyang

chentonny 发表于 2019-3-11 21:08
你的附件看过了，没看到你调用函数的过程，也没看到你传入什么参数。估计是你传入的参数不是一个RANGE的 ...

调用函数的话，在VBA代码里确实没有，因为我想的是直接在工作表里通过函数名称调用。传参数就是传了一个range，其他的数据在字典里。我很疑惑的是我还写了一个JGJG的代码，是类似的方法，但是可以找到正确结果，所以就怎么都想不通

lss001

Function JG(r As Range)
Dim dic As Object, wb As Workbook,arr,k$, i&,dic As Object
Set dic = CreateObject("scripting.dictionary")
Set wb = GetObject(ThisWorkbook.Path & "\籍贯对照表.xlsx")
    arr = wb.Sheets("籍贯").Range("a1:b6000")
    wb.Close SaveChanges:=False
    For i = 1 To UBound(arr)
        k = arr(i, 1)
        If Not dic.exists(k) Then dic(k) = arr(i, 2)
    Next
    k = Left(r.Value, 6)
    If dic.exists(k) Then JG = dic(k) Else JG = ""
End Function

lyliuyouyang

lss001 发表于 2019-3-12 02:38
Function JG(r As Range)
Dim dic As Object, wb As Workbook,arr,k$, i&,dic As Objedt, path$
Set di ...

真的可以了，感谢，麻烦能解释一下我的代码问题在哪里吗，我觉得自己的逻辑上好像也没有问题

lyliuyouyang

lss001 发表于 2019-3-12 02:38
Function JG(r As Range)
Dim dic As Object, wb As Workbook,arr,k$, i&,dic As Objedt, path$
Set di ...

getobject和这个workbooks.open的区别在哪里，为什么open这个不成功，但是getobject可以，麻烦解释一下

lss001

lyliuyouyang 发表于 2019-3-12 08:22
真的可以了，感谢，麻烦能解释一下我的代码问题在哪里吗，我觉得自己的逻辑上好像也没有问题

自定义函数以及内置函数→无法执行动作open，只能执行获取Get

lyliuyouyang

lss001 发表于 2019-3-12 08:51
自定义函数以及内置函数→无法执行动作open，只能执行获取Get

还有个问题就是写了这个函数以后，每次关闭工作表的时候老是要提醒是否对籍贯那个数据表数据的是否保存，按道理说代码里写了close就不会有这个提醒了才对，麻烦你解答一下

lss001

wb.Close 删除掉
或换wb.Close SaveChanges:=False
关闭既不保存也不提醒

lyliuyouyang

lss001 发表于 2019-3-12 09:33
wb.Close 删除掉
或换wb.Close SaveChanges:=False
关闭既不保存也不提醒

删除掉确实不提醒了，但是又提示文档部分内容可能包含文档检查器无法删除的个人信息，这个又怎么解决？不好意思，这个自定义函数的状况确实太多了，我问的都不好意思了

lss001

lyliuyouyang 发表于 2019-3-12 09:43
删除掉确实不提醒了，但是又提示文档部分内容可能包含文档检查器无法删除的个人信息，这个又怎么解决？不 ...

改为→wb.Close SaveChanges:=False

lyliuyouyang

lss001 发表于 2019-3-12 09:47
改为→wb.Close SaveChanges:=False

好的，感谢