VBA，UDF中没有引号的字符串参数 - 如何访问它们的值？

Question

我在 VBA 中的功能是：

Function myFunc(a)
    myFunc = a    
End Function

当我以这种方式在 Excel 工作表中使用此函数 =myFunc("abc") 时，它正在工作，但是当我使用没有双引号 =myFunc(abc) 的公式时，我收到错误 #NAME?。

尝试将参数从Function myFunc(a) 更改为Function myFunc(chr(34) & a & chr (34) ) 会导致错误Expected: )。

如何访问在 UDF（用户定义函数）中不带引号键入的值？

更新：我需要它来简化最终用户对 UDF 的使用。

Answer 1

我不知道你为什么需要这样的东西。 但有可能！阅读 Application.Caller - 它是运行 UDF 的 rng。

 Private Function myFuncCalc(ByVal xstr As String)
 ' it is your main function to calculate what you want
 ' just sample code to test below
   If xstr = "USD" Then
    myFuncCalc = "yes it's american dollar!"
   Else
    myFuncCalc = "it's no american dollar"
   End If
 End Function

 Function myFunc(a)
 ' function just to be available in worksheet
 ' and extracting currency letter codes from formula between brackets
   bra1 = InStr(Application.Caller.Formula, "(")
   bra2 = InStr(Application.Caller.Formula, ")")
   x = Mid(Application.Caller.Formula, bra1 + 1, bra2 - bra1 - 1)
   myFunc = myFuncCalc(x)
 End Function

瞧！

Answer 2

如果你使用它不带引号，excel 需要一个命名范围。如果您想要从另一个单元格中获取内容，则应将参数定义为myfunction(a as Range)，然后使用a.Value2 或a.Text 获取其值。