Excel 97/VBA技术讲座之五

For...Next循环

For...Next循环重复执行一组语句，直到循环次数达到指定次数为止。其格式如下：

For 〈变量〉=〈初值〉 To 〈终值〉 Step 〈步长〉

〈语句块〉

Next 〈变量〉

    下面举例说明For循环的使用方法。
    设计算机等级考试成绩存放在Deg_Score工作表上，其中笔试成绩存放在E列、上机成绩存放在F列，且这两个区域分别命名为Pening、Operating。现需要创建一个宏，将不及格的以红色显示、成绩优秀（笔试成绩和上机成绩都在85分以上）的以绿色显示。相应的VBA宏程序如下所示：
   

Sub DegreeScore( )

Dim i As Integer

For i = 1 To Range("Pening").Cells.Count

If Range("Penging").Cells(i) < 60 Then

    Range("Pening").Cells(i).Interior.Color = vbRed

End If

If Range("Operating").Cells(i) < 60 Then

    Range("Operating ").Cells(i).Interior.Color = vbRed

End If

If Range("Pening").Cells(i) > 85 And Range("Operating ").Cells(i) > 85 Then

    Range("Pening").Cells(i).Interior.Color = vbGreen

    Range("Operating ").Cells(i).Interior.Color = vbGreen

End If

Next i

End Sub
    其中，Range("Pening").Cells.Count给出了区域内单元格的个数；Range("Pening").Cells(i)返回Pening区域内的第i个单元格；Range对象的Interior属性返回引用的新对象：Interior对象。Interior对象控制单元格内部的颜色和图案格式。此外，在Visual Basic中已经为常用颜色预先定义了名字，引用时直接引用颜色的名字即可。
   

For Each...Next循环

〈语句块〉
Next 〈对象变量〉

    其中，For Each语句的作用类似于Set语句，将对象引用赋值给变量。不过For Each语句是将同一对象集中的每个对象引用依次赋值给同一变量。For Each循环的功能是为对象集中的每个对象重复执行一组语句。
    下面举例说明For Each循环的使用方法。
    Excel提供了打印预览工作表的方法，然而，每次只能对活动工作表进行打印预览。假设现有一个包含若个部门预算工作表的工作簿，在打印前需要预览每一个预算工作表，那么可使用For Each循环编写如下宏实现：

Sub PrintPreviewSheets( )

Dim mySheet As Worksheet

For Each mySheet In Worksheets

mySheet.Select

mySheet.PageSetup.Orientation = xlLandscape

mySheet.PrintPreview

Next mySheet

End Sub

    PrintPreviewSheets宏的执行过程是：依次将工作表集合中的每个对象（工作表）引用赋值给变量mySheet，再选定对象指针指向的对象（即激活工作表），然后将页打印方向设置为横向，最后打印预览该工作表。
    同样，可使用For循环编写宏实现上述功能：

Sub PrintPreviewSheets( )

Dim mySheet As Worksheet

Dim i As Integer

For i = 1 To Worksheets.Count

Set mySheet = Worksheets(i)

mySheet.Selete

mySheet.PageSetup.Orientation = xlLandscape

mySheet.PrintPreview

Next i

End Sub

    请注意区分：For语句是将一个值赋给变量，而For Each语句是将一个对象引用赋给变量。通常，使用For Each循环比使用For循环更方便、更快捷，但For循环的使用范围更广。例如，当需要利用计数器控制循环时，或要在两个同类的对象集（如两个区域）之间进行比较时，就只能使用For循环，而不能使用For Each循环。
   

Do…Loop循环

    For Each循环通过对象集来控制循环的执行与结束，For循环通过计数器的初值、终值、步长来控制循环执行的次数。然而在某些情况下，需要通过条件判断来控制循环的执行与结束。为此，Visual Basic提供了另一种更有效的循环控制结构：Do循环。
    Visual Basic提供了多种灵活的Do循环形式，一方面可以用Until 〈条件〉或while 〈条件〉来控制循环，另一方面Until 〈条件〉和while 〈条件〉既可放在Do语句中，也可放在Loop语句中，使用十分方便。其中，最常用的Do循环格式如下：

Do While 〈条件表达式〉

〈语句块〉

Loop

    该Do循环的功能是：只要条件为真，就重复执行语句块，直到条件为假时才结束循环，执行Loop语句的下一条语句。
    下面举例说明Do While循环的使用方法。
    假设需要对活动工作簿的Sheet1工作表先按第一列数据进行排序，然后删除包含重复数据的行，使用Do While循环编写如下VBA宏实现：

Sub DeleteRepeatData( )

Worksheets("Sheet1").Range("A1").Sort_

key1 :=Worksheets("Sheet1").Range("A1")

Set currentCell = Worksheets("Sheet1").Range("A1")

Do While Not IsEmpty(currentCell)

    Set nextCell = currentCell.Offset(1, 0)

    If nextCell.Value = currentCell.Value Then

        currentCell.EntireRow.Delete

    End If

    Set currentCell = nextCell

Loop

End Sub

    Do循环具有很强的适应性，但使用时必须保证在循环体内有产生循环结束的程序代码，以避免出现死循环。譬如，在本例中若没有Set currentCell = nextCell语句，就会出现死循环。
    VBA提供了功能强大的分支结构和循环结构。如果能将循环控制结构与条件控制结构联合使用，则可以设计出灵活多变、功能强大的宏。
   

3. 自定义函数

    在VBA的整个程序结构中，自定义函数是非常重要且十分方便的工具。
    自定义函数的结构与过程的结构非常相似，只是自定义函数的参数是必不可少的，且具有返回值。其基本结构如下所示：
    Function 〈函数名〉（〈参数1〉，〈参数2〉，…）
   

〈语句块〉
End Function

    下面举例说明用户如何建立自定义函数。
    Excel和Visual Basic都有产生0与1之间随机数的函数。Excel的随机函数RAND( )可用于工作表，而Visual Basic的随机函数Rnd只能用于Visual Baisc宏。现建立一个可随时随地调用，不受上述限制的产生随机数的自定义函数Random。其宏程序如下：
   

Function Random(Optional  Midpoint = 0.5, Optional Range = 0.5, Optional Round = False)

Application.Volatile True

Random = Rnd * (Range * 2) + (Midpoint - Range)

If Round Then

    Random = CLng(Random)

End If

End Function

    其中：
    函数的参数Midpoint、Range、Round描述了随机数区间，依次给出了：区间中点、正负范围、是否对随机数进行四舍五入取整运算。
    函数参数前的关键字Optional设定参数为可选项，参数后用等号给出参数的默认值。
    Application.Volatile True语句使得该函数为易失函数。对于大多数函数，只有当与函数的参数相关联的单元格值改变时，才重新计算。而有些函数（如Excel中的RAND( )函数），只要工作表任何一个单元格的值发生变化或按F9键，便重新计算，具有这种性质的函数称为易失函数。
    函数CLng将一个数舍入成整数，再转换为长整型。
    例如，选定某一单元格，键入下列公式：
    =Random(1000,500,True)
    则在此单元格产生1000-500到1000+500，即500到1500之间的随机整数。