Vba에서 case 문을 작성하는 방법(예제 포함)

Case 문은 조건을 순환하고 첫 번째 조건이 충족되면 값을 반환하는 문 유형입니다.

다음 기본 구문을 사용하여 VBA에서 Case 문을 작성할 수 있습니다.

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

이 특정 예에서는 B2:B9 범위의 각 셀을 살펴보고 C2:C9 범위에서 다음 값을 반환합니다.

• B열의 값이 30보다 크거나 같으면 “ Excellent ”입니다.
• 그렇지 않고 B열의 값이 20보다 크거나 같으면 ” Good “입니다.
• 그렇지 않고 B열의 값이 15보다 크거나 같으면 ” OK “입니다.
• 그렇지 않고 위의 조건 중 어느 것도 충족되지 않으면 ” Bad “입니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA에서 Case 문 작성

다양한 농구 선수가 득점한 점수를 보여 주는 다음과 같은 데이터 세트가 Excel에 있다고 가정해 보겠습니다.

득점한 점수에 따라 각 플레이어에게 Excellent, Good, OK 또는 Poor 값을 할당하는 사례 설명을 작성한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

C열은 B열의 해당 값을 기준으로 우수, 양호, 양호 또는 불량 값을 반환합니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 값 목록을 분류하는 방법
VBA: 범위 내 고유 값을 계산하는 방법
VBA:범위 내 행 수를 계산하는 방법