【VBA编程】07.循环结构语句

【FOR...NEXT语句】

For counter = start To End [Step step]

[statements]

[Exit For]

[statements]

Next [counter]

【代码区域】

计算1到1000的和

Private Sub qiuhe()
 Dim i As Integer '用于存储列各项
 Dim sum As Long '存储结果项
 Dim counter As Integer '循环计数
 i =
 sum =
 counter =
 For counter =  To
    sum = sum + i
    i = i +
 Next
 MsgBox "1到1000各项求和为：" & sum, vbOKOnly, "结果"
End Sub

【结果展示】

【Do...loop】

Do [{While | Until} condition]

[statements]

[Exit Do]

[Statements]

Loop

【代码区域】

输出循环体执行的次数

Private Sub 当循循环()
    Dim counter As Integer
    Dim condition As Boolean
    counter =
    condition = True
    Do While condition = False
        counter = counter +
    Loop
    MsgBox "循环体被执行了" & counter & "次", vbOKOnly, "测试当型循环"
End Sub

【结果展示】

【while...Wend】

While condition

[statements]

Wend

【代码区域】

Private Sub Wnd()
    Dim i As Integer
    Dim counter As Integer
    Dim sum As Long
    i =
    sum =
    counter =
    While counter <=
    sum = sum + i
    i = i +
    counter = counter +
    Wend
    MsgBox "1到1000的和为：" & sum, vbOKOnly, "结果项"
End Sub

【Tips】

while...wend循环执行的时候（1）判断循环执行条件

(2)如果条件为True,则执行所有的statements,知道wend结束

(3)再返回while语句，再次检测循环条件。知道条件为False时，才退出循环。

【结果展示】

【For  Each...Next语句】

For Each element in group

[statements]

[exit for]

[statements]

next [element]

【代码区域】

Private Sub 单元格区域赋值()
    Dim counter As Integer
    Worksheets("sheet2").Activate
 
    For Each yuanshu In Range("A2:A8")
    yuanshu.Value = counter
    counter = counter +
    Next
    MsgBox "程序执行完毕，单元格已经被赋值", vbOKOnly, "为区域单元格赋值"
End Sub

【展示结果】