excel的宏与VBA入门（三）——流程控制

一、条件控制IF

if  逻辑表达式 then
                              语句块
end if

　　带else的if语句：

　If  逻辑表达式1 Then  
                              语句块1
                  ElseIf  逻辑表达式2  Then 
                              语句块2
                  ElseIf  逻辑表达式3 Then 
                              语句块3
                   …
                 Else
                             语句块n
 End If

二、条件判断Select/Case

Select Case 测试表达式
     　　 Case 条件表达式1
           　　 语句块1
     　　 Case 条件表达式2
         　　   语句块2
     　　Case 条件表达式3
         　　   语句块3
    　　 ......
  　　   Case 条件表达式n
       　　     语句块n
    　　 Case Else
       　　     语句块Else
     End Select.

　　示例：

Sub test()
  If [a1].Value = "" Then
      MsgBox "A1单元格没有输入数字。"
      Exit Sub '     退出程序
  End If
  Select Case [a1].Value
      Case 0 To 29
          MsgBox "差"
      Case 30 To 59
          MsgBox "不及格"
      Case 60 To 79
          MsgBox "及格"
      Case 80 To 89
          MsgBox "良好"
      Case Else
          MsgBox "优秀"
  End Select
End Sub

三、循环控制For/Next

 For 循环变量＝初值 to 终值 step 步长
       循环体1
      [exit for]
      循环体2
  next 循环变量   

　　示例：（步长默认为1，next后的循环变量可以省略 ）

Sub mysum()
　　Dim Lsum As Long, i As Long
　　For i = 1 To 1000
   　　 Lsum = Lsum + i
　　Next
　　MsgBox "1到1000的自然数和为：" & Lsum
End Sub

　　//更多实例，参考开篇链接

四、循环控制For/Each

For Eacn 元素变量 In 对象集合或数组名称
      语句块1
      [Exit For]
      语句块2
next 元素变量

　　//与上一个循环类似，这里采用元素变量从对象集合中取得方式

五、循环控制Do/While

 Do Wihle 循环条件
            语句块1
           [Exit Do]
            语句块2
      Loop

  Do 
            语句块1
           [Exit Do]
            语句块2
       Loop Wihle 循环条件

　　//示例暂略

六、循环控制Do/Until

Do Until 循环条件
            语句块1
           [Exit Do]
            语句块2
      Loop
   

 Do 
            语句块1
           [Exit Do]
            语句块2
       Loop Until 循环条件

　　//与Do/While相反的是为真时退出

七、循环控制GoTo

Sub mysum()
Dim Lsum As Long, i As Long
i = 1
x: '为go to 语句设置的标签，必须以英文状态下的冒号结尾
   Lsum = Lsum + i
   i = i + 1
If i <= 1000 Then GoTo x '如果i<=1000,则程序跳到标签X处
MsgBox "1到1000的自然数和为：" & Lsum
End Sub