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:범위 내 행 수를 계산하는 방법