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

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

운영체제 : 윈도우10

늘 도움만 받습니다.

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

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

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

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

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

회원등급 : 12레벨
포인트 : 1013 EP
총질문 : 10 개 (마감율 : 80%)
채택답변 : 0 개
전체 7

  • 2021-10-19 15:42

    당연하지요.

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

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

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

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

    같습니다.


  • 2021-10-19 21:26

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

    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

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

    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
    채택된 답변

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

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

     

    Screenshot_1.png


  • 2021-10-19 14:06

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

     


전체 4,698
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (12)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 795
트로피 오빠두엑셀 2021.10.28 16 795
24321 VBA
New 열 나누기
정미현 | 18:25 | 추천 0 | 조회 4
정미현 18:25 0 4
24317 피벗테이블
New 상품별로 기간 판매량을 구하고 싶습니다 첨부파일 (4) 답변완료
wlfl**** | 15:01 | 추천 0 | 조회 24
wlfl**** 15:01 0 24
24315 함수/공식
New 선택한 2개 열/행의 값의 곱을 구하고 싶습니다. (2)
(알수없음) | 03:54 | 추천 0 | 조회 22
(알수없음) 03:54 0 22
24310 VBA
New 제발 도와주세요 ㅠㅠ 첨부파일 (1)
떠희아빠 | 2021.12.04 | 추천 0 | 조회 45
떠희아빠 2021.12.04 0 45
24307 함수/공식
New 엑셀 초보인데 count 함수 관련 질문 있습니다. 첨부파일 (4)
야기분좋다 | 2021.12.04 | 추천 1 | 조회 25
야기분좋다 2021.12.04 1 25
24305 VBA
New 이문제는 시트를 변수로 지정을 해아하나요?? 첨부파일
어려워 | 2021.12.04 | 추천 0 | 조회 24
어려워 2021.12.04 0 24
24300 VBA
New 떨어져 있는 특정 셀 선택 매크로 (1) 답변완료
제비제비 | 2021.12.04 | 추천 0 | 조회 35
제비제비 2021.12.04 0 35
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (2)
열공합시다 | 2021.12.04 | 추천 0 | 조회 30
열공합시다 2021.12.04 0 30
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1)
이치영 | 2021.12.04 | 추천 0 | 조회 29
이치영 2021.12.04 0 29
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (5) 답변완료
naver_5f055a605ee7d | 2021.12.04 | 추천 0 | 조회 43
naver_5f055a605ee7d 2021.12.04 0 43
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (1)
ㅈㄱㄹ | 2021.12.04 | 추천 0 | 조회 26
ㅈㄱㄹ 2021.12.04 0 26
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (4) 답변완료
다우미노 | 2021.12.03 | 추천 0 | 조회 34
다우미노 2021.12.03 0 34
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 42
워싱턴 2021.12.03 0 42
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 44
뚜루루 2021.12.03 1 44
24275 VBA
New 병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 53
007 2021.12.03 0 53
24271 VBA
New Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (5)
Lucas's | 2021.12.03 | 추천 0 | 조회 31
Lucas's 2021.12.03 0 31
24270 기능/도구
New 여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (1)
함수시르미 | 2021.12.03 | 추천 1 | 조회 34
함수시르미 2021.12.03 1 34
24262 VBA
New 불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 47
파퍼 2021.12.03 0 47
24259 함수/공식
New 계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 42
skyzza**** 2021.12.03 0 42
24253 함수/공식
New 파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 32
안녕 2021.12.02 0 32
24252 함수/공식
New 표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 37
김성환 2021.12.02 0 37
24251 기능/도구
New 엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 34
너의나라 2021.12.02 0 34
24248 차트/그래프
그래프에서 가로 축 Data 설정하는 법 첨부파일
Etter | 2021.12.02 | 추천 0 | 조회 36
Etter 2021.12.02 0 36
24245 VBA
아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 38
argus 2021.12.02 0 38
24239 VBA
[초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 39
스캐쳐 2021.12.02 0 39
24238 VBA
어떤 한 배열에서 다른 배열에 있는 값만 제외하고 새로운 배열3을 만들 수 있을까요? (2)
Paul | 2021.12.02 | 추천 0 | 조회 35
Paul 2021.12.02 0 35
24233 함수/공식
0이상의 값(유효값)이 있는 칼럼과 그 값을 불러오고 싶습니다. 첨부파일 (2) 답변완료
크놉스 | 2021.12.02 | 추천 0 | 조회 32
크놉스 2021.12.02 0 32
24232 차트/그래프
엑셀 차트에서 특정 값이 너무 높을때 차트화 하는 법 (2) 답변완료
담담 | 2021.12.02 | 추천 0 | 조회 41
담담 2021.12.02 0 41
24230 VBA
vba 코딩을 부탁드립니다. 첨부파일 (6)
Trimman | 2021.12.02 | 추천 -2 | 조회 64
Trimman 2021.12.02 -2 64