EXCEL VBA 예외적 인 열을 가진 다중 범위

Question

나는 Selection.Row = 1에서 Exit Sub까지를 사용합니다.

는하지만 난 Range("B1")가이 작업을 수행하는 방법을

어떤 생각을 사용중인 경우 계속하려면 코드가 필요? 미리 감사드립니다.

Answer 1

이상적으로는 Selection altogther를 피해야합니다. 당신은 선택이 행 만약 그렇다면 1.

가 포함되어있는 경우

1. 시험을 부탁으로 질문에 대한 그러나, 다음 두 번째 테스트는 테스트 B1 경우가 Selection에 포함되어, 실행, 예 코드 종료, 만약의 경우 코드는 계속되지 않습니다.

그것은 항상 최선의 코드 전체의 가장 흔한 초기 테스트 종료가 먼저 테스트되고 함께 별도의 시험으로 충족되어야합니다 두 개의 개별 테스트를 깰. And을 실행하고 첫 번째 조건이 이미 실패한 경우 두 번째 조건을 테스트하는 것이 더 효율적입니다. `Selection`가 이상적인 선택이 아닌 이유

코드가

Sub TestExit() 
Dim rng1 As Range 
If Not Intersect(Rows(1), Selection) Is Nothing Then 
Set rng1 = Intersect(Selection, [b1]) 
If rng1 Is Nothing Then Exit Sub 
End If 
End Sub 

Answer 2

If Selection.row = 1 And Selection.Column <> 2 Then Exit Sub