二维码 购物车
部落窝在线教育欢迎您!

VBA实战入门教程(四):判断语句

 

作者:E图表述来源:部落窝教育发布时间:2020-05-21 17:02:13点击:286

分享到:
0
收藏    收藏人气:0人
版权说明: 原创作品,禁止转载。

编按:

哈喽,大家好!今天是第四篇VBA实战入门教程,我们将给大家带来VBA中最常见语句之一,判断语句。典型的判断语句有2种,分别是IF判断语句和SELECT判断语句。赶紧来看看吧!

 

【前言】

 

上一篇的循环语句同学们都学会了吗?如果没有学会,那就需要再给自己一些压力,因为有可能你又一次输给了其他人。人生就是这样,短短几十年,恍惚即过,你可以一直以“没时间”、“记不住”为借口哄骗自己,也可以“对自己狠一些”,反正最后的结果无论好与坏,都需要自己面对。

 

无论你有没有学会,下面又有一个重要的EXCEL VBA语句即将登场,为什么来的如此之快,因为它是“循环语句”的CP——“判断语句”,工作实战中有了“循环”必见“判断”!

 

【正文】

 

在日常工作中,我们往往需要在众多的“对象集”中遍历每一个对象,从而达到处理数据的结果,无论是EXCELACCESSERP都是如此,即便像高级语言PYTHONJAVA也同样会有循环语句结构,这就是关系型数据的处理特点。但是我们在循环的过程中,因为各种需求的不同,所以不是所有的数据内容都是我们需要的。

 

那就要对每一行数据条进行甄别,让计算机代替我们判断,是需要的则处理,不需要的就PASS

 


一、IF判断语句

 


其实大家对判断语句应该并不陌生,因为工作表函数中就有IF判断函数,如此的经典,VBA又岂能放过。

 

1.用一个小案例认识IF判断语句

 

示例1)需求,判断身份证号的位数是否正确。

 

 

如果看到这样的一组号码,不考虑号码的信息正误,只看位数,你很难知道它是否是18位,那么此时用代码来处理,就显得很方便了,如下:

 

Sub 判断身份证号位数正误()

  With Sheets("IF判断语句")

    For i = 2 To 10

      If Len(.Cells(i, 1)) = 18 Then

        .Cells(i, 2) = "18"

      End If

    Next i

  End With

End Sub

 

 

【代码解析】

 

Line1使用工作表“IF判断语句”作为代码中引用对象的统一父级对象;

Line2规定循环变量i的范围为210,因为我们是遍历单元格,逐行判断,所以循环变量应该以单元格的行号作为循环依据,所以是ROW2ROW10

Line3Cells(i, 1)说明是某一行和第一列的交点单元格,当i变量为23410时,对应的单元格地址就是A2A3A4A10。用LEN函数提取单元格字符串的长度,判断是否等于18

Line4如果判断条件满足,则Cells(i, 2)对应的B列单元格中输入“18位”;

Line5判断语句的结束语句;

Line6循环语句的结束语句;

Line7With语句的结束语句。

 

2.IF判断语句的语法


从上面的示例1我们可以看出,当判断条件满足时,返回对应的结果,但却留下了很多空单元格。下面我们就正式的了解一下IF判断函数的语法,如下:

 

 

这就是IF判断语句的完整语法,和IF函数一样,当满足某一级判断时,返回相应结果,并跳出此次判断。这其中的ElseIF语句,就相当于IF函数的嵌套使用,Else就相当于IF函数的False_value

 

3.通过案例学会IF判断语句

 

处于实战的考虑,我们继续看两个案例,帮助大家能够更好地了解IF判断语句的用法,如下:

 

示例2)需求,判断A列数值的奇偶性。代码如下:

 

Sub 奇偶性()

  With Sheets("奇偶性")

    a = .[A1].End(4).Row

    For i = 2 To a

      If .Cells(i, 1) Mod 2 = 0 Then

        .Cells(i, 2) = ""

      Else

        .Cells(i, 2) = ""

      End If

    Next i

  End With

End Sub

 

 

【代码解析】

 

Line1使用工作表“奇偶性”作为代码中引用对象的统一父级对象;

Line2使用单元格End属性和Row属性,找到数据范围末行的行号,并赋值给变量a

Line3规定循环变量i的循环范围是2a,循环每一行数据(不含表头);

Line4判断单元格Cellsi1)第一列每一个单元格,除以2求余(Mod函数)是否等于0

Line5如果等于0,则对应的Cellsi2)单元格,赋值“偶”;

Line6Else,不满足上面条件的情况时;

Line7则对应的Cellsi2)单元格,赋值“奇”;

Line8判断语句的结束语句;

Line9循环语句的结束语句;

Line10With语句的结束语句。

 

小知识


Mod函数,在工作表函数中也有它的身影,但是在EXCEL VBA中它的语法有些不同,教同学们一个记住它的方法:在VBA中你可以把它理解为一个“运算符号”,例如4/56*821-6这样的算式,求余就是235 Mod 62,表示235除以62的余数。

 

示例3)需求,按照制度,制作每个人的提成。

 

不要觉得我们一直在讲基础,对于VBA来说,没有绝对的基础,漏掉哪一个环节都有可能让你使用VBA的过程不顺畅。我们现在就利用判断语句,解决一个同学们工作中的实际问题。

 

 

数据源就不用多说了,作者E图表述在以往的文章中说过很多了,包括区间的写法。下面直入正题,代码如下:

 

Sub 提成计算()

  With Sheets("计算提成")

    a = .Range("A1").End(4).Row

    For i = 2 To a

      If .Cells(i, 3) < 100 Then

        .Cells(i, 4) = "销售额*85%*1%"

        .Cells(i, 5) = .Cells(i, 3) * 0.85 * 0.01

      ElseIf .Cells(i, 3) >= 100 And .Cells(i, 3) < 200 Then

        .Cells(i, 4) = "销售额*85%*2%"

        .Cells(i, 5) = .Cells(i, 3) * 0.85 * 0.02

      ElseIf .Cells(i, 3) >= 200 And .Cells(i, 3) < 500 Then

        .Cells(i, 4) = "销售额*85%*3%"

        .Cells(i, 5) = .Cells(i, 3) * 0.85 * 0.03

      Else

        .Cells(i, 4) = "销售额*80%*8%"

        .Cells(i, 5) = .Cells(i, 3) * 0.8 * 0.08

      End If

    Next i

  End With

End Sub

 

 

这算是IF判断语句最全的写法了,基本涵盖了所有和判断语句有关的内容。介于篇幅,也考虑到同学们需要有思考的空间,上面这段代码,就不给出代码解析的过程,正题思路就是一个IFIFIF))的嵌套使用。

 

小知识


如果有两个条件都需要满足,我们可以使用AND,依然和IF工作表函数一样的用法,但是不一样的是语法为“条件1 AND 条件2 AND 条件N”;如果是多条件取其一,就用OR,“条件1 OR 条件2 OR 条件N”;如果是更加复杂的情况,如:(条件1 AND 条件2OR 条件3,意思就是条件1和条件2都满足,或者只有条件3独立满足。这个逻辑过程,可以举一反三。

 

 

二、SELECT判断语句

 

 

因为IF函数已深入人心,所以我们开篇就讲解了IF判断语句,其实在EXCEL VBA中还有另一种判断语句的写法,就是SELECT判断语句,语法如下:

 

 

我们看一个案例说明问题,考勤统计:

 

 

不考虑旷工和漏打卡的情况,这个案例单纯的就为了说明SELECT判断语句的用法,代码如下:

 

Sub 迟到早退()

  With Sheets("考勤")

    a = .[C1].End(4).Row

    i = 2

    Do While i <= a

      Select Case .Cells(i, 4)

        Case Is <= TimeSerial(8, 0, 0)

          .Cells(i, 5) = "上午正常"

        Case Is <= TimeSerial(12, 0, 0)

          .Cells(i, 5) = "上午迟到"

        Case Is < TimeSerial(17, 0, 0)

          .Cells(i, 5) = "下午早退"

        Case Else

          .Cells(i, 5) = "下午正常"

      End Select

      i = i + 1

    Loop

  End With

End Sub

 

 

【代码解析】

 

Line1引用“考勤”工作表为整体父级对象;

Line2确定末行的行号,并赋值给a变量;

Line3确定Do While的循环变量i的初始值为2(从工作表的第2行开始);

Line4给定循环的条件,不能超过最大数据范围a

Line5确定Select Case的判断条件是.Cellsi4)单元格的时间内容;

Line6逐条判断Case Is给定的条件,满足则执行相关语句命令行,并跳转到End Select;如果不满足,则执行下一个Case Is条件;

……

Line15循环变量加1(进行下一次循环);

Line16循环语句的结束语句;

Line17With语句的结束语句。

 

整体的思路和IF判断语句是一样的,作者E图表述,还是希望大家多看看IF判断,毕竟写法上和我们日常理解的IF很像,写代码时的思路更好梳理。

 

【编后语】

 

判断语句就先讲到这里了,当然有的同学会说,判断里面还有一种IIF的写法,基本和工作表函数的IF函数一致,但是不适合写比较复杂的条件过程,所以此处略过,只是上面的内容,就足够大家日常使用了。还等什么,“留言”、“在看”、“关注”、“分享”一个不落的一波操作走起。

 

本文配套的练习课件请加入QQ群:1043683754下载。

Excel高手,快速提升工作效率,部落窝教《一周Excel直通车》视频和《Excel极速贯通班》直播课全心为你!

扫下方二维码关注公众号,可随时随地学习Excel

IMG_256

相关推荐:

VBA基础教程③《VBA实战入门教程(三):循环语句

VBA基础教程②《VBA系列基础教程(二):使用RANGE对象实现单元格偏移及确定首末行列号》

VBA基础教程①《VBA系列基础教程(一):excel中最常使用的对象——RANGE

VBA制作疫情地图《用excel制作全国动态疫情地图(VBA篇)》