excel VBA经常忘记的代码if

(1)VBA   if 用法：

if  ...  then ... else ....一行的写法               

if  条件  then 成立执行语句 else 不成立执行的语句   一行的写法

If a > 2 Then Cells(1, "A") = 1 Else Cells(1, "A") = 0

If a > 2 Then Cells(1, "A") = 1 Else: Cells(1, "A") = 0

这里Else直接空格 或者加":"都是可以的    

常用多行写法：

if  ... then 

　　 ....

elseif ...then

　　....

else:

　　 ....

end if

end if 经常忘记写不要忘记！

写个例子免得忘了：

Sub if用法()
a = 3
b = 2
If a > b Then

　　Cells(3, "R") = 0

ElseIf a = b Then

　　Cells(3, "R") = 1

Else:

　　Cells(3, "R") = 2

End If
End Sub

以前写的例子：

Sub 多条件判断()
If Sheet1.Range("b2") >= 90 Then
　　Sheet1.Range("b3") = "优秀"
ElseIf Sheet1.Range("b2") >= 80 Then
　　Sheet1.Range("b3") = "良好"
ElseIf Sheet1.Range("b2") >= 60 Then
　　Sheet1.Range("b3") = "合格"
Else: Sheet1.Range("b3") = "不合格"
End If
End Sub

函数if的用法：=if(条件,成立表达式,不成立表达式)

例子： =if(A3>10,"对的",A3*5)     

if(logical_test,value_if_true,value_if_false)