在Excel VBA中创建自定义工作表函数

Question

我有一个微弱的记忆，能够使用VBA函数来计算Excel中的值，像这样（作为单元格公式）：

=MyCustomFunction(A3)

可以这样做吗？

编辑：

这是我的VBA功能签名：

Public Function MyCustomFunction(str As String) As String

该函数位于ThisWorkbook模块中。 如果我尝试在工作表中使用它，如上所示，我得到#NAME? 错误。

---

解决方案（谢谢，代码）：定义ThisWorkbook模块时无法访问该功能。 它必须位于“正确”模块中，该模块已手动添加到工作簿中。

Answer 1

是的，它可以。 您只需在模块中定义VBA函数。 有关示例的详细介绍，请参阅http://www.vertex42.com/ExcelArticles/user-defined-functions.html 。

这是一个简单的例子：

• 创建一个新的工作簿
• 切换到VBA视图（Alt-F11）
• 插入模块：插入| 模
• 单元内容：

Option Explicit

Function MyCustomFunction(input)
    MyCustomFunction = 42 + input
End Function

• 切换回工作表（Alt-F11），并输入一些值：

A1: 2
A2: =MyCustomFunction(A1)

Answer 2

输入一词需要替换，因为它是一个基本关键字。 请尝试使用num。 您还可以通过指定类型（例如变体）来进一步发展。

Function MyCustomFunction(num As Variant)
    MyCustomFunction = 42 + num
End Function