VBA教材-常用语句透析.docVIP

VBA教材】41.常用语句透析（十五） 2011-06-17 23:11:22???来源：???评论：0 点击：9 循环语句（又称控制结构），它可能重复执行一系列代码，从而批量地完成工作任务。循环语句在实际工作中应用极广，且因为循环语句不可能利用录制宏产生，所以必须潜心掌握它的语法与结构。本节开始，对循环语句进行详细地语法剖析及实例演示。循环语句主要包括以下几类：?For Next?For Each Next?Do Loop?Do While Loop本节对For Next语句进行剖析。工作中，我们可以使用 For...Next 语句去重复一个语句块，它的循环次数可以自由指定，循环的步骤也可以自由指定。For Next循环语句的基本语法如下：For counter = start To end [Step step][statements][Exit For][statements]Next [counter]语法列表中包括五个部分，其参数详解如表41-1所示。表41-1 For Next语法详解 部 分 描 述 counter 必要参数。用做循环计数器的数值变量。这个变量不能是 Boolean 或数组元素 start 必要参数。counter 的初值 End 必要参数，counter 的终值 Step 可选参数。counter 的步长。如果没有指定，则 step 的默认值为 1 Statements 可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数 其中counter是计数器变量，由用户声明；而start和end则表示计数器的起止范围，用户可以根据需求定义这个范围；而step表示步长，即计数器累加的单位。它可以是正数，也可以是负数，但是不能为0，且不能大于End、不能小于Star。当循环开始后，计数器逐步累加，累加值由步长决定；Statements则是循环语句的核心，虽然它是可选参数，然而如果忽略此参数，所有循环都失去意义。例如小学数学中常有1累加到100这类速算题，如果利用VBA循环来处理，可以零点几秒钟计算完成，代码如下：____________________________________________Sub 累加1到100()声明变量Dim Item As Integer, Sums As Integer指定步长和循环的起止范围For Item = 1 To 100 Step 1累加计数器(其中变量Sums初始化时值为0)Sums = Sums + Item执行下一个Next Item报告最后结果MsgBox SumsEnd Sub____________________________________________在该过程中，循环的范围是1到100，循环的步长为1，而默认状态即为1，所以本例中的步长也可以忽略不写，VBA自动按1计算。为了获取1到100的累加值，需要使用一个中间变量，该变量本身为0，仅仅在循环中逐个累加计数器，直到循环结束。最后直接报告变量的值即为需求的结果。也可以从最大值递减至最小值，那么步长需要使用负数。代码如下：____________________________________________Sub 累加1到100()声明变量Dim Item As Integer, Sums As Integer指定步长和循环的起止范围For Item = 100 To 1 Step -1累加计数器（其中变量Sums初始化时值为0）Sums = Sums + Item执行下一个Next Item报告最后结果MsgBox SumsEnd Sub____________________________________________此过程与上一个过程执行结果完全相同，仅在写法上不同。 【VBA教材】42.常用语句透析（十六） 2011-06-17 23:11:25???来源：???评论：0 点击：4 本节介绍在For…Next语句中步长值正负对过程的影响及如何调整步长来提升程序效率。在前一节的实例中，步长值正负都取了相同的结果。但是在某些特殊情况下，步长为正数还是负数对结果有很大的影响。例如通过循环来删除工作表中前20行（仅演示用），那么使用正负步长会产生截然不同的结果，对比步骤如下：1.单击菜单【插入】【模块】；2.在模块代码窗口中录入以下两段代码：_________________________________________Sub 循环删除前20行A()声明变量Dim Item As Integer, Sums