차례:
비디오: ※엑세스 VBA 강의[29.판매관리-판매전표등록 폼 등록작업 강좌]샘플 배우기,교육,IB96추천 2024
Select Case 구조는 세 개 이상의 결정을위한 유용한 VBA 구조입니다 Excel 2016의 옵션 (If-Then-Else 구조의 대안을 제공하는 두 가지 옵션과 함께 작동 함).
Select Case 예제
Select Case 구조를 사용하는 방법을 보여주는 예제입니다.
Sub ShowDiscount3 () Dim 수량을 Long Dim 할인 As Double = InputBox ("Enter Quantity:") Select Case Quantity 사례 0 ~ 24 할인 = 0 1 사례 25 ~ 49 할인 = 0 15 사례 50 ~ 74 할인 = 0. 2 사례 선택 = 75 할인 = 0. 25 최종 선택 MsgBox "할인:"및 할인 최종 하위 >이 예에서 Quantity 변수가 평가 중입니다. 루틴은 네 가지 사례 (0-24, 25-49, 50-74 및 75 이상)를 확인합니다.
Sub ShowDiscount4 () 희미한 수량으로 긴 희미한 할인 Double 수량 = InputBox ("수량 입력:") 사례 수량 선택 사례 0 ~ 24: 할인 = 0 1 사례 25 대상 End Sub
End Select MsgBox "Discount:"및 Discount End Sub
VBA가 Select Case 구조를 실행할 때, VBA가 참 사례를 찾고 해당 사례에 대한 명령문을 실행하자마자 구조가 종료됩니다.
-중첩 된 Select Case 예제
다음 예제에서 보듯이 Select Case 구조를 중첩 할 수 있습니다. 이 루틴은 활성 셀을 검사하고 셀의 내용을 설명하는 메시지를 표시합니다. 프로 시저에는 세 개의 Select Case 구조가 있으며 각 인스턴스에는 고유 한 End Select 문이 있습니다.
Sub CheckCell () Dim Msg As String Select Case IsEmpty (ActiveCell) Case True Msg = "가 비어 있습니다. "Case Else Select Case ActiveCell. HasFormula Case True Msg = "수식 있음"Case Isse Case IsNumeric (ActiveCell) Case True Msg = "숫자가 있습니다."Case Else Msg = "텍스트 있음"End Select End Select End MsgBox "Cell"& ActiveCell을 선택하십시오. Address & ""& Msg End Sub
논리는 다음과 같습니다:
-
셀이 비어 있는지 확인하십시오.
-
비어 있지 않은 경우 수식이 포함되어 있는지 확인하십시오.
-
수식이 없으면 숫자 값이나 텍스트가 포함되어 있는지 확인합니다.
루틴이 끝나면 Msg 변수는 셀의 내용을 설명하는 문자열을 포함합니다. MsgBox 함수는 해당 메시지를 표시합니다.
CheckCell 프로 시저가 표시하는 메시지.Select Case 구조를 필요한만큼 중첩시킬 수 있지만 각 Select Case 문에 해당 End Select 문이 있는지 확인하십시오.
들여 쓰기 코드가 효과가 있다고 확신하지 못한다면 이전 목록이 좋은 예가됩니다. 중첩 수준을 분명히하기위한 들여 쓰기 들여 쓰기가없는 동일한 프로 시저를 살펴보십시오.
Sub CheckCell () Dim Msg As String Select Case IsEmpty (ActiveCell) Case True Msg = "이 비어 있습니다. "Case Else Select Case ActiveCell. HasFormula Case True Msg = "수식 있음"Case Isse Case IsNumeric (ActiveCell) Case True Msg = "숫자가 있습니다."Case Else Msg = "텍스트 있음"End Select End Select End MsgBox "Cell"& ActiveCell을 선택하십시오. 주소 & ""& Msg End Sub
상당히 이해할 수 없습니까?