中之选择结构控制.docVIP

ExcelVBA中之选择结构控制 在实际中有许多需要根据某些条件判断是否执行的操作，这时就需要用到选择结构语句。VBA的选择语句有If-Then语句和Select Case语句两类。 If-Then语句 If-Then语句的作用是：根据给定的逻辑表达式的值有条件地执行某些语句组合。在使用时，If-Then语句有以下两种形式。 ·单行结构的If-Then语句 格式1： If 逻辑表达式 Then 语句 功能：当逻辑表达式的值为True时Then后面的语句，否则不If语句。 格式2： If 逻辑表达式 Then 语句1 Else 语句2 功能：当逻辑表达式的值为True时执行语句1，否则执行语句2。 ·块结构的If-Then语句 格式1： If 逻辑表达式 Then 语句块 End If 功能：当逻辑表达式的值为True时执行下面的语句块，否则不执行If语句。 格式2： If 逻辑表达式 Then 语句块1 Else 语句块2 End If 功能：当逻辑表达式的值为True时执行语句块1，否则执行语句块2。 格式3： If 逻辑表达式1 Then 语句块1 Else If 逻辑表达式2 Then 语句块2 Else If 逻辑表达式3 Then 语句块3 Else If 逻辑表达式n Then 语句块n Else 语句块n+1 End if 功能：当逻辑表达式1的值为True时执行语句块1；否则，当逻辑表达式2的值为True时执行语句块2；否则，当逻辑表达式3的值为Ture时执行语句块3……依次类推；否则执行语句块n。所有逻辑表达式都为False时，执行Else后面的语句块n+1。Else子句是可选的，如果所有逻辑表达式为False时，没有要执行的语句，那么你可以忽略它。 例1：利用IsNumeric函数，判断是否为数值 Public Sub 例1() Dim myArray As Variant Dim i As Long ActiveSheet.Cells.Clear myArray = Array(123, AA88, 1.56, 3E-5, 2%, 1,235, *) For i = 0 To UBound(myArray) Cells(i + 1, 1) = myArray(i) If IsNumeric(myArray(i)) Then Cells(i + 1, 2) = 是数值 Else Cells(i + 1, 2) = 不是数值 End If Next End Sub 例2：利用IsDate函数判断是否为日期 Public Sub 例2() Dim myArray As Variant Dim i As Long ActiveSheet.Cells.Clear myArray = Array(2006/6/15, 2006-8-15, 2006年9月20日, 5-12, 6-30, 2006.5.8) For i = 0 To UBound(myArray) Cells(i + 1, 1) = myArray(i) If IsDate(myArray(i)) Then Cells(i + 1, 2) = 是日期 Else Cells(i + 1, 2) = 不是日期 End If Next End Sub 例3：利用IsArray函数判断是否为数组 Public Sub 例3() Dim myArray As Variant Dim i As Long ActiveSheet.Cells.Clear myArray = Array(aaa, Array(a, 3), Array(bb), 1000) For i = 0 To UBound(myArray) Cells(i + 1, 1) = 第 i + 1 元素 If IsArray(myArray(i)) Then Cells(i + 1, 2) = 是数组 Else Cells(i + 1, 2) = 不是数组 End If Next End Sub Select Case语句 Select Case语句的作用