VBA Select case條件句
前一篇「巢狀IF條件句」介紹:像鳥巢一樣一層一層,「IF條件」內又有個『IF條件』,但當一大堆If的時候,看起來既複雜又凌亂,這篇我們學習使用「Select case條件句」。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-1-1024x606.png)
Select case條件句語法
Select case 變數
Case Is 條件1
條件1「成立」時執行的動作
Case Is 條件2
條件2「成立」時執行的動作
Case Is 條件3
條件3「成立」時執行的動作
Case Else
所有條件「不成立」時執行的動作
練習Select case條件句
Sub 練習Selectcase條件句()
Select Case Range(“A2”).Value
Case Is < 60
Range(“B2”).Value = “Group E”
Case Is < 70
Range(“B2”).Value = “Group D”
Case Is < 80
Range(“B2”).Value = “Group C”
Case Is < 90
Range(“B2”).Value = “Group B”
Case Is < 95
Range(“B2”).Value = “Group A”
Case Else
Range(“B2”).Value = “Group A+”
End Select
End Sub
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-2.png)
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-3-1.png)
執行後則快速判定A2儲存格。
若分數「<60」,B2儲存格顯示「Group E」。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-4.png)
若分數「>=60且<70」,B2儲存格顯示「Group D」。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-5.png)
若分數「>=70且<80」,B2儲存格顯示「Group C」。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-6.png)
若分數「>=80且<90」,B2儲存格顯示「Group B」。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-7.png)
若分數「>=90且<95」,B2儲存格顯示「Group A」。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-8.png)
若分數「>=95」,B2儲存格顯示「Group A+」。
![](https://lazyorangelife.com/wp-content/uploads/2024/03/VBA-Select-case條件句-9.png)
其他文章分享
Part1 -【Excel VBA教學】入門-ElseIf條件句
Part2 -【Excel VBA教學】入門-ElseIf條件句
Part3 -【Excel VBA教學】入門-巢狀IF條件句
Part4 -【Excel VBA教學】入門-Select case條件句