在VBA中,`If`语句用于根据特定条件执行不同的代码块。以下是`If`语句的基本结构和用法示例:
基本结构
单行写法
```vba
If 条件 Then
' 条件为真时执行的语句
Else
' 条件为假时执行的语句
End If
```
多行写法
```vba
If 条件 Then
' 条件为真时执行的语句1
' 条件为真时执行的语句2
' ...
Else
' 条件为假时执行的语句1
' 条件为假时执行的语句2
' ...
End If
```
示例
单行写法示例
```vba
Sub Test1()
Dim n As Integer, x As Integer
n = 2
x = 1
If n > x Then
MsgBox "n比x大"
End If
End Sub
```
多行写法示例
```vba
Sub Test2()
Dim n As Integer, x As Integer
n = 2
x = 1
If n > x Then
MsgBox "n比x大"
Else
MsgBox "x比n大"
End If
End Sub
```
带有`Else`的示例
```vba
Sub Test3()
Dim n As Integer, x As Integer
n = 3
x = 5
If n > x Then
MsgBox "n比x大"
Else
MsgBox "x比n大"
End If
End Sub
```
复杂条件示例
```vba
Sub Test4()
Dim i As Integer
For i = 1 To 10
If Cells(i, 1).Value = "" Then
Cells(i, 2).Value = "VBA教研室"
End If
Next i
End Sub
```
注意事项
`If`语句必须与`Then`搭配使用,且`End If`是可选的,但若`Then`后面需要另起一行,则必须使用`End If`来结束`If`语句。
如果条件不成立,系统会略过`If`语句,直接执行`Else`后面的代码(如果有的话)。
通过以上示例和说明,你可以根据不同的需求选择合适的`If`语句写法,实现各种条件判断和逻辑处理。