VBA实战入门教程（四）：判断位数、奇偶性、迟到早退等，都得用它！
编按：哈喽，大家好！今天是第四篇VBA实战入门教程，我们将给大家带来VBA中最常见语句之一，判断语句。典型的判断语句有2种，分别是IF判断语句和SELECT判断语句。学习更多技巧，请收藏关注部落窝教育excel图文教程。
【前言】
上一篇的循环语句同学们都学会了吗？如果没有学会，那就需要再给自己一些压力，因为有可能你又一次输给了其他人。人生就是这样，短短几十年，恍惚即过，你可以一直以“没时间”、“记不住”为借口哄骗自己，也可以“对自己狠一些”，反正最后的结果无论好与坏，都需要自己面对。
无论你有没有学会，下面又有一个重要的EXCEL VBA语句即将登场，为什么来的如此之快，因为它是“循环语句”的CP——“判断语句”，工作实战中有了“循环”必见“判断”！
【正文】
在日常工作中，我们往往需要在众多的“对象集”中遍历每一个对象，从而达到处理数据的结果，无论是EXCEL、ACCESS、ERP都是如此，即便像高级语言PYTHON、JAVA也同样会有循环语句结构，这就是关系型数据的处理特点。但是我们在循环的过程中，因为各种需求的不同，所以不是所有的数据内容都是我们需要的。
那就要对每一行数据条进行甄别，让计算机代替我们判断，是需要的则处理，不需要的就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的范围为2到10，因为我们是遍历单元格，逐行判断，所以循环变量应该以单元格的行号作为循环依据，所以是ROW2到ROW10；
Line3：Cells(i, 1)说明是某一行和第一列的交点单元格，当i变量为2，3，4，…，10时，对应的单元格地址就是A2，A3，A4，…，A10。用LEN函数提取单元格字符串的长度，判断是否等于18；
Line4：如果判断条件满足，则Cells(i, 2)对应的B列单元格中输入“18位”；
Line5：判断语句的结束语句；
Line6：循环语句的结束语句；
Line7：With语句的结束语句。
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的循环范围是2到a，循环每一行数据（不含表头）；
Line4：判断单元格Cells（i，1）第一列每一个单元格，除以2求余（Mod函数）是否等于0；
Line5：如果等于0，则对应的Cells（i，2）单元格，赋值“偶”；
Line6：Else，不满足上面条件的情况时；
Line7：则对应的Cells（i，2）单元格，赋值“奇”；
Line8：判断语句的结束语句；
Line9：循环语句的结束语句；
Line10：With语句的结束语句。
小知识
Mod函数，在工作表函数中也有它的身影，但是在EXCEL VBA中它的语法有些不同，教同学们一个记住它的方法：在VBA中你可以把它理解为一个“运算符号”，例如4/5、6*8、21-6这样的算式，求余就是235 Mod 62，表示235除以62的余数。
（示例3）需求，按照制度，制作每个人的提成。
不要觉得我们一直在讲基础，对于VBA来说，没有绝对的基础，漏掉哪一个环节都有可能让你使用VBA的过程不顺畅。我们现在就利用判断语句，解决一个同学们工作中的实际问题。学习更多技巧，请收藏关注部落窝教育excel图文教程。
数据源就不用多说了，作者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判断语句最全的写法了，基本涵盖了所有和判断语句有关的内容。介于篇幅，也考虑到同学们需要有思考的空间，上面这段代码，就不给出代码解析的过程，正题思路就是一个IF（IF（IF））的嵌套使用。
小知识
如果有两个条件都需要满足，我们可以使用AND，依然和IF工作表函数一样的用法，但是不一样的是语法为“条件1 AND 条件2 AND 条件N”；如果是多条件取其一，就用OR，“条件1 OR 条件2 OR 条件N”；如果是更加复杂的情况，如：（条件1 AND 条件2） OR 条件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的判断条件是.Cells（i，4）单元格的时间内容；
Line6：逐条判断Case Is给定的条件，满足则执行相关语句命令行，并跳转到End Select；如果不满足，则执行下一个Case Is条件；
……；
Line15：循环变量加1（进行下一次循环）；
Line16：循环语句的结束语句；
Line17：With语句的结束语句。
整体的思路和IF判断语句是一样的，作者E图表述，还是希望大家多看看IF判断，毕竟写法上和我们日常理解的IF很像，写代码时的思路更好梳理。
【编后语】
判断语句就先讲到这里了，当然有的同学会说，判断里面还有一种IIF的写法，基本和工作表函数的IF函数一致，但是不适合写比较复杂的条件过程，所以此处略过，只是上面的内容，就足够大家日常使用了。学习更多技巧，请收藏关注部落窝教育excel图文教程。
＊＊＊＊部落窝教育-excel判断语句应用基础＊＊＊＊
原创：E图表述/部落窝教育（未经同意，请勿转载）
更多教程：部落窝教育