VBA中的几种循环

最近工作需要很多用到VBA的地方，说实话，之前有点瞧不起这种古老编程语言的，但是实际使用之后发现很香啊，所以对一些东西坐下笔记

For 数字循环

Private Sub Constant_demo_Click()
   Dim a As Integer
   a = 10

   For i = 0 To a Step 2'这里是步进，默认是1
      MsgBox ("The value is i is : " & i)
   Next
End Sub

数组循环

Private Sub Constant_demo_Click()  
   'fruits is an array，也可以直接提取一个单元格区域作为数组
   fruits = Array("苹果", "橙子", "樱桃")
   Dim fruitnames As Variant

   'iterating using For each loop.
   For Each Item In fruits
      fruitnames = fruitnames & Item & Chr(10)
   Next

   MsgBox fruitnames
End Sub

While Wend循环

Private Sub Constant_demo_Click()
   Dim Counter :  Counter = 10   

   While Counter < 15     ' Test value of Counter.
      Counter = Counter + 1   ' Increment Counter.
      msgbox "The Current Value of the Counter is : " & Counter
   Wend   ' While loop exits if Counter Value becomes 15.
End Sub

Do...While循环

Private Sub Constant_demo_Click()
   Do While i < 5
      i = i + 1
      msgbox "The value of i is : " & i
   Loop
End Sub

退出循环

Exit For
Exit Do

-- 完 --