12、VBA编程中的循环与自动程序事件详解

VBA编程中的循环与自动程序事件详解

1. VBA循环结构概述

在VBA编程里，循环是一个关键概念，它能够让一组语句被多次执行。循环可分为好的循环和坏的循环。

1.1 坏循环示例

下面的代码展示了一个使用 GoTo 语句控制流程的坏循环示例：

Sub BadLoop()
    Dim StartVal As Integer
    Dim NumToFill As Long
    Dim CellCount As Long
    StartVal = CInt(InputBox("Enter the starting value: "))
    NumToFill = CInt(InputBox("How many cells? "))
    ActiveCell = StartVal
    CellCount = 1
DoAnother:
    ActiveCell.Offset(CellCount, 0) = StartVal + CellCount
    CellCount = CellCount + 1
    If CellCount < NumToFill Then GoTo DoAnother _
    Else Exit Sub
End Sub

这个程序的功能是向一个区域中输入连续的数字。它先让用户输入起始值和要填充的单元格总数，接着利用 GoTo 语句控制循环。不过，使用 GoTo 语句进行循环存在诸多弊端：
- 违背结构化