VBA中的IF语句应用

点击上面"Excel公式与技巧"篮字关注公众号

点击文章底部左下角"阅读原文"即可学习视频
学习建议【看千遍不如操作练习一遍】
微信号【duanzhenyun】加微信邀请进交流群

推荐学习120个技巧（包含常用技巧，条件格式，数据透视表及打印技巧），超过6个小时视频讲解，点击文章底部阅读原文即可购买学习。

长按下面二维码；点击上面"识别图中二维码"然后再点关注，可以收到更多Excel教程；或者加入QQ交流群657629885或者加我微信邀请进微信群duanzhenyun，让我们一起学习Excel函数公式与技巧应用。

VBA判断语句If...Then..Else...
If判断的条件Then
判断条件结果为True执行的结果和操作
Else
判断条件结果为False执行的结果和操作
End If

栗子1
判断一个单元格有无内容，有就显示输入的内容，无就显示没有输入内容，效果如下动画。

代码如下：

Sub test()

复制代码

If Range("a1").Value = "" Then

复制代码

MsgBox "没有输入内容"

复制代码

Else

复制代码

MsgBox "已输入内容" & " 【" & Range("a1") & "】"

复制代码

End If

复制代码

End Sub

复制代码

栗子02
判断下图中每个人销量的提成比例，销量小于50的2%，大于等于50小于100的5%，大于等于100小于150的7%，其它的10%

动画效果如下：

代码如下：

Sub 提成比例判断()

复制代码

Dim a As Byte

复制代码

Dim row As Byte

复制代码

row = 2

复制代码

For row = 2 To 11 Step 1

复制代码

If Range("B" & row).Value >= 150 Then

复制代码

Range("C" & row).Value = "10%"

复制代码

ElseIf Range("B" & row).Value >= 100 Then

复制代码

Range("C" & row).Value = "7%"

复制代码

ElseIf Range("B" & row).Value >= 50 Then

复制代码

Range("C" & row).Value = "5%"

复制代码

Else

复制代码

Range("C" & row).Value = "2%"

复制代码

End If

复制代码

Next row

复制代码

End Sub

复制代码

也可以用select语句判断多条件，代码如下：

Sub 提成比例判断select()

复制代码

Dim a As Byte

复制代码

Dim row As Byte

复制代码

row = 2

复制代码

For row = 2 To 11 Step 1

复制代码

Select Case Range("B" & row).Value

复制代码

Case Is >= 150

复制代码

Range("C" & row).Value = "10%"

复制代码

Case Is >= 100

复制代码

Range("C" & row).Value = "7%"

复制代码

Case Is >= 50

复制代码

Range("C" & row).Value = "5%"

复制代码

Case Else

复制代码

Range("C" & row).Value = "2%"

复制代码

End Select

复制代码

Next row

复制代码

End Sub

复制代码

更多Excel函数使用及技巧可以打开公众号，点开历史文章，然后在顶部搜索技巧或者函数即可，如不会可点击红色字体跳转连接看操作步骤，如何利用公众号搜索功能查资料
[url=http://mp.weixin.qq.com/s?__biz=MzI5ODc3ODAyNg==&mid=2247486765&idx=1&sn=d80557ae49fd69a0239f78e451740124&chksm=eca1e1e8dbd668fe61ddb478f515634afbb4733785a760b048cac2bfad0747b23dc78a4bfef7&scene=21#wechat_redirect][/url]
喜欢本文，请点这里