로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2009.07.04 01:45
VBA를 작성하시다가 에러가 나면.. F8을 눌러가면서 한 줄씩 실행해보시는게 좋습니다.
조사식도 추가 하고 debug.print 변수명 을 활용하면 코드 실행을 중단하지 않고 직접실행창에 해당 변수명을 프린트해주지요..
암튼.. 디버깅 팁은 정말 많습니다...
암튼.. ㅎㅎ
아래 코드 대신에,
Set 검색 = .FindNext(검색)
다음 코드를 사용해보세요.
Set 검색 = .Range("a2:a60000").Find(What:=WorksheetFunction.Trim(학번.Text), After:=검색)
Find()가 중간에 What을 날려먹어서, FindNext()가 안 먹힙니다.
그리고 .FindNext(검색) 하시게 되면 ActiveSheet.FindNext 하신꼴이 되어서 안됩니다.
ActiveSheet.Range.FindeNext 꼴이 되어야합니다. 즉 Range부분이 빠진거지요.
새 창으로
선택한 기호
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
아별
VBA를 작성하시다가 에러가 나면.. F8을 눌러가면서 한 줄씩 실행해보시는게 좋습니다.
조사식도 추가 하고 debug.print 변수명 을 활용하면 코드 실행을 중단하지 않고 직접실행창에 해당 변수명을 프린트해주지요..
암튼.. 디버깅 팁은 정말 많습니다...
암튼.. ㅎㅎ
아래 코드 대신에,
Set 검색 = .FindNext(검색)
다음 코드를 사용해보세요.
Set 검색 = .Range("a2:a60000").Find(What:=WorksheetFunction.Trim(학번.Text), After:=검색)
Find()가 중간에 What을 날려먹어서, FindNext()가 안 먹힙니다.
그리고 .FindNext(검색) 하시게 되면 ActiveSheet.FindNext 하신꼴이 되어서 안됩니다.
ActiveSheet.Range.FindeNext 꼴이 되어야합니다. 즉 Range부분이 빠진거지요.