2016 - 2024

感恩一路有你

Excel VBA中if语句的用法详解

浏览量:1561 时间:2024-01-18 09:46:23 作者:采采

我们都知道,作为程序,VBA有两大结构,一个是if语句,一个是循环语句。在VBA中,if语句是一种基本的语句结构,也是非常广泛使用的语句,具有很强的实用性。下面将详细介绍VBA中if语句的用法。

1. if语句的含义

if语句的字面意思是“如果”的意思,也就是说,如果条件为真,那么就执行if语句里面的程序。这个程序一般指then后面的内容。一个if语句可以没有end if语句,但绝对不能没有then语句,这一点需要注意。

2. 结构

结构一般用于比较简单的判断语句执行。下面以一个实例程序来讲解:

Sub 判断语句()
    If Cells(1, 1) <> "" Then
        MsgBox "单元格不为空"
    End If
End Sub

以上程序的功能是:如果第一个单元格不为空,那么就弹出一个提示框“单元格不为空”。

3. if结构

if结构用于单选择判断语句执行。具体用法如下实例:

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

以上程序的功能是:对于第一列的第一行到第十行单元格,如果单元格为空值了,那么在相应的第二列单元格输出“VBA教研室”。

4. if结构

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

Sub 判断语句()
    Dim i As Integer
    For i  1 To 2
        If Cells(i, 1)  "" Then
            Cells(i, 2)  "false"
        Else
            Cells(i, 2)  "Ture"
        End If
    Next
End Sub

以上程序的功能是:对于第一列的第1、2行两个单元格做判断,如果单元格值为空,则在相应的第二列单元格输出“false”,否则输出“True”。

5. if结构

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

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

以上程序的功能是:对三名同学的成绩作出判断,大于等于80分的为“优秀”;60到80之间的为“及格”;0到60分之间的为“不及格”;0分为“考试无效”。

6. if语句嵌套使用

if语句可以灵活地嵌套使用。如下面这个示例程序:

Sub 判断语句()
    If Cells(1, 1) <> "" Then
        If Cells(1, 1)  "VBA教研室" Then
            MsgBox "OK!"
        Else
            MsgBox "NO!"
        End If
    End If
End Sub

以上程序的功能是:如果第一个单元格不为空,并且其值为“VBA教研室”,那么就弹出一个提示框“OK!”,否则弹出一个提示框“NO!”。

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。