VBA 程序循环结构

您所在的位置:网站首页 使用i从1到10步长为1执行什么意思 VBA 程序循环结构

VBA 程序循环结构

2024-07-05 03:14| 来源: 网络整理| 查看: 265

VBA 中,循环结构用于多次重复执行同一段代码。重复次数通过特定数字或特定条件控制。

通过控制循环过程中特定变量,循环结构可执行复杂的重复任务。

循环结构的执行流程可简单的表示如下:

循环结构的执行流程

本文目录 隐藏 VBA 循环结构类型 For 循环 For … Next 循环 For Each 循环 Exit For 语句 Do While 循环 Do While … Loop 循环 Do … Loop While 循环 Exit Do 语句 Do Until 循环 Do Until … Loop 循环 Do … Loop Until 循环 总结 VBA 循环结构类型

VBA 中循环结构有 3 种类型,它们是:

For 循环 Do While 循环 Do Until 循环

下面分别介绍 3 种类型循环结构语法以及用法。

For 循环

For 循环是最常用的循环类型,它有两种形式:

For … Next 循环 For Each 循环 For … Next 循环

使用 For ... Next 循环可以按指定次数,循环执行一段代码。For 循环使用一个数字变量,从初始值开始,每循环一次,变量值增加或减小,直到变量的值等于指定的结束值时,循环结束。

For ... Next 循环语法如下:

For [变量] = [初始值] To [结束值] Step [步长] '这里是循环执行的语句 Next

其中:

[变量] 是一个数字类型变量,可在循环执行的语句里使用。 [初始值] 和 [结束值] 是给定的值; [步长] 是每次循环时,变量的增量。如果为正值,变量增大;如果为负值,变量减小。

下面看一个实际的例子,求 1 至 10 数字的累积和。

Sub MyCode() Dim i As Integer Dim sum As Integer For i = 1 To 10 Step 1 sum = sum + i Next End Sub

可以看到,For 循环使用 i 变量,循环 10 次,i 的值从 1 到 10 变化。

值得注意的是,For 循环的 Step 值如果是 1,则 Step 关键词可省略。上述过程循环部分可写成如下方式:

For i = 1 To 10 sum = sum + i Next For Each 循环

For Each 循环用于逐一遍历一个数据集合中的所有元素。数据集合包括数组、Excel 对象集合、字典等。

For Each 循环不需要一个数字变量,但是需要与数据集合中的元素相同的数据类型变量。其基本语法如下:

For Each [元素] In [元素集合] '循环执行的代码 Next [元素]

其中,

[元素] 是与集合中的元素相同类型的变量,该变量可在循环代码中使用。 [元素集合]是包括多个元素的集合。

下面看一个实际例子,循环打印出工作簿中所有工作表的名称。

Sub MyCode() Dim sh As Worksheet For Each sh In Worksheets Debug.Print sh.Name Next sh End Sub

sh 变量就是元素变量,Worksheets 是工作簿中所有工作表的集合。

Exit For 语句

Exit For 语句用于跳出循环过程,一般在提前结束循环时使用,均适用于 For Next 循环和 For Each 循环。

看一个实际的例子,求 1 – 10 数字的和时,当和大于 30 就停止循环。

Sub MyCode() Dim i As Integer Dim sum As Integer For i = 1 To 10 sum = sum + i If sum > 30 Then Exit For End If Next End Sub

在这段代码中,sum 变量大于 30 时,循环就停止。

Do While 循环

Do While 循环用于满足指定条件时循环执行一段代码的情形。循环的指定条件在 While 关键词后书写。

Do While 循环也有两种形式:

Do While … Loop 循环 Do … Loop While 循环 Do While … Loop 循环

Do While … Loop 循环,根据 While 关键词后的条件表达式的值,真时执行,假时停止执行。基本语法如下:

Do While [条件表达式] '循环执行的代码 Loop

其中,只要 [条件表达式] 为真,将一直循环执行。[条件表达式] 一旦为假,则停止循环,程序执行 Loop 关键词后的代码。

看一个实际的例子,还是求 1- 10 累积和。

Sub MyCode() Dim i As Integer Dim sum As Integer i = 1 Do While i


【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3