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

是的,可以。您只需在模块中定义一个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)

输入的单词需要替换,因为它是一个基本关键字。试试num。您还可以通过指定一个类型(例如variant)来进一步。

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