EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
Excel VBA-----之do while loop的用法
来源：互联网
2023-02-20 23:30:46 325
前面已经说过do...loop的用法，本文将说明do while ...loop、do until ...loop的用法
工具/原料
- Excel软件
方法/步骤
do loop相关的循环方法包括三种：
a. do....loop
b. do while...loop
c. do until...loop
本文将通过两种循环方法，对Excel数据进行整理，即do while...loop、do until...loop。
第一种方法do while...loop：
while:类型if语句，当满则某个条件时才进行循环操作。
do while
.....
loop
功能要求：利用do while...loop实现如下Excel表格中第三列的结果。
1、输入如下表格数据：
2、打开VBE，输入代码；
Sub doWhileLoop()
Dim rs%
rs = 2
Do While Cells(rs, 2) > ""
If Cells(rs, 2) >= 90 Then
Cells(rs, 3) = "是"
Else
Cells(rs, 3) = "否"
End If
rs = rs 1
Loop
End Sub
3、回到Excel界面中，插入形状--指定宏，指定刚刚定义的doWhileLoop宏；
4、运行该宏；则得到如下图的结果，即第三列中已经填充了结论。
方法/步骤2
第一种方法do until...loop：
until:类型if语句，直到满足某个条件时，将退出循环。
do until
.....
loop
1、初始数据依然如下图所示
2、打开VBE，输入代码；
Sub doUntilLoop()
Dim rs%
rs = 2
Do Until Cells(rs, 2) = ""
If Cells(rs, 2) >= 90 Then
Cells(rs, 3) = "是"
Else
Cells(rs, 3) = "否"
End If
rs = rs 1
Loop
End Sub
3、回到Excel界面中，插入形状--指定宏，指定刚刚定义的doUntilLoop宏；
4、运行宏，得到如下运行结果。
注意事项
- while和until的条件满足和结束的条件不同
- 注意表格属性的表达方式
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
