＜学习笔记＞VBA 第3~4节

第3节 判断语句

3.1 IF 语句

（1）单条件判断

If 判断条件 Then

执行语句

Else

执行语句

End If

（2）多条件判断1

If 判断条件1 Then

执行语句

Elseif 判断条件2 Then

执行语句

Elseif 判断条件3 Then

执行语句

Else

执行语句

End if

（3）多条件判断2

If 判断条件 And （or）判断条件 Then

执行语句

End if

3.2 Select 语句

（1）单条件判断

Select Case 对象

Case is 判断条件

执行语句

Case Else

执行语句

End Select

（2）多条件判断

Select Case 对象

Case is 判断条件

执行语句

Case is 判断条件

执行语句

Case Else

执行语句

End Select

3.3 IFF语句

变量=IFF(”判断语句“，“如果是执行的语句”，”如果不是执行的语句“)

第4节 循环语句

（1）For....Next

（2）作用于没有规律的区域

Dim rg As Range

For each rg in Range("d2:d18")

rg=rg.offset(0,-1)*rg.offset(0,-2)       ' offset表示通过rg值迁移的量定位的对象单元格

Next rg

Sub test()
    Dim rg As Range
    For Each rg In Range("c1:c18")
        rg = rg.Offset(0, -1) * rg.Offset(0, -2)
    Next rg
End Sub

（3）Do   循环语句  Loop Until 结束判断语句

（4）

Do While 结束判断语句 

执行语句

Loop