유저폼 리스트박스 검색

VBA
작성자
007
작성일
2021-10-14 20:52
조회
41
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

수고 많으셔요.

유저폼 리스트 박스에 있는 리스트(여러 학생들의 이름)와

1) 검색하려는 값(학생이름)이 일치하지 않을 경우, '다시 검색하라'는 메시지창 띄우고

2) 일치하는 경우, 리스트에서 검색하는 학생 이름을 선택하게 하고 싶습니다.

* 첨부파일에서 '검색' 단추를 누르기  -> 유저폼의 성명란에서 '가나다' 입력 -> '검색' 단추를 누르기

>> 에러가 납니다.

부탁드립니다.

 

 

회원등급 : 열매1단계
포인트 : 949 EP
총질문 : 7 개 (마감율 : 57%)
채택답변 : 0 개
전체 2

  • 2021-10-15 08:38
    채택된 답변
    Private Sub Cmd1_Click()
        Dim Findname As String
        Sheet1.Range("D5") = txt_01
        Findname = Sheet1.Range("D5")
        
        '찾는 이름이 없을 경우???
        
        If Not FindListItem(Findname) Then
            MsgBox "다시 검색하라", vbCritical, "찾기 오류"
        End If
        
        
    End Sub
    
    Private Function FindListItem(searchName As String) As Boolean
        Dim i As Integer, result As Boolean
        
        result = False
        For i = 0 To Lst학생정보.ListCount - 1
            If StrComp(Lst학생정보.List(i), searchName, vbTextCompare) = 0 Then
                Lst학생정보.Selected(i) = True
                result = True
                Exit For
            End If
        Next
        
        FindListItem = result
    End Function

     

    소스코드 참고 바랍니다.


전체 4,205
번호 카테고리 제목 작성자 작성일 추천 조회
4189 VBA
New vba listbox 에 head 추가하는 방법
서민철 | 2021.10.17 | 추천 0 | 조회 8
서민철 2021.10.17 0 8
4188 함수/공식
New 다품목 안전 재고 관리시 사용할 수 있는 함수 문의
엑셀왕왕초보 | 2021.10.17 | 추천 0 | 조회 13
엑셀왕왕초보 2021.10.17 0 13
4187 함수/공식
New importrange로 불러온 그림이 인쇄가 안됩니다..ㅠㅠ
민 쌤 | 2021.10.17 | 추천 0 | 조회 16
민 쌤 2021.10.17 0 16
4186 함수/공식
New 꼭 도와 주세요. 첨부파일 (2)
그린의달인 | 2021.10.16 | 추천 0 | 조회 34
그린의달인 2021.10.16 0 34
4185 함수/공식
New 공백 유지하는 중복 제거 문의 첨부파일 (4) 답변완료
clairebear8 | 2021.10.16 | 추천 0 | 조회 33
clairebear8 2021.10.16 0 33
4184 함수/공식
New 엑셀 공식 도와주세요~ 첨부파일 (1)
ma**** | 2021.10.16 | 추천 0 | 조회 45
ma**** 2021.10.16 0 45
4183
New 제가 만든 엑셀VBA가 오류들이 있어 도움을 청합니다. 첨부파일 (1)
유림아빠 | 2021.10.16 | 추천 0 | 조회 26
유림아빠 2021.10.16 0 26
4182 차트/그래프
New 이런 챠트도 가능한지요 (1)
| 2021.10.16 | 추천 0 | 조회 44
2021.10.16 0 44
4181 함수/공식
New 중복값 제거 및 특정조건을 만족하는 값만 표시 첨부파일 (4)
리부트짱가 | 2021.10.16 | 추천 0 | 조회 42
리부트짱가 2021.10.16 0 42
4180 VBA
New pdf파일저장 + 드롭다운 매크로 VBA 문의드립니다. 첨부파일 (1)
호두마루 | 2021.10.16 | 추천 1 | 조회 25
호두마루 2021.10.16 1 25
4179 기능/도구
New 다중조건을 다수의 셀에 입력하는 방법 (1)
seeking | 2021.10.15 | 추천 0 | 조회 34
seeking 2021.10.15 0 34
4178 함수/공식
New 같은 값끼리 같은 색을 적용하고 싶습니다 첨부파일 (6)
유령회원 | 2021.10.15 | 추천 0 | 조회 33
유령회원 2021.10.15 0 33
4177 VBA
New VBA로 날짜 입력하는데 형식이 날짜형실으로 바꿀수있을까요? (1)
박종만 | 2021.10.15 | 추천 0 | 조회 29
박종만 2021.10.15 0 29
4176 VBA
New VBA에서 엑셀파일 여는 버튼을 만들었습니다. 첨부파일 (2) 답변완료
늘푸른2 | 2021.10.15 | 추천 0 | 조회 37
늘푸른2 2021.10.15 0 37
4175 VBA
New 살려주세욤.. 다중조건+중복제거 데이터유효성검사.. 첨부파일
지져스 | 2021.10.15 | 추천 0 | 조회 42
지져스 2021.10.15 0 42
4174 차트/그래프
New 차트 시간축 간격을 조정하는 방법 첨부파일 (1)
kimki**** | 2021.10.15 | 추천 0 | 조회 23
kimki**** 2021.10.15 0 23
4173 VBA
웹 크롤링 관련 문의 (2) 답변완료
숯검뎅이 | 2021.10.15 | 추천 0 | 조회 35
숯검뎅이 2021.10.15 0 35
4172 VBA
유저폼 리스트박스 검색 첨부파일 (2) 답변완료
007 | 2021.10.14 | 추천 0 | 조회 41
007 2021.10.14 0 41
4171 VBA
셀선택 관련 문의 드려요. (3) 답변완료
033cola | 2021.10.14 | 추천 0 | 조회 36
033cola 2021.10.14 0 36
4170 차트/그래프
특정 가로축을 강조하는 방법 및 세로축 단위 입력 방법이 궁금합니다. (3) 답변완료
sorryfo**** | 2021.10.14 | 추천 0 | 조회 29
sorryfo**** 2021.10.14 0 29
4169 VBA
파일의 경로 이동 VBA구문질문 (3) 답변완료
H.B | 2021.10.14 | 추천 0 | 조회 30
H.B 2021.10.14 0 30
4168 함수/공식
SUMIFS 함수 오류가 뜹니다! 첨부파일 (1)
AndOrEnd | 2021.10.14 | 추천 0 | 조회 33
AndOrEnd 2021.10.14 0 33
4167 함수/공식
각 시트 값 조건별로 취합하기 첨부파일 (2)
롤로랄라 | 2021.10.14 | 추천 0 | 조회 42
롤로랄라 2021.10.14 0 42
4166 VBA
변수에 worksheetfunction값 넣기 (9) 답변완료
kimki**** | 2021.10.14 | 추천 0 | 조회 40
kimki**** 2021.10.14 0 40
4165 VBA
행바꿈 관련 재질문. (3) 답변완료
H.B | 2021.10.14 | 추천 0 | 조회 31
H.B 2021.10.14 0 31
4164 함수/공식
INDEX함수 2번째,3번째 인수없이 사용이 가능한가요? (3)
월마리아 | 2021.10.13 | 추천 0 | 조회 37
월마리아 2021.10.13 0 37
4163 함수/공식
고수님들의 도움을 부탁드려요 첨부파일 (3)
왕코 | 2021.10.13 | 추천 0 | 조회 49
왕코 2021.10.13 0 49
4162 문서서식
설비 Layout 도면에서 장비번호 검색시 도형이 있는 위치로 이동하는 방법 첨부파일 (5)
아빠의꿈 | 2021.10.13 | 추천 1 | 조회 62
아빠의꿈 2021.10.13 1 62
4161 함수/공식
조건부서식 관련해서 문의 드려요 (2)
AgariFighter | 2021.10.13 | 추천 0 | 조회 33
AgariFighter 2021.10.13 0 33
4160 기능/도구
고수분들 도와주세요!! 도서관 책의 일렬번호를 매크로? 크롤링? 시킬 수는 없을까요? 첨부파일 (3)
Gemma | 2021.10.13 | 추천 0 | 조회 56
Gemma 2021.10.13 0 56