유저폼에서 리스트 검색 후, 선택목록 내용 보기

VBA
작성자
007
작성일
2021-10-18 23:25
조회
411
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

늘 도움만 받습니다.

첨부파일의 영수증 시트에서 '단추누르기'  -> 유저폼의 성명란에서 '중가나' 입력 -> '검색' 단추누르기

1) 검색 결과의 '중가나' 선택 ->  '내용입력하기' 플레임의 내용이 선택한 학생의 정보와 불일치

2) 이를 일치시킬 방법이 없을까요?

단, '검색'하지 않고 리스트에서 학생을 선택하면 내용입력하기 플레임과 일치합니다.

도움 주시면 감사하겠습니다.

회원등급 : 15레벨
포인트 : 1417 EP
총질문 : 25 개 (마감율 : 76%)
채택답변 : 0 개
전체 7

  • 2021-10-19 15:42

    @007 님 당연하지요.

    List index는 검색 전후가 틀려 집니다.

    중가나가 2개 나오니 첫번이 1 두번째가 2지요.

    검색이 일종의 Filtering이니 Original Index를 가지고 오던지

    아니면 Procedure를 한번더 불러 DB에 Location 시켜야 할 것

    같습니다.


  • 2021-10-19 21:26

    @007 님 두가지 수정해 보았읍니다. 충분하지는 않지만...

    Private Sub UserForm_Initialize()
    lst영수증목록.SetFocus<---추가
    Private Sub lst영수증목록_Click()
    IngR = lst영수증목록.(ListIndex+6)Column(0) + 5 <---Listindex 대신에 Column(0)을 사용하여 해결하였읍니다.

    첨부파일 : ex1-2-답변.xls


    • 2021-10-20 17:06

      @Yukon 님 정말 감사합니다. 덕분에 문제를 해결하였습니다. 늘 평안하세요~~


  • 2021-10-20 12:06

    @007 님 유저폼내 두개의 코드를 수정하시면 되실듯 합니다.

    Private Sub lst영수증목록_Click()
    Dim IngR As Integer
    Dim i As Long
    With Me.lst영수증목록
    For i = 0 To .ListCount - 1
    If .Selected(i) = True Then
    IngR = .List(i, 0)
    IngR = IngR + 5
    Exit For
    End If
    Next
    End With
    'IngR = lst영수증목록.ListIndex + 6

    txt연번 = Sheet34.Cells(IngR, 2)
    Cmb과목 = Sheet34.Cells(IngR, 3)
    Txt성명 = Sheet34.Cells(IngR, 4)
    Txt금액 = Sheet34.Cells(IngR, 5)
    Txt횟수 = Sheet34.Cells(IngR, 6)
    Txt년 = Sheet34.Cells(IngR, 7)
    Cmb월 = Sheet34.Cells(IngR, 8)
    Txt일 = Sheet34.Cells(IngR, 9)
    Cmb입금월 = Sheet34.Cells(IngR, 11)
    Txt입금일 = Sheet34.Cells(IngR, 12)
    Txt오류내역 = Sheet34.Cells(IngR, 15)
    End Sub

     

    Private Sub Cmd검색_Click()

    Dim vDB, vR()

    Dim strName As String

    Dim i As Long, k As Integer, n As Integer

     

    strName = TextBox1.Text

     

    vDB = Sheet34.Range("DB_영수목록")

     

    For i = 1 To UBound(vDB, 1)

    If vDB(i, 3) = strName Then

    n = n + 1

    ReDim Preserve vR(1 To 8, 1 To n)

    For k = 1 To 8

    vR(k, n) = vDB(i, k)

    Next k

    End If

    Next i

    If n = 1 Then

    Me.lst영수증목록.ListIndex = 0

    Me.lst영수증목록.Column = vR

    ElseIf n > 1 Then

    Me.lst영수증목록.List = WorksheetFunction.Transpose(vR)

    Me.lst영수증목록.ListIndex = 0

    Else

    MsgBox "   찾는 학생이 없습니다. 다시 검색하세요.", vbCritical, "찾기 오류"

    End If

    End Sub


    • 2021-10-20 17:07

      @Lago 님 세심하게 수정해주셔서 정말 감사합니다. 덕분에 문제를 해결하였습니다. 평안한 날들 되세요.~~


  • 2021-10-19 13:05
    채택된 답변

    @007 님 질문을 잘 이해하지 못하겠습니다..^^;

    저는 중가나를 선택했을 때 내용 입력하기에 중가나가 잘 나오네요

     

    Screenshot_1.png


  • 2021-10-19 14:06

    관심을 가져 주셔서 고맙습니다.
    창 위쪽 성명 옆에 있는 검색란에 '중가나'를 입력하고 '검색 ' 단추를 누르면 2개의 검색결과(연번 2번, 5번)가 나타납니다.
    - 검색결과 연번 2번 선택 -> 당초 연번 1번 내용
    - 검색결과 연번 5번 선택 -> 당초 연번 2번의 내용이 나타납니다.

     


전체 7,420
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚교재 출간 안내] 「진짜쓰는 실무엑셀」 , 드디어 출간되었습니다! (135)
오빠두엑셀 | 2022.02.03 | 추천 392 | 조회 68704
오빠두엑셀 2022.02.03 392 68704
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 721
오빠두엑셀 2022.08.04 4 721
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 118 | 조회 6458
오빠두엑셀 2021.10.28 118 6458
41377 파워쿼리/피벗
New 파워쿼리 파워피벗으로 (1)
이호일 | 2022.08.19 | 추천 0 | 조회 14
이호일 2022.08.19 - 14
41373 함수/공식
New MATCH 함수 lookup_array를 lookup_value 조건에 따라 변동하고 싶습니다. 엑셀파일첨부파일 (2)
왈츠 | 2022.08.19 | 추천 0 | 조회 28
왈츠 2022.08.19 - 28
41372 VBA
New VBA 유저폼 실행위치 설정방법 (StartUpPosition 제외) 엑셀파일 (1)
VBA고수되고파 | 2022.08.19 | 추천 0 | 조회 23
VBA고수되고파 2022.08.19 - 23
41369 VBA
New 1개 엑셀파일을 NO1-NO50까지 번호가 자동으로 바뀌면서 출력하는 매크로 출력법문의 엑셀파일첨부파일 (2)
드래군 | 2022.08.19 | 추천 0 | 조회 18
드래군 2022.08.19 - 18
41366 함수/공식
New 연차관리대장 수식 문의드립니다. 첨부파일 (2) 답변완료
밍짱 | 2022.08.19 | 추천 0 | 조회 31
밍짱 2022.08.19 - 31
41364 함수/공식
New 1개행에서 행삽입후 합계범위 자동수정 하는 법(조건함수 없이) 엑셀파일첨부파일 (4) 답변완료
낭군 | 2022.08.19 | 추천 0 | 조회 18
낭군 2022.08.19 - 18
41362 함수/공식
New 1개행에서 행삽입후 합계범위 자동수정 하는 법 첨부파일 (8) 답변완료
낭군 | 2022.08.19 | 추천 0 | 조회 31
낭군 2022.08.19 - 31
41360 파워쿼리/피벗
New 금액을 숫자로 바꾸는 방법(예1억5천 -> 150,000,000) (5)
shxhehskc | 2022.08.19 | 추천 0 | 조회 44
shxhehskc 2022.08.19 - 44
41358 VBA
New 바코드 스캔, vloopup 으로 값 가져오기 (3)
유지니_ | 2022.08.19 | 추천 0 | 조회 44
유지니_ 2022.08.19 - 44
41357 함수/공식
New 행 마지막값 찾아 입력하기 엑셀파일 (3) 답변완료
포에버하윤둥이 | 2022.08.19 | 추천 0 | 조회 35
포에버하윤둥이 2022.08.19 - 35
41355 VBA
New 보이는 셀만 복사 버튼을 따로 빼놓은 매크로 버튼 만들고 싶습니다 (6) 답변완료
에그로봇 | 2022.08.19 | 추천 0 | 조회 34
에그로봇 2022.08.19 - 34
41351 함수/공식
New 시리얼넘버 자동화 엑셀파일첨부파일 (2)
nomhoo**** | 2022.08.19 | 추천 0 | 조회 35
nomhoo**** 2022.08.19 - 35
41344 함수/공식
New 중복값 제거 해서 오름차순 정렬하는 함수가 있을까요?? 엑셀파일첨부파일 (4)
축구매냐 | 2022.08.19 | 추천 0 | 조회 47
축구매냐 2022.08.19 - 47
41341 파워쿼리/피벗
New 매크로를 이용해서 원하는 데이터만 추출하기 엑셀파일 (4)
Utaeks | 2022.08.19 | 추천 1 | 조회 64
Utaeks 2022.08.19 1 64
41337 파워쿼리/피벗
New 파워쿼리의 새로고침 순서 지정 가능한가요? (4) 답변완료
Steve | 2022.08.18 | 추천 0 | 조회 36
Steve 2022.08.18 - 36
41335 함수/공식
New 글자 수 초과 텍스트만 분류할 수 있을까요? 엑셀파일첨부파일 (3) 답변완료
김해자 | 2022.08.18 | 추천 -1 | 조회 44
김해자 2022.08.18 -1 44
41334 함수/공식
New 2가지 조건 일치하는 값 찾기 엑셀파일 (3)
윤여근 | 2022.08.18 | 추천 0 | 조회 48
윤여근 2022.08.18 - 48
41333 파워쿼리/피벗
New 매출내역을 일별합계로 변환하는 방법(파워쿼리가 아닌 방식) 엑셀파일 (2) 답변완료
정성 | 2022.08.18 | 추천 0 | 조회 34
정성 2022.08.18 - 34
41331 함수/공식
New SUMIFS 함수 오류 문의드립니다. 엑셀파일 (2) 답변완료
김민균 | 2022.08.18 | 추천 0 | 조회 31
김민균 2022.08.18 - 31
41327 함수/공식
New 파일내용 합치기 방법문의 엑셀파일 (2)
포에버하윤둥이 | 2022.08.18 | 추천 0 | 조회 38
포에버하윤둥이 2022.08.18 - 38
41326 VBA
New VBA PDF관련로 저장관련 질문입니다. 엑셀파일 (4)
k**** | 2022.08.18 | 추천 0 | 조회 32
k**** 2022.08.18 - 32
41325 함수/공식
New 엑셀 오류 함수 질문 (2)
머지않아VBA고수 | 2022.08.18 | 추천 0 | 조회 26
머지않아VBA고수 2022.08.18 - 26
41321 함수/공식
New SUMPRODUCT, COUNTIF 오류 - 다중 조건을 만족하는 갯수 구하기 엑셀파일 (3)
따뜻한아메리카노 | 2022.08.18 | 추천 0 | 조회 28
따뜻한아메리카노 2022.08.18 - 28
41319 함수/공식
New 엑셀 if함수? ifs함수? 와 같은 조건함수가 궁금합니다. (5) 답변완료
맛둥이 | 2022.08.18 | 추천 0 | 조회 37
맛둥이 2022.08.18 - 37
41316 피벗테이블
New 1. 피벗테이블에서 가공 VS ROW DATA 에서 가공 후 피벗테이블 첨부파일 (2) 답변완료
비누진 | 2022.08.18 | 추천 0 | 조회 29
비누진 2022.08.18 - 29
41314 VBA
New public sub로 바꿔도 시트1에서 시트2 함수 호출이 안됩니다. (3) 답변완료
오키도키 | 2022.08.18 | 추천 0 | 조회 35
오키도키 2022.08.18 - 35
41304 함수/공식
New 부동호가 들어갔을경우 countif 방법이 궁금합니다. 첨부파일 (4) 답변완료
수이니 | 2022.08.18 | 추천 0 | 조회 54
수이니 2022.08.18 - 54
41302 파워쿼리/피벗
New 다른 PC에서 웹 콘텐츠를 가져오려면 자격증명이 필요하다고 합니다. 해결방법을.. (2)
방구맨 | 2022.08.18 | 추천 0 | 조회 40
방구맨 2022.08.18 - 40
41300 파워쿼리/피벗
New 이 자료도 정규화 할 수 있을까요? 엑셀파일 (2)
김초보 | 2022.08.18 | 추천 0 | 조회 55
김초보 2022.08.18 - 55
41295 차트/그래프
New 데이터레이블 글꼴크기 조절 가능할까요ㅠㅠ 첨부파일 (5)
424**** | 2022.08.17 | 추천 0 | 조회 29
424**** 2022.08.17 - 29