添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
相关文章推荐
大鼻子的鸡蛋  ·  mysql - Function ...·  1 年前    · 
好帅的楼梯  ·  java ...·  1 年前    · 
Excel VBA入门(四)流程控制2-循环控制

Excel VBA入门(四)流程控制2-循环控制

所谓循环控制,即在循环执行一段代码,用于完成一些重复性任务。

VBA中的循环控制语句主要有3种:for、while、loop。对于大多数人来说,for的使用频率最高,而我个人也觉得for是最为灵活的,在很多场合下都可以使用,相较while和loop,其逻辑也再加清晰,更便于对循环进行控制。

1. For循环

for循环有两种形式,一种为明确地知道要循环的次数的,比如从1到10循环执行10次;另一种则用于循环历遍某个集合对象,这个对象有多少个单位就循环执行多少次,可以视为是未知循环次数的。

① 循环次数已知的for

其格式如下:

for 计数变量=开始值 to 结束值
    ' 用于循环执行的语句
next

通常我们会需要对Excel表格中的每一行(或每一列)进行循环历遍,对其中单元格的值进行各种操作。这时候,就可以先求出该工作表中有多少行(或列),然后再逐行(列)进行判断。这个操作单元格的示例会在后面有专门的章节来讲解演示,这里就只讲循环语句本身了。

示例如下:

For i = 1 To 10
    Debug.Print i
Next

以上代码将会依然输出1到10这10个数字

在这种形式的For里面,还可以在[结束值]后面加上Step,然后跟着写上步长,如果省略,则默认步长为1。像上例,默认是把i从1递增到10,即:1、2、3、4、5、6、7、8、9、10这样依次递增的。如果像下面这样写,把步长设置为2,则变成了:1、3、5、7、9。则循环体(即For里面的代码)只会执行5次。

For i = 1 To 10 Setp 2
    Debug.Print i
Next

输出:1 3 5 7 9

② 循环次数不确定的For

格式如下:

For Each 循环变量 In 循环对象
    ' 循环执行的语句
Next 循环变量

结合之前讲过的数组来举个例子。假设已有数组myArr并且已赋值,则可以用以下代码历遍它的每个值:

For Each a In myArr
    Debug.Print a
Next a

这样就不管这个数组包含有多少个元素,都可以逐个历遍。

2. Loop循环

Loop循环或许把它称为Do...Loop循环会更加合适。因为它的格式是先Do再Loop的。但我喜欢把它叫Loop循环。

Loop循环也有两种形式。第一种是先判断循环条件再开执行,第二种先执行一次然后再判断循环条件是否成立。

① 先判断再执行

格式如下:

Do [While | Until] 循环条件
    ' 用于循环执行的语句
Loop


这里的[While | Until] 表示两者随便用一个都可以。While就是当条件成立的时候就 执行 ,而Until就是直到条件成立时就 停止执行 。也就是说,While用于指定循环的条件,说明什么时候就执行循环,而Until用于指定停止循环的条件,说明什么时候不再执行循环。这么说可能有些许抽象,举例说明。

Do While ... Loop

Sub test()
    Dim i As Integer
    i = 5
    Do While i > 0
        Debug.Print i
        i = i - 1
End Sub

上例的输出结果是:5 4 3 2 1

Do Until ... Loop

Sub test()
    Dim i As Integer
    i = 5
    Do Until i < 0
        Debug.Print i
        i = i - 1
End Sub

上例的输出结果是:5 4 3 2 1 0

逻辑还是很简单的,大家可以稍微分析下为什么用While时输出到1就停止了,而用Until时后面会多出个0,而如果需要不让它输出0程序应该怎么改写。搞清楚原因,这个While和Until的区别也就知道了,Loop循环应该也就掌握了。

② 先执行再判断

先执行再判断,即将条件判断语句放到Loop的后面,先Do一次,然后再Loop While或者Loop Until。

格式如下:

Do
    ' 用于循环执行的语句
Loop [While | Until] 循环条件

示例如下:

Do ... Loop While

Sub test()
    Dim i As Integer
    i = 5
        Debug.Print i
        i = i - 1
    Loop While i > 0
End Sub

输出结果为:5 4 3 2 1

Do ... Loop Until

Sub test()
    Dim i As Integer
    i = 5
        Debug.Print i
        i = i - 1
    Loop Until i < 0
End Sub

输出结果为:5 4 3 2 1 0

Loop循环总结:可以看到,无论是采用哪种形式的Loop循环,都可以得到相同的结果,实现同样的功能,而具体使用哪一种,纯粹是个人习惯(个人喜欢)。但 无论使用哪一种,都一定一定要记得,必须要有能使循环结束的语句出现在循环中 (例如前面例子中的i=i-1),否则程序会永远不停地执行下去。这时候除了在任务管理器中结束Excel外,就没有什么更好的办法了。

3. While循环

While循环有点类似于Loop循环,先判断条件是否成立,再开始(或结束)循环。而我看过的教程里面,有些是没有讲到While循环的。可能是作者觉得没有必要讲了。

While循环的格式如下:

While 条件判断语句
    ' 用于循环执行的语句
Wend

示例如下:

Sub test()
    Dim i As Integer
    i = 5