![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbqHQJcawukuxHZQWUvgtrWIFViZ7tuu6Y1QEJMIMp_KtHiAr7V_OSTEydEOWHrC2ypExsR9kbT8Y7A8kLz5A9DgWKVCraTN4z5iR_k5owb5phCuYNp1PiB3yKTylaGNyOr_R44Uvnxln7/s1600/Logo_Excel_137x60.png)
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