[VBA] findNext 에러 제어

 vba에서 find 함수를 찾는데 이어서 찾기 위해 findnext를 쓴다.

하지만 더 이상 찾는 데이터가 없으면 에러이다.

이 경우 에러를 뱉고 프로그램이 멈추기 때문에 따로 처리가 필요하다.

아래와 같음

1 2 3 4 5 6 7 8 9

Dim wb As Excel.Workbook, oRange As Range ' FindNext 함수의 에러가 발생할 수 있으므로 객체에 넣는다 ' find 구문 있어야함 (생략)   Set oRange = wb.Worksheets(i).Cells.FindNext(After:=ActiveCell) ' 다음 데이터가 없으면 oRange값은 Nothing이    If Not oRange Is Nothing Then     ' FindNext가 정상일 경우 처리 End If