IT编程技术

天行健，君子以自强不息；地势坤，君子以厚德载物；

Excel VBA第十一节-do....while循环语句

2021-1-23 博主：Splendor EXCEL VBA基础

do....while循环语句
只有当需要执行一系列语句的确定次数时，For语句才便于使用。为了克服这种局限性，VBA为For语句提供了另一种称为Do循环的语句。Do循环是条件循环。共有两种Do循环语句：Do...While和Do...Until。Do...While语句在某个特定的条件为True时重复执行一组语句，而Do....Until则重复执行一组语句直到某个特定的条件变为True为止。Do循环语句的语法如下：

语法1：
Do[{While|Until}condition]
[statements]
[Exit Do]
[statements]
Loop

语法2：
Do
[statements]
[Exit Do]
[statements]
Loop[{WhileUntil}condition]
注：'until直到条件成立时，停止循环        'while当条件成立时，则开始循环    'Exit Do的做用是跳出循环，循环内执行到此句后，此句后面的代码不在执行并跳出当前循环


例：myNum大于10时循环自减1，查看循环次数
Sub ChkFirstWhile()
    'counter赋予初始0做为计数
    counter = 0

    '循环条件值赋予初始20
    myNum = 20

    '判断循环条件值myNum是否大于10，如何是就循环，不是就跳出循环
    Do While myNum > 10
        '循环条件值自减1
        myNum = myNum - 1
        '计数counter变量自加1
        counter = counter + 1
    Loop
    '弹出消息框显示循环次数
    MsgBox "循环了" & counter & " 次."
End Sub

标签: EXCELVBA基础

« ExcelVBA实战【第一期】-合并单元格内的所有字符用逗号分隔 | Excel VBA第十节-For⋯Next循环语句»