Excel VBA编程For…Next循环.docx

Excel VBA编程 ForNext循环Excel VBA编程 ForNext循环 Fornext循环语句是计数型循环语句，用于以指定次数来重复执行一组语句，其语法为： For counter = start To end Step step statements Exit For statements Next counter For Next循环语句的语法具有以下几个部分： l l l l counter 必要参数。用于循环计数器的数值变量。这个变量不能是Boolean或数组元素。 start 必要参数。counter的初值。 End 必要参数，counter的终值。 Step 可选参数。counter的步长。如果没有指定，则step的缺省值为1。 l Statements 可选参数。放在For和Next之间的一条或多条语句，它们将被执行指定的次数。 参数step可以是正数或负数。参数step值决定循环的执行情况，如下表7-2所示： 表7-2 参数step值循环情况表 值 正数或0 负数 循环执行，如果 Counter<=end Counter>=end 当所有循环中的语句都执行后，step的值会加到counter中。此时，循环中的语句可能会再次执行，也可能是退出循环并从Next语句之后的语句继续执行。 在循环中改变counter的值，将会使程序代码的阅读和调试变得更加困难。 提 示 下面通过使用ForNext语句创建一个字符串，其内容为由0到9的十个数字所组成的字符串，每个字符串之间用空格隔开。外层循环使用一个变量当作循环计数器，每循环一次，变量值减一，其代码如下： Dim Words, Chars, MyString For Words = 10 To 1 Step -1 ' 建立 10 次循环。 For Chars = 0 To 9 ' 建立 10 次循环。 MyString = MyString & Chars ' 将数字添加到字符串中。 Next Chars MyString = MyString & " " ' 添加一个空格。 Next Words 在For Next循环使用过程中，应注意以下两点内容： l l l l 循环中可以在任何位置放置任意个Exit For语句，随时退出循环。 可以将一个ForNext循环放置在另一个ForNext循环中，组成嵌套循环。不过在每个循环中的counter要使用不同的变量名。 当退出循环后，循环变量的值保持退出时的值。 在循环体内对循环控制变量可多次引用，但不要对其赋值，否则会影响原来的循环控制规律。 注 意 如果省略Next语句中的counter，就像counter存在时一样执行。但如果Next语句在它相对应的For语句之前出现，则会产生错误。