[已解决]这循环解释下？

sdfsdfs

Do While
。。。
Loop
解释下，怎么用？

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-9-15 14:20

DO while  “条件语句”
   “执行语句”
loop

“条件语句” 可以设置循环执行的条件，只有当条件为真（也就是满足你设定的条件时），才执行下面的执行语句。
举例：

cells(x,2)<>""

“执行语句”就是你想让电脑为你做什么，只要上面的条件为真，电脑就会做你写在这里的事。
举例：
cells(x,3)=“完成”

写入到语句中就：

1. sub aa()
   
2. dim x%
   
3. 
   
4. x=2
   
5. do while cells(x,2)<>""
   
6.     cells(x,3)="完成“
   
7.     x=x+1
   
8. loop
   
9. 
   
10. end sub

复制代码

这段代码的作用是，从第二列的第二行开始往下循环，如果第二行不为空，那么在第二行，第三列中输入”完成“
在这个DO循环中循环的条件是：cells(x,2)<>""   如果第二列的每一个单元格（从第二行开始，因为x的初值是2）一直不为空，那么一直往下循环，如果一发生空单元格，那么就不满足条件：cells(x,2)<>"" ，那么退出循环。

“执行语句”  中，还可以写更为复杂的判断语句，循环语句等。这个例子只是比较简单的要执行的事件：往单元格中写入“完成”两个字。

你可以把代码复制到模块中运行一下看看效果。
并对单元格中的数据进行改变，看看会发生什么变化。
也可以对“条件语句”作一下改变，也把“执行语句”进行修改，看看会发生什么变化。这样利于更加深入地理解。

跳转到最佳答案楼层

我心飞翔410

While <当条件为真时，执行循环>
    Do While <条件>

    Loop
例子  1到15 奇数行填充颜色
你看看
Do While x < 8
  x = x + 1
  a = 1 + (x - 1) * 2
  Rows(a).Interior.Color = 16764006
Loop

yyyydddd8888

DO while  “条件语句”
   “执行语句”
loop

“条件语句” 可以设置循环执行的条件，只有当条件为真（也就是满足你设定的条件时），才执行下面的执行语句。
举例：

cells(x,2)<>""

“执行语句”就是你想让电脑为你做什么，只要上面的条件为真，电脑就会做你写在这里的事。
举例：
cells(x,3)=“完成”

写入到语句中就：

1. sub aa()
   
2. dim x%
   
3. 
   
4. x=2
   
5. do while cells(x,2)<>""
   
6.     cells(x,3)="完成“
   
7.     x=x+1
   
8. loop
   
9. 
   
10. end sub

复制代码

这段代码的作用是，从第二列的第二行开始往下循环，如果第二行不为空，那么在第二行，第三列中输入”完成“
在这个DO循环中循环的条件是：cells(x,2)<>""   如果第二列的每一个单元格（从第二行开始，因为x的初值是2）一直不为空，那么一直往下循环，如果一发生空单元格，那么就不满足条件：cells(x,2)<>"" ，那么退出循环。

“执行语句”  中，还可以写更为复杂的判断语句，循环语句等。这个例子只是比较简单的要执行的事件：往单元格中写入“完成”两个字。

你可以把代码复制到模块中运行一下看看效果。
并对单元格中的数据进行改变，看看会发生什么变化。
也可以对“条件语句”作一下改变，也把“执行语句”进行修改，看看会发生什么变化。这样利于更加深入地理解。

ZZCUEEI