VBA基础2.ppt

VBA 基础(二) Do … loop 循环语句,直到满足某个条件?例1 Sub 循环示例 1() Do Dim a% a = a+1 Loop End Sub 打开本地窗口,单步运行,我们看到程序在 a=a+1 及 Loop 之中反复执行,陷入死循环。两者中间加入: If a > 10 Then MsgBox a & ”终于大于 10 “ Exit Do End If ?例2 Sub 循环示例 2() Dim rs% Do rs = rs+1 If rs >10 Then Exit Sub Else If Cells(rs,2) >=3000 Then Cells(rs,3) = “√” End if Loop End Sub 姓名工资 a12500 a22875 a33100 a42985 a53140 a65600 a72416 a84535 a92145 Do While … Loop ?例3 Sub 循环示例 3() Dim rs% rs = 2 Do While Cells(rs,2) <> ””‘当单元格不等于空时,则循环 If Cells(rs,2) >=3000 Then Cells(rs,3) = “√” rs = rs+1 Loop ‘循环 End Sub Do until … loop ?例4 Sub 循环示例 4() Dim x% x=2 Do Until Cells(x,2) = “”‘直到单元格为空为止,才结束 If Cells(x,2) >=3000 Then Cells(x,3) = “√” x = x+1 Loop ‘循环 End Sub ?例5实例-隔行填色 Sub 隔行填色() Dim x% x = 2 Do Until ( “a” & x) = “” ( “a” & “:g” & x).