ActiveWorkbook.Names.add 似乎与“功能”不兼容

Question

我有一个问题：

Function Create_Model(adress As range, name As String) As String

    Dim Msg As String
    On Error GoTo ErrorHandler
    ActiveWorkbook.Names.add "toto", "=Interface!$I$19"
    Create_Model=name
    Exit Function
ErrorHandler:
    If Err.Number <> 0 Then
        Msg = "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) & Err.Description
        MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
    End If
Resume Next

End Function

确实，如果我运行它，我会得到：

"Error #  1004 was generated by VBAProject
 Error Line: 0
 Application-defined or object-defined error"

问题似乎来自“功能”的使用，因为如果我尝试使用“子”执行它，它就可以工作。

谁能解释一下为什么我不能用“函数”来做这个，否则我该如何复制这个函数？

P.S：如果我使用 Debug->Compile VBAProject 进行编译。我没有收到任何消息。

P.S.2 : 此函数旨在用于 excel 公式。

P.S.3：使用的参数是：地址 = J18:L20 和名称 =“测试”。最后，我想用名称替换“toto”，用地址替换“=Interface!$I$19”。

感谢您的帮助。

Answer 1

在下面的 cmets 之后，我开始思考，并意识到我最初的答案（见下文）可能更多地基于（我自己的！）最佳实践，而不是技术上的正确。

Function 和Subroutine 之间的主要区别在于Function 可以返回值，而Subroutine 不能。

我听说过使用Function 而不是Subroutine 的其他问题，但现在找不到列表。不过，您显然已经找到了一个！这些（可能）关于问题的谣言，就是为什么我倾向于将操作限制在Subroutines，并将值返回到Functions。

经过一番挖掘，我发现以下资源可能有助于进一步解释两者之间的区别。

来自 Chip Pearson 的网站：一个名为 Macros and Functions 的页面

来自 ExcelFunctions.net：一个名为 Excel VBA Tutorial Part 4 - VBA Functions & Subroutines 的页面

看来我今天学到了一些东西。

==原始答案==

简答和超高水平

Functions 通常不是执行操作的最佳位置（在工作表、单元格、文件、创建对象等上）。它们非常擅长返回值，而这正是它们的设计目的。

Subs 或为采取行动而建立的程序。

我从未见过这个特殊问题，但遇到了许多试图在 Function 中执行这些问题的事情。