엑셀 VBA에서 선택을 테스트
엑셀 VBA이 프로그램은 Count 속성, ISNUMERIC 함수 IsEmpty 함수 및 기능 선택을 시험하는 교차 법을 사용한다.
상황 :
워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가
-
먼저, 우리는이 범위 객체를 선언합니다. 우리는 범위가 RNG 세포 개체를 호출합니다.
Dim rng As Range, cell As Range
( “D10 C4”)과 선택 범위 Range 개체의 세포 2. 우리는 범위와 범위 개체 RNG를 초기화합니다.
Set rng = Range("C4:D10") Set cell = Selection
다음 코드 줄을 추가합니다 :
If cell.Count = 1 And IsNumeric(cell) And Not IsEmpty(cell) And Not Intersect(rng, cell) Is Nothing Then MsgBox "You win" Else MsgBox "You lose" End If
설명 : / VBA – 예 – 노조 – 교차 [교차]`두 개의 범위 : 교차 (RNG, 셀)을`링크를 나타내는 Range 개체를 반환합니다. 이 범위 오브젝트 아무것도하지 없으면 단수 (처음 세 개의 상태)를 경계 범위이다.
-
테스트 프로그램.
당신이 경계 범위에서 하나의 번호를 선택 만하면 결과는 다음과 같습니다
다른 모든 경우 결과는 다음과 같습니다