条件函数
在VBA中，条件函数通常指的是IF函数，其定义如下：
IF函数（logical_test, [value_if_true], [value_if_false]）
其中，logical_test表示要测试的条件（可以是任何逻辑表达式），value_if_true表示如果logical_test为TRUE时要返回的值，value_if_false表示如果logical_test为FALSE时要返回的值。
常见的条件函数有以下几个：
IF函数：用于检验特定条件是否为真，并根据结果返回不同的值。
IIF函数：与IF函数类似，但只需要一个条件并返回两个可能的结果。
SWITCH函数：根据输入的表达式和一系列条件，返回相应的结果。
CHOOSE函数：基于给定的选择索引，从一组可能的值中返回一个值。
AND、OR和NOT函数：这些逻辑函数分别表示“与”、“或”、“非”，并可用于组合多个条件。
CASE函数：在Select Case语句中使用，用于测试一个变量是否符合指定条件，并根据结果执行相应的代码块。
MIN、MAX函数：用于在一组数值中查找最小值或最大值。
COUNTIF和SUMIF函数：根据条件来计算一组数值的总数或总和。
除了以上列出的条件函数，VBA还提供了许多其他有用的函数，如VLOOKUP和HLOOKUP函数，用于在表格中查找某个值；ISNULL和ISERROR函数，用于检查一个值是否为空或是否包含错误；DATE和TIME函数，用于处理日期和时间等。（这个我们将在后面章节重点解释说明）
IF函数
用于在条件满足时执行某个操作，否则执行另一个操作。以下是一个IF函数的代码示例：
Function checkAge(age As Integer) As String
If age >= 18 Then
checkAge = "You are an adult."
Else
checkAge = "You are not yet an adult."
End If
End Function
这个函数将根据输入的年龄返回相应的字符串。
IIF函数
也是用于在条件满足时执行某个操作，否则执行另一个操作。以下是一个IIF函数的代码示例：
Function checkAge(age As Integer) As String
checkAge = IIf(age >= 18, "You are an adult.", "You are not yet an adult.")
End Function
这个函数与上面的IF函数基本一样，但将条件和结果都写在一个函数中。
SWITCH函数
是用于根据多个条件执行不同的操作。以下是SWITCH函数的格式：
Switch (expression, case1, value1, case2, value2, ..., casen, valuen, defaultvalue)
参数expression：表示所要判断的变量或表达式；
参数case1,...,casen：表示可能的取值，可以是常量、变量等；
参数value1,...,valuen：表示与每个case对应的返回值；
参数defaultvalue：表示当没有符合任何case时所返回的默认值。
举例说明：假设我们需要根据某个员工的级别来计算他的工资，代码如下：
Function CalculateSalary(level As String) As Double
Dim salary As Double
salary = Switch(level = "A", 5000, level = "B", 4000, level = "C", 3000, level = "D", 2000, True, 1000)
CalculateSalary = salary
End Function
在这个例子中，Switch函数根据传入的level参数来判断员工的级别，如果是A则返回5000，如果是B则返回4000，以此类推。如果level不属于A、B、C、D，则返回1000。
CHOOSE函数
是用于在多个选项中选择一个选项并返回该选项的值。以下是一个CHOOSE函数的示例：
Function chooseColor(colorNum As Integer) As String
chooseColor = Choose(colorNum, "red", "orange", "yellow", "green", "blue")
End Function
这个函数将根据输入的数字返回相应颜色。
AND、OR和NOT函数
是用于组合多个条件，以执行更复杂的操作。以下是一个AND函数的示例：
Function checkAge(age As Integer, isMale As Boolean) As Boolean
checkAge = (age >= 18 And isMale = True)
End Function
这个函数将根据输入的年龄和性别返回布尔值。
CASE函数
是用于根据多个条件执行不同的操作，类似于SWITCH函数。以下是一个CASE函数的示例：
Function getGrade(score As Integer) As String
Select Case score
Case 90 To 100
getGrade = "A"
Case 80 To 89
getGrade = "B"
Case 70 To 79
getGrade = "C"
Case Else
getGrade = "F"
End Select
End Function
这个函数将根据输入的分数返回相应的等级。
MIN、MAX函数
是用于返回一组数字中最小和最大值的函数。以下是一个MIN函数的示例：
Function minNumber(numbers As Variant) As Integer
minNumber = Application.WorksheetFunction.Min(numbers)
End Function
这个函数将在输入的一组数字中返回最小值。
COUNTIF和SUMIF函数
是用于根据条件统计一组数据的函数。以下是一个COUNTIF函数的示例：
Function countFruits(fruitList As Range, fruitName As String) As Integer
countFruits = Application.WorksheetFunction.CountIf(fruitList, fruitName)
End Function
这个函数将在输入的水果列表中统计出指定水果的数量。
错误处理函数
在VBA中，错误处理函数通常指的是On Error语句，其定义如下：
On Error {GoTo [line/label] | Resume Next}
其中，GoTo [line/label]表示发生错误后跳转到指定行或标签处继续执行，Resume Next表示忽略当前错误并继续执行后续代码。通常情况下，我们可以将On Error语句放置在子程序的开头（Sub）来捕获可能出现的错误，以便及时进行处理。例如：
Sub Test()
On Error GoTo ErrorHandler
' 这里是程序正常执行的语句代码
Exit Sub ' 如果没有异常，则正常退出
ErrorHandler:
MsgBox "程序出现错误：" & Err.Description, vbCritical, "Error " & Err.Number
End Sub在上述代码中，我们通过On Error GoTo ErrorHandler将程序的错误处理逻辑与正常的处理逻辑分离开来，以便更加清晰地进行代码编写和维护。当程序发生异常时，就会跳转到ErrorHandler处，执行特定的错误处理代码，并显示对应的错误提示信息。
除了上面列举的 On Error 语句和 Err 对象外，VBA中还提供了一些其他的错误处理函数，例如：
Err.Raise
使用该函数可以抛出自定义的错误，语法为Err.Raise errorNumber, source, description。
Sub Example()
On Error GoTo ErrorHandler
Dim x As Integer
x = 1 / 0 ' This will raise a division by zero error
Exit Sub
ErrorHandler:
Err.Raise vbObjectError + 1000, "Example", "An error has occurred"
End Sub
Err.Description
在错误处理程序中可以使用该函数输出错误描述信息。
Sub Example()
On Error GoTo ErrorHandler
MsgBox "The result is: " & Divide(5, 0)
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub
Function Divide(num1 As Double, num2 As Double) As Double
If num2 = 0 Then
Err.Raise vbObjectError + 1000, "Divide", "Cannot divide by zero"
Else
Divide = num1 / num2
End If
End Function
Err.Number
该函数可以返回当前错误代码的编号，可以在错误处理程序中用作条件判断。
Sub Example()
On Error GoTo ErrorHandler
MsgBox "The result is: " & Divide(5, 0)
Exit Sub
ErrorHandler:
MsgBox "Error number:" & Err.Number & vbCrLf & "Error description:" & Err.Description
End Sub
Function Divide(num1 As Double, num2 As Double) As Double
If num2 = 0 Then
Err.Raise vbObjectError + 1000, "Divide", "Cannot divide by zero"
Else
Divide = num1 / num2
End If
End Function
Err.Clear
使用该函数可以清除先前的错误信息。
Sub Example()
On Error GoTo ErrorHandler
MsgBox "The result is: " & Divide(5, 0)
Err.Clear ' Clear any previous errors
Exit Sub
ErrorHandler:
MsgBox "Error number:" & Err.Number & vbCrLf & "Error description:" & Err.Description
End Sub
Function Divide(num1 As Double, num2 As Double) As Double
If num2 = 0 Then
Err.Raise vbObjectError + 1000, "Divide", "Cannot divide by zero"
Else
Divide = num1 / num2
End If
End Function
IsNumeric
该函数可以检查指定的变量或表达式是否可以转换为数字类型，如果可以，则返回True，否则返回False。
Sub Example()
Dim testString As String
Dim result As Boolean
testString = "123"
result = IsNumeric(testString)
MsgBox "Is " & testString & " numeric? " & result
End Sub
IsError
使用该函数可以检查指定的变量或表达式是否包含了一个错误值，如果有，则返回True，否则返回False。
Sub Example()
Dim myVar As Variant
On Error Resume Next ' Ignore any errors
myVar = 1 / 0 ' This will raise a division by zero error
On Error GoTo 0 ' Reset error handling
MsgBox "Is myVar an error? " & IsError(myVar)
End Sub
TypeName
该函数可以返回一个变量或表达式的数据类型名称，例如String、Integer、Double等。
Sub Example()
Dim myVar As Variant
myVar = "Hello World!"
MsgBox "The type of myVar is: " & TypeName(myVar)
End Sub
VarType
使用该函数可以返回一个变量或表达式的数据类型代码，例如vbString、vbInteger、vbDouble等。
Sub Example()
Dim myVar As Variant
myVar = "Hello World!"
MsgBox "The VarType of myVar is: " & VarType(myVar)
End Sub
在VBA中使用条件函数和错误处理函数时需要注意以下几点：
- 条件函数的语法：条件函数需要明确的判断条件和相应的执行结果。常见的条件函数包括IF、ELSEIF和CASE语句，在使用这些函数时需要确保条件的设置正确且执行结果符合预期。
- 错误处理函数的语法：错误处理函数可以帮助您识别和处理运行时错误，例如Divide by Zero和Object Not Found。常见的错误处理函数包括On Error Resume Next和On Error Goto语句，您需要了解这些函数的语法细节，以便正确地捕获和处理错误。
- 条件函数和错误处理函数的结合使用：在使用条件函数和错误处理函数时，您需要考虑如何在代码中结合它们使用，以便在程序发生错误时能够正确地处理它们。
- 调试：无论您是使用条件函数还是错误处理函数，都需要进行调试来确保程序按照预期执行。您可以使用调试器来逐步执行代码并查找问题，查看变量值等。
- 确保代码清晰易读：VBA代码往往难以理解，尤其是当其他人需要修改或使用该代码时。因此，在使用条件函数和错误处理函数时，应该编写清晰简洁的代码，添加必要的注释，以便其他人能够理解您的代码。
以下是一个使用VBA中的条件函数和错误处理函数的简单示例：
Sub Example()
Dim x As Integer
On Error GoTo ErrorHandler
'用条件函数判断输入的数值是否为奇数
x = InputBox("请输入一个整数：")
If x Mod 2 = 0 Then
MsgBox "输入的数字为偶数。"
Else
MsgBox "输入的数字为奇数。"
End If
Exit Sub
ErrorHandler:
MsgBox "您输入的不是整数。请重新输入："
Resume Next
End Sub这段代码会提示用户输入一个整数。如果输入的数字是奇数，程序将弹出一个消息框来提示用户。如果输入的数字是偶数，程序也会弹出一个消息框来提示用户。如果用户在输入时输入了非整数值，程序将会显示一个错误消息框，并要求用户重新输入。当用户点击“确定”后，程序将继续从输入框处重新开始。