在 Excel VBA 程式流程控制方法,有循序結構、選擇結構、重複結構三種,而選擇結構有 If Else、Select Case 兩種方法,今天就來學習 Select Case 這個方法,使用 Select Case 做流程控制語法如下:
Select Case (變數或運算式)
Case 條件值1
程式碼區段A
Case 條件值2
程式碼區段B
Case 條件值3
程式碼區段C
…
Case Else
程式碼區段N
End Select
說明:
程式會依變數或運算式的值與Case條件值一一作比較,直到找到符合條件值時,就會執行該程式碼區段,如果條件值都不成立,就執行程式碼區段N。
範例:當分數大於等於90時,就顯示A,分數大於等於80時,就顯示B,分數大於等於70時,就顯示C,分數大於等於60時,就顯示D,否則顯示E。
Sub CheckScore()
Select Case Range("A2").Value
Case 90 To 100
Range("B2").Value = "A"
Case 80 To 89
Range("B2").Value = "B"
Case 70 To 79
Range("B2").Value = "C"
Case 60 To 69
Range("B2").Value = "D"
Case Else
Range("B2").Value = "E"
End Select
End Sub