vba 流程控制 Select ...case

Sub hello()

Dim Number As Integer

Number = 5

Select Case Number

    Case Is < 4

    MsgBox (Number)

    Case 5

    MsgBox (Number)

    Case Else

     MsgBox ("Else")

End Select

End Sub

基本:

Select Case 變數

    Case 條件

End Select

條件可以寫成

Case a (變數為a，a可以是文字或是數字

Case Is < a (跟 Case 變數<a 是相同的,用在<>=敘述)

Case a To b (介於a到b)

Case a,b,c,d (變數符合abcd 其中一個

Case Else (其他，通常放在最下面)

另外Select Case 的執行順序是由上而下

只要一個條件符合就會跳出

例如:

Select Case bmi

Case Is < 18.5

  MsgBox "BMI = " & bmi & "(體重過輕)"

Case Is < 30

  MsgBox "BMI = " & bmi & "(輕度肥胖)"

Case Is < 27

  MsgBox "BMI = " & bmi & "(體重過重)"

Case Is < 24

  MsgBox "BMI = " & bmi & "(體重正常)"

End Select

當BMI<30時就會顯示輕度肥胖，而底下的<27跟<24將沒機會作用到