|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
안녕하세요. 여기서 많은 도움받고 있습니다.급한 질문입니다.
좋은 답변부탁드립니다.
VBA를 다음과 같이 작성했습니다(내용만 간단히하면)
아래와 같이 vba를 코딩했는데 처음에는 작동이 잘 되다가
서브함수를 갖다오면 메인에 있는 findnext에서 에러가 발생합니다.
find 메소드를 중첩사용이 안되는 건지??
에러메시지는 "개체변수 또는 with문의 변수가 설정되어 있지 않습니다"
라고 표시됩니다
sub mmain()
Set cc = I_TV_t.Find(c.Value, LookIn:=xlValues)
If Not cc Is Nothing Then
firstaddress = cc.Address
Do
Call DataView(cc)
Set cc = I_TV_t.FindNext(cc)
Loop While Not cc Is Nothing And cc.Address <> firstaddress
* 첫1회는 작동되다가 2회부터 에러가 발생하는 곳
End If
end sub
sub DataView(cc as range)
Set ccc = P_com_t.Find(NoCheck, LookIn:=xlValues)
If Not ccc Is Nothing Then
firstaddress = ccc.Address
Do
데이터처리부분
ccc = P_com_t.FindNext(ccc)
Loop While Not ccc Is Nothing And ccc.Address <> firstaddress
End If
end sub
|
|