Excel 2016 VBA에서 선택 사례 구조를 사용하는 방법

Select Case 구조는 Excel 2016에서 세 개 이상의 옵션과 관련된 결정에 유용한 VBA 구조입니다(If-Then-Else 구조에 대한 대안을 제공하는 두 가지 옵션에서도 작동함).

선택 사례 예

다음 예는 케이스 선택 구조를 사용하는 방법을 보여줍니다.

서브 쇼Discount3()
  희미한 수량만큼
  두 배의 희미한 할인
  수량 = InputBox("수량 입력: ")
  케이스 수량 선택
    사례 0 ~ 24
      할인 = 0.1
    사례 25 ~ 49
      할인 = 0.15
    사례 50 ~ 74
      할인 = 0.2
    케이스 >= 75
      할인 = 0.25
  선택 종료
  MsgBox "할인: " & 할인
엔드 서브

이 예에서는 Quantity 변수가 평가되고 있습니다. 루틴은 4가지 다른 케이스(0–24, 25–49, 50–74 및 75 이상)를 확인합니다.

각 Case 문 뒤에는 여러 개의 문이 올 수 있으며 case가 true인 경우 모두 실행됩니다. 이 예에서와 같이 하나의 명령문만 사용하는 경우 VBA 명령문 구분 문자인 콜론이 앞에 오는 Case 키워드와 동일한 행에 명령문을 넣을 수 있습니다. 이렇게 하면 코드가 더 간결해지고 좀 더 명확해집니다. 루틴이 이 형식으로 표시되는 방식은 다음과 같습니다.

서브쇼할인4 ()
  희미한 수량만큼
  두 배의 희미한 할인
  수량 = InputBox("수량 입력: ")
  케이스 수량 선택
    사례 0 ~ 24: 할인 = 0.1
    사례 25 ~ 49: 할인 = 0.15
    사례 50~74: 할인 = 0.2
    사례는 >= 75: 할인 = 0.25
  선택 종료
  MsgBox "할인: " & 할인
엔드 서브

VBA가 Select Case 구조를 실행할 때 VBA가 true 케이스를 찾고 해당 케이스에 대한 명령문을 실행하는 즉시 구조가 종료됩니다.

중첩된 Select Case 예

다음 예에서 설명한 것처럼 Select Case 구조를 중첩할 수 있습니다. 이 루틴은 활성 셀을 검사하고 셀의 내용을 설명하는 메시지를 표시합니다. 프로시저에는 세 가지 Select Case 구조가 있고 각각 고유한 End Select 문이 있습니다.

하위 CheckCell()
  문자열로 희미한 메시지
  IsEmpty(ActiveCell) 대소문자 선택
    사례 참
     메시지 = "공백입니다."
    다른 경우
     케이스 ActiveCell.HasFormula 선택
       사례 참
        Msg = "공식이 있습니다"
       다른 경우
        케이스 IsNumeric(ActiveCell) 선택
          사례 참
           메시지 = "숫자 있음"
          다른 경우
           Msg = "텍스트 있음"
        선택 종료
    선택 종료
  선택 종료
  MsgBox "셀" & ActiveCell.Address & " " & 메시지
엔드 서브

논리는 다음과 같습니다.

셀이 비어 있는지 확인합니다.

비어 있지 않은 경우 수식이 포함되어 있는지 확인합니다.

수식이 없으면 숫자 값이나 텍스트가 포함되어 있는지 확인합니다.

루틴이 종료되면 Msg 변수에 셀의 내용을 설명하는 문자열이 포함됩니다. MsgBox 함수는 해당 메시지를 표시합니다.

Excel 2016 VBA에서 선택 사례 구조를 사용하는 방법

CheckCell 프로시저에 의해 표시되는 메시지입니다.

Select Case 구조를 필요한 만큼 중첩할 수 있지만 각 Select Case 문에 해당 End Select 문이 있어야 합니다.

들여쓰기 코드가 노력할 가치가 있는지 여전히 확신하지 못한다면 이전 목록이 좋은 예가 될 것입니다. 들여쓰기는 중첩 수준을 명확하게 합니다. 들여쓰기 없이 동일한 절차를 살펴보세요.

하위 CheckCell()
문자열로 희미한 메시지
IsEmpty(ActiveCell) 대소문자 선택
사례 참
메시지 = "공백입니다."
다른 경우
케이스 ActiveCell.HasFormula 선택
사례 참
Msg = "공식이 있습니다"
다른 경우
케이스 IsNumeric(ActiveCell) 선택
사례 참
메시지 = "숫자 있음"
다른 경우
Msg = "텍스트 있음"
선택 종료
선택 종료
선택 종료
MsgBox "셀" & ActiveCell.Address & " " & 메시지
엔드 서브