您的位置首页百科知识

Excel VBA中if语句的用法

Excel VBA中if语句的用法

的有关信息介绍如下:

Excel VBA中if语句的用法

我们都知道作为程序,它有两大结构,一个是if语句,一个是循环语句。在VBA中if语句即使基本的语句结构,也是用的非常广的语句,实用性也是非常强的,下面小编为大家分享VBA中if语句的详细用法!

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 Integer

For i = 1 To 100

If Cells(i, 1) = "" Then

Cells(i, 2) = "VBA教研室"

Exit For

End If

Next

End Sub

if ……then……else……end if结构

该结构用于事件只有两个可能的情况先选择的判断语句,具体见下面实例分析

实例:对于第一列的第1,2行两个单元格做判断,如果单元格值为空,则在相应的第二列单元格输出false,否则输出Ture

程序:

Sub 判断语句()

Dim i As Integer

For i = 1 To 2

If Cells(i, 1) = "" Then

Cells(i, 2) = "false"

Else

Cells(i, 2) = "True"

End If

Next

End Sub

if ……then……elseif……then……else……end if结构

该结构用于多条件判断语句执行,具体见下面实例分析

实例:对三名同学的成绩作出判断,大于等于80分的为优秀;60到80之间的为及格;0到60分之间的为不及格;0分为考试无效。

程序:

Sub 判断语句()

Dim i As Integer

For 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 If

Next

End Sub

if语句嵌套使用

if语句可以灵活的嵌套使用的,如下面这套程序

Sub 判断语句()

Sub 判断语句()

If Cells(1, 1) <> "" Then

If Cells(1, 1) = "VBA教研室" Then

MsgBox "OK!"

Else

MsgBox "NO!"

End If

End If

End Sub

本经验属于原创经验,快来赞哦!如果喜欢就为小编投上一票;如果觉得小编的内容你还感兴趣,就关注一下呗!