具有正确功能的VBA功能

Question

只是想知道为什么以下代码返回#NAME？而不是实际值：

• 问题是由于功能名称
造成的

更正了VBA功能：

Function LocateSite_Function(Title As String) As String

Dim StartNumber As Long

StartNumber = Len(Title) - InStr(1, Title, "_")

LocateSite_Function = Right(Title, StartNumber)

End Function

额外：

Function FindSite_Function2(Title As String) As String

Dim SplitTitle As Variant

SplitTitle = Split(Title, "_")

FindSite_Function2 = UBound(SplitTitle)

End Function

Answer 1

这可能是您项目中缺少参考的奇怪表现。查看项目参考列表（工具 - ＆gt;参考文献）。

您可以使用VBA.Right或较早的Right$来解决此问题。

Answer 2

狂野猜测，但很可能在您的范围内有其他名为FindSite的内容

因此，请将名称更改为FindSite_Function，然后重试！ ;）