简单的IF分支语句，写在一行

编写VBA代码比录制宏优秀的一个地方，在于可以执行分支循环的操作。

今天介绍分支语句。

先看以下一段代码：

像以上三行代码就是顺序的结构，做完第一件事情，做第二件事情，做完第二件事情做第三十件事情。

顺序结构行走示意图如下：

分支语句就会根据条件，选择不同的线路。

也就是条件成立，做一件事情，条件不成立，做另一件事情。

如下图所示。

假设Excel中A1单元格有内容，根据A1的内容进行判断，输出不同的结果。

我们按以前的方法绘制按钮，编写最简单的代码。

按钮的代码如下效果。

Private Sub CommandButton1_Click()

If [a1].Value = "男" Then MsgBox "帅哥"

End Sub

[a1].value就是指A1单元格的值

运行之后，显示如下效果。

如果把A1的值更改为“女”，再运行一下会如何显示？

点击按钮，什么反应也没有。

因为你代码中只写了如果男的，显示为帅哥，如果要两个都作判断，代码进行如下修改。

Private Sub CommandButton1_Click()

If [a1].Value = "男" Then MsgBox "帅哥" Else MsgBox "美女"

End Sub

但这样又有新的问题，你在A1单元格输入“人妖”，显示的也是美女。因为逻辑上看男的显示为帅哥，其他的显示为“美女”。

如果你有三种以上的判断，男的显示为“帅哥”，女的显示为“美女”,否则显示为”输入有误”。

这样就需要IF块语句，后面详细介绍。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。