Excel VBA - Select Case

Select Case, End Select

If문 처럼 여러 조건에 대해 다른 계산을 할 때

Select Case를 사용할 수도 있다.

 

If와 End If를 항상 같이 사용하는 것처럼

Select Case는 End Select와 같이 사용한다.

 

Sub Button_Click()

    Dim score As Integer
    
    score = [A1]
    
    Select Case score
        Case Is >= 90
            [B1] = "참 잘했어요"
        Case Is >= 80
            [B1] = "잘했네요"
        Case 70 To 80
            [B1] = "노력했군요"
        Case 60 To 70
            [B1] = "노력하세요"
        Case 50 To 60
            [B1] = "아이쿠"
        Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
            [B1] = "낙제"
        Case 0
            [B1] = "찍기라도 했어야지"
        Case Else
            [B1] = "망했네"
    End Select
    
End Sub

 

위 코드는 A1 셀에 입력한 숫자가

90 이상일 경우 B1 셀에 "참 잘했어요" 라고 출력하고

80 이상일 경우 "잘했네요"

.... 를 출력하라는 것이다.

 

Case Is 를 쓸 수도 있고

Case a To b 형태로 쓸 수도 있고

Case 1, 2, 3, ... 처럼 여러 Case를 나열해서 쓸 수도 있고

Case 0 처럼 하나의 Case만 쓸 수도 있고

Case Else 처럼 그 외의 Case에 대해서 쓸 수도 있다.

 

위 코드를 실행하면 다음과 같은 결과를 얻을 수 있다.

 

 

A1 셀에 10을 입력했더니 "낙제" 가 출력되었다.