대신 복수의 엑셀 VBA에서 다음 문, 당신은 선택 케이스 구조를 사용 할 수 있습니다.

상황 :

Select Case in Excel VBA

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 우선, 두 가지 변수를 선언. 형 정수이라는 점 중 하나 개는 변수를 입력 문자열이라는 결과를 하나 개의 변수.

Dim score As Integer, result As String

  1. 우리는 셀 A1의 값으로 변수 점수를 초기화합니다.

score = Range("A1").Value

선택 케이스 구조를 추가합니다.

Select Case score

Case Is >= 80

result = "very good"

Case Is >= 70

result = "good"

Case Is >= 60

result = "sufficient"

Case Else

result = "insufficient"

End Select

설명 : 엑셀 VBA가 Case 문에서 코드가 실행되어야하는지 이후의 각 Case 문을 테스트 할 수있는 변수 점수의 값을 사용합니다.

전지 B1의 결과 변수의 값을 기록 제.

Range("B1").Value = result

  1. 테스트 프로그램.

당신이 시트에 명령 단추를 클릭하면 검색 결과 :

Select Case Result

주 : 엑셀 VBA는 70보다 크거나 같고 80보다 작은 모든 값에 대한 제 2 케이스 문 아래 코드를 실행