1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

ListBox1 에 추가가 되지를 않습니다.

VBA .Find 조회 수 4998 추천 수 0 2009.07.03 02:00:04
첨부된 파일은 학교에서 "장학금 지급 내역"을 자동화시켜 여러 학생에게 골고루 혜택이 돌아가게 하기 위해서 작성하고 있는 프로그램인데요

" Do.......Loop" 문을 사용하여

학생학반과 성명만 선택하면 지금까지 지급된 장학금 지급내역을 ListBox1 에 추가할려고 했는데
해당 학생의 데이터가 여러 개 있습니다만
아무리 해도 1개 밖에 추가되지 않더군요.

(1건설, 고재훈)학생으로 실험해 보면 적어도 4건이상 올라와야 되는데 1건 밖에 올라오지 않습니다.

첫줄이 빈칸으로 생기는 것도 이상하고...



Do
           '행(카운트) = 검색.Row
           검색결과 = "H" & 검색.Row
           ListBox1.AddItem .Range(검색결과).Value
           카운트 = 카운트 + 1
       
           Set 검색 = .FindNext(검색)

Loop While Not 검색 Is Nothing And 첫주소 <> 검색.Address
       

이 부분에서 무슨 문제가 있는 것 같은데 도저히 찾을 수가 없어서 문의를 드리고자 합니다.
지급된 장학금을 학번을 기준으로 검색하는 단계에서 1개 이상 찾지를 못하는 것 같습니다.

에러를 찾기가 쉬운 일이 아니군요.
도와 주십시오.


댓글 '3'

profile

[레벨:30]아별

2009.07.04 01:45:23
*.130.73.19

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부분이 빠진거지요.

[레벨:1]사오정원조

2009.07.05 01:15:23
*.44.209.142

아이고~~~너무 감사합니다.

한 보름동안 해멧는데 일순간에 해결되어 버렸네요.

거듭 감사합니다.

 

[레벨:4]현대자동차

2012.03.22 18:22:43
*.29.96.161

vba는 제게 어려운문제 눈팅만하구 갑니다~~~

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜sort 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 19492

엑셀에서 동작에 따른 이벤트를 발생시킬 때... [1]

  • [레벨:1]DATA
  • 2009-07-05
  • 조회 수 4869

질문입니다. 아별툴하고는 상관없다능. [2]

문의 드립니다. [2]

2007에서 그래프 사용시 [2]

질문입니다 [1]

  • account
  • 2009-07-03
  • 조회 수 4568

엑셀 문의드립니다. file [2]

.질문.... [5]

도와주세요. 엑신~~ [3]

엑신께 질문합니다!!!!! [2]

VBA .Find ListBox1 에 추가가 되지를 않습니다. file [3]

VBA .Find 매크로 질문입니다.~ [2]

  • [레벨:1]카멜
  • 2009-07-02
  • 조회 수 5515

셀 서식에서 원하는 서식으로 고정하기 [3]

  • [레벨:1]kwihan
  • 2009-07-02
  • 조회 수 7098

엑셀 통계표 작성시 함수 좀.... (2가지 조건 이상을 만족하는 데이터의 카운팅 방법) file [4]

엑셀을 사용해 교육 대상자 중에 신청자를 가려내고 싶은데.. 알려주세요. ㅠㅠ file [2]

  • 초보
  • 2009-07-02
  • 조회 수 5253

abyul Excel Tool관련 문의 [1]

엑신께..문의합니다. [2]

초보 엑셀사용자입니다. 회사안에선 아무도 모르는 거라 엑신님께 여쭈어봅니다.!! [1]

어떻게 하면 이렇게 변환하는 기능을 만들수 있을까요? file [1]

엑셀관련해서 여쭈어 보고 싶습니다... file [1]

  • [레벨:1]사물
  • 2009-07-01
  • 조회 수 5161

초보엑셀이 엑신께 여쭙니다. [1]