excel图表循环设置

办公教程导读

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

办公教程内容图文

与上一篇文章介绍的Do While循环相比较，结构一样，只是执行循环的条件相反。

接下来，为方便对两种循环结构的理解，我们改写上一篇文章中的部分示例。

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

Sub DoUntil1()

Dim i As Integer ‘声明变量

i = 1 ‘给变量赋初始值

‘循环

Do Until i > 10

Cells(i, 1).Value = i

i = i + 1

Loop

End Sub

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

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

Sub DoUntil2()

‘声明变量

Dim i As Integer

Dim sum As Integer

‘给变量赋初值

i = 1

sum = 0

‘循环并显示结果

Do Until i > 100

sum = sum + i

i = i + 1

Loop

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

End Sub

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

Sub DoUntil3()

‘声明变量

Dim i As Integer

Dim sum As Integer

‘给变量赋初值

i = 1

sum = 0

‘循环并显示结果

Do Until i > 100

If (i Mod 2 = 0) Then

sum = sum + i

End If

i = i + 1

Loop

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

End Sub