17、深入探索Excel VBA自定义函数的创建与应用

深入探索Excel VBA自定义函数的创建与应用

1. 数组公式与数组下限

在Excel中输入数组公式时，需按下Ctrl + Shift + Enter组合键，且不要手动输入花括号。使用Array函数创建数组时，其下限由模块顶部的Option Base语句指定。若没有该语句，默认下限为0。此外，MONTHNAMES函数可在相关网站获取，文件名为month names.xslm。

2. 返回错误值的函数

以REMOVEVOWELS函数为例，它原本用于从文本参数中移除所有元音字母。若参数为数值，原函数会将其作为字符串返回。但有时我们希望函数返回错误值（如#N/A），而非转换后的字符串。

原REMOVEVOWELS函数代码如下：

Function REMOVEVOWELS(Txt) As String
    ' Removes all vowels from the Txt argument 
    Dim i As Long 
    RemoveVowels = ""
    For i = 1 To Len(Txt) 
        If Not UCase(Mid(Txt, i, 1)) Like "[AEIOU]" Then
            REMOVEVOWELS = REMOVEVOWELS & Mid(Txt, i, 1)
        End If 
    Next i
End Function

若直接将类似错误值的字符串赋值给函数（如REMOVEVOWELS = “#N/A”），其他引用该函数的公式不会将