今日学习目标

  • 掌握For...Next循环
  • 掌握For Each...Next循环
  • 掌握Do While/Until循环

知识点

1. For...Next

vba
For i = 1 To 10
' 重复执行10次
Next i

2. For Each...Next

vba
For Each item In collection
' 遍历集合
Next item

3. Do While/Until

vba
Do While 条件
' 条件满足时执行
Loop
Do Until 条件
' 条件不满足时执行
Loop

今日代码

vba
Sub For循环示例()
    Dim i As Integer
    Dim sum As Integer

    sum = 0
    For i = 1 To 100
        sum = sum + i
    Next i
    MsgBox "1到100的和: " & sum
End Sub

Sub ForEach示例()
    Dim ws As Worksheet

    For Each ws In Worksheets
        MsgBox ws.Name
    Next ws
End Sub

Sub DoWhile示例()
    Dim i As Integer

    i = 1
    Do While i <= 10
        i = i + 1
    Loop
    MsgBox "循环结束时i的值: " & i
End Sub

练习题

  1. 计算1-50的偶数和
  2. 遍历工作簿中所有工作表
  3. 使用循环填充A1:A10单元格

参考解答

1. 使用For循环，i从1到50，判断i Mod 2 = 0时累加。 2. 使用For Each ws In Worksheets遍历，打印或处理每个工作表。 3. 使用For i = 1 To 10，Cells(i, 1).Value = i或Range("A" & i).Value = i。

由在线工具箱(www.vba.net)整理制作