300개의 예

선택 테스트

Test Selection

이 프로그램은 엑셀 VBA Count 속성, IsNumeric 함수, IsEmpty 함수 및 Intersect 메서드를 사용하여 선택을 테스트 .



상황:

Excel에서 월을 빼는 방법

Excel VBA에서 선택 항목 테스트





배치 명령 버튼 워크시트에 다음 코드 줄을 추가합니다.

1. 먼저 두 개의 Range 객체를 선언합니다. Range 개체를 rng 및 cell이라고 합니다.



없음rng같이범위, 셀같이범위

2. Range 개체 rng를 Range('C4:D10')로 초기화하고 Range 개체 셀을 선택한 범위로 초기화합니다.

세트rng = 범위('C4:D10')
세트셀 = 선택

3. 다음 코드 줄을 추가합니다.

만약에cell.Count = 1그리고IsNumeric(셀)그리고 아니다IsEmpty(셀)그리고 아니다교차(rng, 셀)~이다 아무것도 그 다음에
MsgBox '당신이 이겼습니다'
또 다른
MsgBox '패배'
만약에

설명: Intersect(rng, cell)는 다음을 나타내는 Range 개체를 반환합니다. 교차로 두 범위 중. 이 범위 개체가 Nothing이 아니면 단일 숫자(처음 세 가지 조건)가 경계 범위에 있습니다.

4. 프로그램을 테스트합니다.

경계가 있는 범위에서 단일 숫자를 선택하는 경우에만 결과는 다음과 같습니다.

선택 결과 테스트

다른 모든 경우의 결과는 다음과 같습니다.

선택 결과 테스트

9/14 완료! 범위 개체에 대해 자세히 알아보기 >
다음 장으로 이동: 변수



^