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

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

1、在VBE中编写代码：Sub select单条件()i = 1Select Case iCase Is > 0    Debug.Print ('i>0')Case i < 0    Debug.Print ('i<0')Case i = 0    Debug.Print ('i=0')End SelectEnd Sub

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

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

4、在VBE中编写代码如下：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

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

6、在Excel界面中，插入形状---右键形状---指定宏，设置刚刚添加的宏；7、点击该形状，则调用刚刚的宏。

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

注意Excel界面的属性的表达方式

注意select case的语法