如何在 Excel VBA 中创建用户定义函数？

函数是代码的集合。作为开发人员，我们在项目中经常需要一个自定义函数（用户定义函数）。在这里，我们解释了如何使用 Excel VBA 创建一个 UDF（用户定义函数）来计算/返回给定字符串中元音的数量。

自定义函数语法示例：

Function Name: countVowel()
Input parameter: an excel cell
Output: Return an integer (Number of vowels)

执行：

按照以下步骤在 Excel VBA 中创建用户定义函数：

第一步：打开一个excel文件，创建自定义函数“countVowel()”函数。

第 2 步：按 Alt + F11 - 打开 Visual Basic 编辑器。

第 3 步：单击插入 >> 模块 - 这将添加一个新模块，如 Img1 中。

图 1

第4步：在“代码窗口”中输入以下代码。

• 带参数范围的函数名称

Function countVowel(rg As Range)

• 迭代给定字符串的每个字符并检查该字符是否为元音。如果是元音字符增加 vowelCount = vowelCount +1

For i = 1 To Len(rg.Value)
    textValue = UCase(Mid(rg.Value, i, 1))
    If textValue Like "[AEIOU]" Then
        vowelCount = vowelCount + 1
    End If
Next i

• 返回元音的数量。

countVowel = vowelCount
End Function 

第 5 步：将 Excel 工作簿另存为 Excel 启用宏的工作簿 (*.xlsm)

第 6 步：在单元格“A1”中键入“ Customer ”，在单元格“B1”中键入“ Vowels_Count ”作为标题。

• 在单元格 A2:A6 中填写姓名

第7步：在单元格“B2”（Img 2）中写下公式并拖动它以填充“B2：B6”（Img 3）

=countVowel(A2)

图 2

图 3