VBA第三讲.ppt

VBA第三讲 Ch5 循环和流程控制 主讲人：宋明 基本循环结构 For … Next Do … Loop While … Wend 注：1）For … Next能实现的循环，Do … Loop 也能实现，反之亦然。 For循环适用于有明确的循环指针，当指针不显然时Do循环表现更好，对不同的问题我们可以选择不同的循环结构。 2）While … Wend相当于Do While … Loop，是老版本的Excel中的语句，不推荐使用。 For … Next 语法 For condition Statements Next counter An Example of “For … Next” For I = 1 to 10 Cells(I, I).value = I Next I ’ 给工作表的第I行第I列赋值I ’ 循环结束后I=11 !!! Another Example 有一个Invoice工作表，找出ServiceRevenue大于0的发票，在末尾标注“Service Revenue”，并把该行染成绿色。 变量作循环指针的上/下限 例子： FinalRow = Cells(65536, 1).End(xlUp).Row For i = 2 To FinalRow If Cells(i, 6).Value 0 Then Cells(i, 8).Value = Service Revenue Cells(i, 1).Resize(, 8).Interior _ .ColorIndex = 4 End If Next i Step 和 Exit For 类似“For I = 10 to 2 … Next I”的循环通常是不会执行的，因为指针上限小于下限。这时就需要加上Step 从句。Step从句还可以控制循环的步长。 使用Exit For语句可以随时退出循环，避免多余的循环。 Examples for “Step integer” ’将工作表隔行染成绿色 FinalRow = Cells(65536, 1).End(xlUp).Row For i = 2 To FinalRow Step 2 ’ “Step 2”使得每次I递增2 ’而不是缺省值1 Cells(i, 1).Resize(, 8).Interior _ .ColorIndex = 35 Next i ’每10张发票中抽取一张作取样，拷贝到样本区 For j = 2 To FinalRow Step 10 ’步长设为10 Cells(j, 1).Resize(, 8).Copy _ Destination:=Cells(NextRow, 1) Next j ’从最后一行往上查找，删除代码为“S54”的发票 ’用“Step negative number ”反向循环 For k = FinalRow to 2 Step –1 If Cells(k, 3).value = “S54” then Cells(k, 1).EntireRow.Delete End If Next k Exit For实例 For i = 2 To FinalRow If Cells(i, 6).Value 0 Then If Cells(i, 5).Value = 0 Then Cells(i, 6).Select ProblemFound = True Exit For End If End If Next i 循环嵌套的例子 For I = 2 To FinalRow …… For J = 2 To FinalColumn …… Next J Next I Do … Loop 语法 Do [condition] Loop [condition] 当循环次数很大或者无法确定循环次数时，Do循环是个很好的选择。 为了防止无穷次循环，VBA提供了While从句和Until从句作为循环判断。 循环判断既可以位于循环前，也可以位于循环后。 与For循环类似，也可以使用“Exit Do”命令退出Do循环. Do循环实例 右图为一地址列表。 我们需要将表格做成数据库格式，姓名在B列，街道在C列，城市和州名在D列。 先用宏录制基本动作 然后添加Do … Loop语句。 While Until “Until condition” = “While Not c