office - Excel - VBA入门基础 - 图文(11)

Case Is < 80 MsgBox \及格\ Case Is < 90 MsgBox \良好\ Case Else

MsgBox \优秀\ End Select End Sub

程序流程控制——For—Next 循环语句 ============================= 什么是循环？

这里我们指的循环是指重复地执行某项动作（语句块）。 同学们在操场上跑步，两万米长跑，每圈400米。?呯?，枪一响，开始跑，一圈，两圈，三圈......直到跑满50圈才停止。这里，同学们就是在循环地在操场的跑道上执行跑步的动作。

我们来看一下For—next 的句式：

For 循环变量＝初值 to 终值 step 步长 循环体1 [exit for] 循环体2

next 循环变量

解释:从开始到结束，反复执行For和Next之间的指令块，除非遇到Exit For语句，将提前跳出循环。其中，步长和Exit For语句以及Next后的循环变量均可省略，步长省略的时候默认为 1。Exit for 语句是强制终止循环的语句，执行它后将退出循环，执行next后面的语句。

循环变量是一个变量，可以在循环体中对其进行修改，但一般就避免在循环体中对其修改。 对句式进行了初步的认识后，我们用这个句式来叙述上面学生跑步的问题。把它编成程序，20000米，要跑50圈，也就是要50次，同学们要在上面一圈，两圈。。。。直到满50圈才停止循环跑步，当然，如果你要提前退赛，就不用跑满50圈了。有

了这个思想，程序可以写成： Sub 循环跑步()

dim 圈数 as byte

for 圈数=1 to 50 step 1 If 学生.要求=退赛 exit for End If Next 圈数 End Sub

当然，这只是一个实例，帮助你对For—next语句的理解，下面我们来用一个实例来讲解For-next语句！

问题：求1到1000的自然数的和。程序编为： 复制内容到剪贴板 代码:

Sub mysum()

Dim Lsum As Long, i As Long For i = 1 To 1000 Lsum = Lsum + i Next

MsgBox \到1000的自然数和为：\End Sub

for_next-1到1000自然数的和.rar (6.14 KB) 以下代码由老朽提供 引用:

ggsmart说明:以下代码为38度OFFICE技术论坛的老朽版主提供,主要是帮助大家对VBA语句的认识. 复制内容到剪贴板 代码:

撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间偶数和() Dim I&, J&

For I = 0 To 10000 Step 2 J = J + I Next

MsgBox \到10000之间偶数和为\End Sub

复制内容到剪贴板 代码:

'撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间偶数和2() Dim I&, J&

For I = 10000 To 1 Step -2 J = J + I Next

MsgBox \到10000之间偶数和为\End Sub

复制内容到剪贴板 代码:

'撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间奇数和() Dim I&, J&

For I = 1 To 10000 Step 2 J = J + I Next

MsgBox \到10000之间奇数和为\End Sub

复制内容到剪贴板 代码:

'撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59 Sub 求1到10000之间奇数和2() Dim I&, J&

For I = 9999To 1 Step -2'此句于2009年8月18日纠正 J = J + I Next

MsgBox \到10000之间奇数和为\End Sub

引用:

感谢109楼artemis_xu朋友对以上代码的纠正！ 复制内容到剪贴板 代码:

'撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59

Sub 求1到10000之间能被5整除的数之和() Dim I&, J&

For I = 0 To 10000 Step 5 J = J + I Next

MsgBox \到10000之间能被5整除的数之和为\End Sub

复制内容到剪贴板 代码:

'撰写:38度:老朽

'日期:2009-7-1 上午 11:40:59

Sub 求1到10000之间能被5整除的数之和2() Dim I&, J&

For I = 10000 To 1 Step -5 J = J + I Next

MsgBox \到10000之间能被5整除的数之和为\End Sub

程序流程控制——For—Each 循环语句 ===============================

有了前面对循环一词的理解，这里我们不用再多说，如果你知道了For—next语句的工作原理，这里再来学习For—each循环以及下面我们接着要讲的句式，那就相当简单了，同样的工作原理。

学会了吃苹果，那么离会吃梨的道路还会远吗？

呵呵，只是开个小小的玩笑，下面我们继续，首先来看看For—Each语句的句式：

For Eacn 元素变量 In 对象集合或数组名称

语句块1 [Exit For] 语句块2 next 元素变量

和上面For—next句式是一样的工作原理。

这里的?元素变量?是用来遍历集合或数中中元素的变量，它从集合或数组的第一个元素开始，直到最后一个元素，然后退出循环。

这里我们举个例子，把当前工作薄中工作表的名称写在A列，程序为： 复制内容到剪贴板 代码:

Sub shtname()

Dim i As Integer, sht As Worksheet i = 1

For Each sht In Worksheets Cells(i, 1) = sht.Name

i = i + 1 '让写入名称的单元格下移一行 Next End Sub

for-each返回工作表名称.rar (7.52 KB) for-each返回工作表名称.rar (7.52 KB)

程序流程控制——Do While语句 ===========================

Do While也是循环语句，它分为两种情况，一种是把循环条件放在开头，一种是把循环条件放在结尾。 1、开头判断循环条件 语句格式：

Do Wihle 循环条件 语句块1 [Exit Do] 语句块2 Loop