面讲了过程的声明,变量和常量的声明,以及赋值语句。今天咱们聊聊IF…Then…Else语句。 在工作表中,写公式时大家对IF函数应该不陌生,根据条件的不同,返回不同的值。 在VBA中,我们通过使用IF语句实现根据表达式的值有条件的执行一组语句。 语法 单行形式 IF 条件 Then 语句1 Else 语句2 条件一般为数据表达式或字符串表达式,其运算结果为True或False。 在没有Else子句时,语句1则为必选参数。有Else语句时语句2则为必选参数 Dim a As Integer, b As Integer a= 10 b= 20 If a > b Then Else MsgBox 'a小于b' 在单行模式下也可以执行多条语句。要求所有的语句必须在同一行上并且以冒号分开 Dim a As Integer, b As Integer, c As Boolean a= 10 b= 20 If a > b Then Else MsgBox 'a<b': c = a > b
提供更强的结构化与适应性,并且通常也是比较容易阅读、维护及调试。 要决定某个语句是否为一个 If 块,可检查 Then 关键字之后是什么。
If 条件 Then 语句1 … a= 10 b= 20 If a > b Then
语句1 Elseif 条件2 Then Elseif 条件3 Then 语句3 Else 其他语句… End if
Else 和 ElseIf 子句都是可选的。在 If 块中,可以放置任意多个ElseIf 子句,但是都必须在 Else 子句之前。 例如: Dim lChenji As Byte Dim strResult As String lChenji = 50 If lChenji > 90 Then '条件1:成绩是否大于90分 strResult = '优秀' ElseIf lChenji > 80 Then '条件2:成绩是否大于80分 strResult = '良好' ElseIf lChenji >= 60 Then '条件3:成绩是否大于等于60分 strResult = '及格' Else '所有以上条件都不满足时,不及格 strResult = '不及格' End If MsgBox strResult
|
|
来自: fzchenwl > 《excel精英培训》