学习Excel技术，关注微信公众号：

excelperfect

前面的几篇文章讲解了Function过程的语法以及Function过程的优势和一些细节，也穿插使用了调用Function过程的不同方式。本文主要总结了调用Function过程的4种方式：

• 从另一个过程中调用Function过程

• 在VBE的“立即窗口”中调用Function过程

• 在工作表公式中调用Function过程

• 在设置条件格式时所使用的公式中调用Function过程

从另一个过程中调用Function过程

在组织程序代码时，通常将重复使用的代码或通用的功能放置在单独的过程中，供其他过程调用。同样，可以从其他过程中调用Function过程，调用方式与调用内置函数相同。

例如，在编写代码时，我们经常要判断工作簿中是否存在特定的工作表，可以编写一个自定义函数来判断：

'检查工作簿中是否存在指定名称的工作表

'参数strName: 要检查的工作表名称

'参数wb: 可选,包含工作表的工作簿名称

Function HasSheet(strName AsString, _

Optional wb As Workbook) As Boolean

Dim wks As Worksheet

If wb Is Nothing Then

Set wb = ActiveWorkbook

End If

On Error Resume Next

HasSheet = CBool(Not wb.Sheets(strName) Is Nothing)

On Error GoTo 0

End Function

在另一过程test中，可以先调用HasSheet函数判断指定的工作表是否存在，然后再进行相应的操作，如下代码所示：

Sub test()

Dim strSheetName As String

strSheetName = "Sheet1"

'判断工作表是否存在

If HasSheet(strSheetName) Then

'操作代码

Else

MsgBox "工作表" & strSheetName &"不存在!"

End If

End Sub

除了直接使用自定义函数名调用该函数外，还可以使用Application对象的Run方法来调用，如下面的代码所示：

Sub test()

Dim strSheetName As String

Dim SheetExists As Boolean

strSheetName = "Sheet9"

'判断工作表是否存在

SheetExists = Application.Run("HasSheet","strSheetName")

If SheetExists Then

'操作代码

Else

MsgBox "工作表" & strSheetName &"不存在!"

End If

End Sub

注意，Run方法的第一个参数是要调用的函数的名称，后面的参数为自定义函数的参数。

在VBE的“立即窗口”中调用Function过程

可以使用“立即窗口”，方便地进行Function过程代码测试，如下图1所示。

图1

在工作表公式中调用Function过程

通常，可以像内置工作表函数一样，在工作表公式中调用Function过程。例如，下面的代码用来获取所传递的参数中的数字：

'获取文本字符串中的数字

Function GetNum(rng As String)

Dim lngLen As Long

Dim i As Long, result

lngLen = Len(rng)

For i = 1 To lngLen

If IsNumeric(Mid(rng, i, 1)) Then

result = result & Mid(rng, i,1)

End If

Next i

GetNum = result

End Function

在工作表中使用GetNum函数获取单元格中所含的数字，如下图2所示。

图2

然而，如果这个自定义函数不在当前工作簿中，并且自定义函数所在的工作簿是打开的，则可以使用：

=工作簿名!GetNum(单元格)

来调用该自定义函数。

如果自定义函数所在的工作簿没有打开，则需要在VBE的“工具——引用”中来引用自定义函数所在的工作簿，这样才能使用该自定义函数。此外，还可以创建加载项。

在设置条件格式时所使用的公式中调用Function过程

可以在设置条件格式时使用自定义函数。例如，下面的自定义函数判断参数单元格中是否包含公式：

Function FormulaExists(rng) AsBoolean

FormulaExists = rng.HasFormula

End Function

这样，如果要突出显示工作表中包含公式的单元格，可以先选择所需要设置条件格式的单元格区域，然后创建条件格式规则，如下图3所示。

图3

正如上图3所示，在设置条件格式的公式中包含了自定义函数FormulaExists。