Excel VBA中if语句的用法

office Excel

具备VB基础更好

if语句的含义  if语句字面意思就是如果的意思，如果条件为真，那么就执行if语句里面的程序，这个程序，一般指then后面的，一个if语句可以没有end if ，但绝对不能没有then，这一点是要注意的，

if……then……结构   该结构一般用于比较简单的判断语句执行，下面以一段实例程序来讲解实例：如果第一个单元格不为空，那么就弹出一个提示框”单元格不为空“程序：  Sub 判断语句()If Cells(1, 1) <> '' Then MsgBox '单元格不为空'End Sub

if……then……end if结构   该结构用于单选择判断语句执行，具体用法看下面实例实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出”VBA教研室“程序：Sub 判断语句()Dim i As IntegerFor i = 1 To 100 If Cells(i, 1) = '' Then    Cells(i, 2) = 'VBA教研室'    Exit For End IfNextEnd Sub

if ……then……else……end if结构  该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出false，否则输出Ture程序：Sub 判断语句()Dim i As IntegerFor i = 1 To 2 If Cells(i, 1) = '' Then    Cells(i, 2) = 'false' Else    Cells(i, 2) = 'True' End IfNextEnd Sub

if ……then……elseif……then……else……end if结构  该结构用于多条件判断语句执行，具体见下面实例分析实例：对三名同学的成绩作出判断，大于等于80分的为优秀；60到80之间的为及格；0到60分之间的为不及格；0分为考试无效。程序：Sub 判断语句()Dim i As IntegerFor i = 2 To 7 If Cells(i, 2) >= 80 Then    Cells(i, 3) = '优秀' ElseIf Cells(i, 2) < 80 And Cells(i, 2) >= 60 Then    Cells(i, 3) = '及格' ElseIf Cells(i, 2) < 60 And Cells(i, 2) > 0 Then    Cells(i, 3) = '不及格' Else    Cells(i, 3) = '考试无效' End IfNextEnd Sub

if语句嵌套使用  if语句可以灵活的嵌套使用的，如下面这套程序Sub 判断语句()Sub 判断语句()If Cells(1, 1) <> '' Then   If Cells(1, 1) = 'VBA教研室' Then        MsgBox 'OK！'    Else        MsgBox 'NO！'    End IfEnd IfEnd Sub

if语句运用的时候首先要确定好逻辑

上述图片实例中需要注意的是，有些为了能够让大家很好的明白，程序和显示可能差一步！