excel图表While循环

办公教程导读

收集整理了【excel图表While循环】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2076字，纯文字阅读大概需要3分钟。

办公教程内容图文

Do While循环的基本语法结构如下：

Do [While 条件语句]

[语句块]

[Exit Do]

[语句块]

Loop

或者：

Do

[语句块]

[Exit Do]

[语句块]

Loop [While 条件语句]

说明：

按照惯例，方括号中的内容表示可选项。

条件语句可以放在循环的开始处或者结尾处。如果放在开始处，那么先评估条件，满足条件要求，就执行循环里面的语句；这种情况下，当始终不满足条件时，就有可能一次也不会执行循环里面的语句。如果放在结尾处，则至少会执行一次循环里面的语句。

Exit Do语句表示提前退出循环。

将条件放置在结尾处，前面的示例代码修改如下：

Sub DoWhile01()

Dim i As Integer ‘声明变量

i = 1 ‘初始化变量

Do

MsgBox “单元格A” & i & “的内容为:” & Cells(i, 1).Value

i = i + 1

Loop While Cells(i, 1).Value <> “”

End Sub

此时，如果单元格A1为空，也会显示一条消息框，然后退出循环。

用框图分别表示Do While循环的两种语法形式如下：

如果熟悉了Excel中的常用对象及其属性，也可以将上面的代码修改如下，实现相同的结果。

Sub DoWhile1()

Do While ActiveCell.Value <> “”

MsgBox “当前单元格的内容为:” & ActiveCell.Value

ActiveCell.Offset(1, 0).Activate

Loop

End Sub

其中，Offset属性表示下移一个单元格，即当前单元格下面的单元格。（单元格的常用属性将在后续文章中详细介绍）

将条件放置在结尾处，前面的示例代码修改如下：

Sub DoWhile2()

Do

MsgBox “当前单元格的内容为:” & ActiveCell.Value

ActiveCell.Offset(1, 0).Activate

Loop While ActiveCell.Value <> “”

End Sub

下面，为更深入理解Do While循环，我们来改写上一篇中用来说明For-Next循环的示例。

示例1：如果想要在工作表单元格区域A1:A10中依次填写数字1至10，也可以使用下面的包含Do While循环的代码：

Sub DoWhile3()

Dim i As Integer ‘声明变量

i = 1 ‘给变量赋初始值

‘循环

Do While i <= 10

Cells(i, 1).Value = i

i = i + 1

Loop

End Sub

注意，与For-Next循环不同的是，在进入循环之前，需要先给变量i赋初始值。在循环中，还需要能够增加变量的值。

示例2：下面的代码使用Do While循环求1至100的和，并显示结果。

Sub DoWhile4()

‘声明变量

Dim i As Integer

Dim sum As Integer

‘给变量赋初值

i = 1

sum = 0

‘循环并显示结果

Do While i <= 100

sum = sum + i

i = i + 1

Loop

MsgBox “1至100的和为：” & sum

End Sub

示例3：下面的代码使用Do While循环求1至100之间的偶数和并显示结果。

Sub DoWhile5()

‘声明变量

Dim i As Integer

Dim sum As Integer

‘给变量赋初值

i = 1

sum = 0

‘循环并显示结果

Do While i <= 100

If (i Mod 2 = 0) Then

sum = sum + i

End If

i = i + 1

Loop

MsgBox “1至100的和为：” & sum

End Sub

在编写程序时，我们可以使用多种方法实现想要的结果，您可以根据具体情况选择实现方式，这也是编程的一大美妙之处。