零基础自学VBA（二）

最新推荐文章于 2025-05-02 15:07:22 发布

Channe0

最新推荐文章于 2025-05-02 15:07:22 发布

阅读量610

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA笔记文章标签：零基础自学ＶＢＡ

本文链接：https://blog.youkuaiyun.com/Channe0/article/details/92800202

VBA笔记专栏收录该内容

3 篇文章

订阅专栏

该博客聚焦零基础自学VBA中的Do…loop循环。介绍了其语法结构，包括将循环条件放在不同位置的两种形式，还提及这样做可减少程序循环次数。同时阐述了Do…Loop扩展，可用IF条件代替判断语句，以及嵌套时Exit Do的控制权转移和IF语句完整性问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

学习内容：Do…loop循环
1、语法结构
Do {while/until 表达式}
{执行的一条或多条语句}
exit do
{执行的一条或多条语句}
Loop
或者可以将while/until的循环条件放到Loop后面，也就是先循环再判断，有的时候这么做可以减少程序的循环次数
Do
{执行的一条或多条语句}
exit do
{执行的一条或多条语句}
Loop {while/until 表达式}

示例如下：输入密码（最多输入3次）

Sub doloop的最后判断循环1()
Dim pass$
Do
 i = i + 1
 pass = InputBox("请输入密码")
Loop Until pass = "123" Or i > 3
End Sub

2、Do…Loop扩展
可以用IF条件代替While/Until判断语句，通常将Do…Loop+If…Then+Exit Do结合使用，值得注意的是，当在嵌套的Do…Loop中执行Exit Do语句时，将会将控制权转移到Exit Do所在位置的外层循环中。
另外，当语句中使用ＩＦ循环的时候，要注意ＩＦ语句的完整性。
示例如下：

Sub ifdoloop()
Do
b = b + 1
  Do
  a = a + 1
  If a > 3 Then MsgBox "即将跳出内层循环"
  Exit Do
  Loop
MsgBox "即将进行外层循环"
Loop
End Sub