Excel VBA----之判断语句select

1、select case 语句 ：根据表达式的值来决定执行语句中的其中一个。

2、在VBE中编写代码：Sub select单条件()i = 1Select Case iCase Is > 0 Debug.Print ("i>0&qu泠贾高框ot;)Case i < 0 Debug.Print ("i<0")Case i = 0 Debug.Print ("i=0")End SelectEnd Sub

3、执行代码，得到运行结果。

4、Excel界面如下：功能为：通过输入血型，判断结果；例如输入血型为A，得到相应的结果；

5、在VB苇质缵爨E中编写代码如下：Sub select多条件()Dim blood As StringDim res As Stringblood = Sheet1.[a13].ValueSelect Case bloodCase "A" Debug.Print ("为A型血") Sheet1.[b13].Value = "为A型血"Case "B" Debug.Print ("为B型血") Sheet1.[b13].Value = "为B型血"Case "O" Debug.Print ("为O型血") Sheet1.[b13].Value = "为O型血"Case "AB" Debug.Print ("为AB型血") Sheet1.[b13].Value = "为AB型血"Case Else Debug.Print ("不存在该血型") Sheet1.[b13].Value = "不存在该血型"End SelectEnd Sub

6、运行该代码，得到结果；即当血型为A时，窗口输出病在Excel界面的相应表格中输出结果。

7、在Exce盟敢势袂l界面中，插入形状---右键形状---指定宏，设置刚刚添加的宏；7、点击该形状，则调用刚刚的宏。

8、综上所述，本文从单条件、多条件两种情况对select关键字进行案例说明，并结合了Excel界面进行呈现。