ExcelVBA编程For…Next循环

ExcelVBA编程For…Next循环
Excel VBA编程For…Next循环
For…next循环语句是计数型循环语句，用于以指定次数来重复执行一组语句，其语法为：For counter = start To end [Step step] [statements]
[Exit For]
[statements]
Next [counter]
For …Next循环语句的语法具有以下几个部分：
●counter 必要参数。

用于循环计数器的数值变量。

这个变量不能是Boolean或数组元素。

●start 必要参数。

counter的初值。

●End 必要参数，counter的终值。

●Step 可选参数。

counter的步长。

如果没有指定，则step的缺省值为1。

●Statements 可选参数。

放在For和Next之间的一条或多条语句，它们将被执行指定的次数。

参数step可以是正数或负数。

参数step值决定循环的执行情况，如下表7-2所示：
当所有循环中的语句都执行后，step的值会加到counter中。

此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从Next语句之后的语句继续执行。

在循环中改变counter的值，将会使程序代码的阅读和调试变得更加困难。

提示
下面通过使用For…Next语句创建一个字符串，其内容为由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循环使用过程中，应注意以下两点内容：
●循环中可以在任何位置放置任意个Exit For语句，随时退出循环。

●可以将一个For…Next循环放置在另一个For…Next循环中，组成嵌套循环。

不过在每个循环中
的counter要使用不同的变量名。

●当退出循环后，循环变量的值保持退出时的值。

●在循环体内对循环控制变量可多次引用，但不要对其赋值，否则会影响原来的循环控制规律。