按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
Do
语句1
语句2
语句N
Loop Until 条件
如果你想要程序至少执行一次，那么就将条件放置于Loop语句一行，无论条件的值是什么。
我们来试验一下下面的例子，该例子将工作簿里的空工作表删除。
1。 在你前面创建的DoLoop模块里输入下面的过程DeleteBlankSheets：
Sub DeleteBlankSheets（）
Dim myRange As Range
Dim shcount As Integer
shcount = Worksheetsunt
Do
116
… 页面 133…
Worksheets（shcount）。Select
Set myRange = ActiveSheet。UsedRange
If myRange。Address = 〃A1〃 And _
Range（〃A1〃）。Value = 〃〃 Then
Application。DisplayAlerts = False
Worksheets（shcount）。Delete
Application。DisplayAlerts = True
End If
shcount = shcount … 1
Loop Until shcount = 1
End Sub
2。 手动在当前工作簿里面插入一些工作表。在一个工作表里输入一些数据与单元格A1；另一个工
作表的单元格B2和C10里输入一些数据；第三个工作表里不要输入任何数据。
3。 运行过程DeleteBlankSheets。当你运行该过程时，无论何时，只要两个条件都为真——属性
UsedRange返回单元格A1并且A1为空，VB就会删除所选的工作表。属性UsedRange应用于对象
Worksheet，包含工作表中的每个非空单元格以及他们之间的空单元格。例如，如果你在单元
格B2和C10里输入里东西（译者：包括格式），使用了的区域为B2：C10。如果你后面又在A1
里输入了数据，那么UsedRange将会是A1：C10。已使用区域是一个从左上角最远的地方到
右下角最远的地方包围起来的区域。因为工作簿至少要保留一个工作表，所以代码执行到变量
shcount等于1时就停止了。语句shcount = shcount…1确保变量shcount在循环里面的代码每执
行一次就减少1。变量shcount的值在过程的开始处用下列语句：Worksheetsunt初始化了。
注意，当删除工作表的时候，Excel通常会显示一个确认对话框，如果你不想看到这个确认提
示框的话，就是要下列语句：
Application。DisplayAlerts = False
当你完成任务时，使用下列语句，再打开系统信息。
Application。DisplayAlerts = True
技巧6…3 计数器
计数器是个数字变量，用来追踪已进行的项目次数。上面的过程DeleteBlankSheets声明了变量
shcount来追踪检查的工作表个数。计数器变量必须在程序的开始就被初始化（赋值），这可以确保
你总能在开始使用之前知道计数器的确切值。计数器可以按照确定的值增加或减少。参见本章后面
的使用计数器的For…Next循环。
2。观察过程执行
当你使用循环结构运行过程时，有时很难看到该过程会按预期地执行。有时，你很想观察程序慢慢
地运行，这样你就能够检查该程序的逻辑。我们来看看VB如何让你一行接一行地执行程序。
1。 在单元格区域A1：A5里面输入任何数据
2。 选择单元格A1
3。 在Excel窗口，选择“工具”…“宏”…“运行宏”
4。 在宏对话框里，选择ApplyBold2并点击“单步执行”按钮。VB编辑屏幕将出现，过程的名称被
黄色加亮（参加图6…1）。注意代码窗口左边的黄色箭头。
117
… 页面 134…
图6…1 观察程序一行接一行地执行
5。 使VB窗口缩小一些，可以点击VB标题栏的“还原”按钮缩小窗口
6。 按下F8，黄色加亮区将跳到DoUntil IsEmpty（ActiveCell）行
7。 继续按F8，同时观察代码和工作表窗口
3。While…Wend 循环
While…Wend循环功能上和Do…While循环一样，它是从Microsoft Basic的早期版本遗留下来的并
且VBA保留它也是为了支持兼容性。该循环以关键字While开始以关键字Wend结束。这是它的语法：
While 条件
语句1
语句2
语句N
Wend
条件在循环的上面就被测试，只要提供的条件为真，这些语句就会被执行。一旦条件为假，VB就将
退出该循环。我们来看一个使用While…Wend循环结构的过程：
1。 在当前工程里插入一新模块，重命名为WhileLoop
2。 输入下述过程：
Sub ChangeRHeight（）
While ActiveCell 〃〃
ActiveCell。RowHeight = 28
ActiveCell。Offset（1； 0）。Select
Wend
End Sub
3。 在单元格区域B1：B4里输入一些数据
4。 选择单元格B1并且运行过程ChangeRHeight。当当前单元格不为空时，上面的过程
ChangeRHeight将设置行高位28。
118
… 页面 135…
4。For…Next 循环
当你知道你需要重复运行多少次某段语句时，可以使用For…Next语句。它的语法如下：
For 计数器 = 开始 To 结束 ＇步长＇
语句1
语句2
语句N
Next ＇计数器＇
括号里面的代码是可选的。计数器是个储存反复次数的数字型变量，开始是你期望的起始计数点，
结束则表明循环应该执行多少次。
例如，你想要重复执行循环里的语句5次，使用下述For语句：
For counter = 1 To 5
你的语句
Next
当VB遇到关键字Next时，它将回到循环的开始处，并且再次执行循环里面的代码，直到计数器到达
结束值。一旦计数器的值大于关键字To后面的数值，VB就会跳出循环。因为计数器变量在每次执行
循环后会自动地变化，它早晚会超出结束的值。每次VB执行循环里的语句后，变量计数器的值会默
认地增加1，你可以使用Step语句来改变这个默认设置。例如，要使计数器每次增加3，就可以使用
以下语句：
For counter = 1 To 5 Step 3
你的代码
Next counter
当VB遇到上面的语句，它会执行循环里的语句两次。在第一次的循环里，counter等于1，第二次则
等于4（3＋1）。在执行两次循环后，counter就等于7（4＋3），这导致VB退出该循环。
注意，步长（Step）是可选的。可选语句总是显示则方括号里面（参加本段开头部分的语法）。步
长不需要明确，除非它不等于1。你可以在Step后面放个负值作为步长，那么VB每次遇到关键字Next
后都会将计数器减小。
关键字Next后面的变量名称（counter）也是可选的，然而，好的编程习惯是要强制在关键字Next
后面加上计数器。
如何将For…Next循环使用在Excel里面呢？假使你只想要在你的销售报告里面包括某几个特定月
份的产品销售，当你从Access导入数据时，你同样也会将那些销售额为0的数据行一起导入。你如
何快速取出数据为0的行呢？尽管，有很多种方法可以解决这个问题，但是，我们来看看如何使用
For…Next循环来处理这个问题吧。
1。 在VB窗口，在当前工程里插入一个模块并且命名为ForNextLoop
2。 在ForNextLoop模块里输入下列过程：
Sub DeleteZeroRows（）
Dim totalR As Integer
Dim r As Integer
Range（〃A1〃）。CurrentRegion。Select
totalR = Selection。Rowsunt
Range（〃B2〃）。Select
For r = 1 To totalR…1
If ActiveCell = 0 Then
Selection。EntireRow。Delete
totalR = totalR – 1
Else
ActiveCell。Offset（1； 0）。Select
End If
Next r
End Sub
3。 切换到Excel界面，并且准备下述表格：
119
… 页面 136…
A B
1 Product Name Sales （in Pounds）
2 Apples 120
3 Pears 0
4 Bananas 100
5 Cherries 0
6 Blueberries 0
7 Strawberries 160
4。 运行过程DeleteZeroRows。
我们来一行接一行地检查一下过程DeleteZeroRows。开始两语句计算当前区域的总行数，并且将该
值储存于变量totalR，接下来，VB选择单元格B2然后遇到关键字For。因为电子表格的第一行包含
了列标题，所以要从总行数里减掉1（totalR…1）。VB将需要执行循环里面的指令6次。
嵌套在循环里面的条件语句（If…Then…Else）告诉VB根据当前活动单元格的值作出决定。如果该
值为0，VB就删除当前行，并且将总行数减掉1。否则，条件为假，因此，VB将选择下一行的单元格。
VB每完成一次循环，它就跳到关键字For来比较r的值和totalR…1的值。当过程结束后，销售表里就
不会包含没有销售的产品了。
技巧6…4 成对语句
For和Next必须是成对的，如果有一个漏掉了，VB就将产生一个错误信息“For没有Next”
5。For Each…Next 循环
当你的过程需要在一个集合的所有对象或者一个数组的所有元素（数组将在第七章里涉及）之间循
�