前面已经说过do...loop的用法,本文将说明dowhile...loop、dountil...loop的用法
工具/原料
Excel软件
方法/步骤
1、dolo艺皱麾酪op相关的循环方法包括三种:a.do....loopb.dowhile...loopc.dountil...造婷用痃loop本文将通过两种循环方法,对Excel数据进行整理,即dowhile...loop、dountil...loop。
2、第一种方法dowhile...loop:while:类型if语句,当满则某个条件时才进行循环操作。dowhile.....loop
3、功能要求:利用dowhile...loop实现如下Excel表格中第三列的结果。输入如下表格数据:
4、打患束锍瓜开VBE,输入代码;SubdoWhileLoop()Dimrs%rs=2DoWhileCells(rs,2)<>"&鳎溻趄酃quot;IfCells(rs,2)>=90ThenCells(rs,3)="是"ElseCells(rs,3)="否"EndIfrs=rs+1LoopEndSub
5、回到Excel界面中,插入形状--指定宏,指定刚刚定义的doWhileLoop宏;
6、运行该宏;则得到如下图的结果,即第三列中已经填充了结论。
方法/步骤2
1、第一种方法dountil...loop:until:类型if语句,直到满足某个条件时,将退出循环。dountil.....loop
2、初始数据依然如下图所示
3、打患束锍瓜开VBE,输入代码;SubdoUntilLoop()Dimrs%rs=2DoUntilCells(rs,2)=""朐袁噙岿IfCells(rs,2)>=90ThenCells(rs,3)="是"ElseCells(rs,3)="否"EndIfrs=rs+1LoopEndSub
4、回到Excel界面中,插入形状--指定宏,指定刚刚定义的doUntilLoop宏;运行宏,得到如下运行结果。