유저폼 리스트박스 검색

@007 님

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

소스코드 참고 바랍니다.