多条件IF判断，块IF语句

我们设计一个按钮，对A1单元格进行判断，如果只有两个情况，我们直接用IF一行代码即可以完成。

Private Sub CommandButton1_Click() If [a1].Value = "男" Then MsgBox "帅哥" Else MsgBox "美女"End Sub

当然也可以用IF块语句。

结构如下：

IF 条件式 Then

    处理1

Else

    处理2

End If

Private Sub CommandButton1_Click() If [a1].Value = "男" Then MsgBox "帅哥" Else MsgBox "美女" End IfEnd Sub

此时，以上的代码，A1单元格如果输入是的男，显示为帅哥，如果输入的是“女”，显示的为“美女”。如果输入的是“人妖”，显示的还是“美女”。如果需要显示为“你输入有误”，我们可以使用以下嵌套的IF函数。

Private Sub CommandButton1_Click() If [a1].Value = "男" Then MsgBox "帅哥" Else If [a1].Value = "女" Then MsgBox "美女" Else MsgBox "你输入有误" End If End IfEnd Sub

这样嵌套下去就比较麻烦。

可以使用以下列简洁的写法:

Private Sub CommandButton1_Click() If [a1].Value = "男" Then MsgBox "帅哥" ElseIf [a1].vlaue = "女" Then MsgBox "美女" Else MsgBox "您输入有误" End IfEnd Sub

主要的结构如下：

IF 条件1 Then

    满足条件1执行的操作

ElseI    f 条件2 Then

    满足条件2执行的操作

ElseI    f 条件3 Then

    满足条件3执行的操作

……

Else

    除此之外做的事情

End If

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

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