Private Sub lst결과_Click()

    Dim 선택 As Integer
    Dim 사번 As Range
    Dim 직원레코드 As Range

    선택 = lst결과.ListIndex

    If 선택 > -1 Then

        Set 사번 = Range("B2").CurrentRegion.Columns(1)
        Set 직원레코드 = 사번.Find(What:=lst결과.Value).Resize(1, 7)
        
        Me.Hide
        
        With frm편집
            
            .Show vbModeless
        
            .txt사번.Value = 직원레코드(1)
            .txt이름.Value = 직원레코드(2)
            .cmb직위.Value = 직원레코드(3)
            .txt주민등록.Value = 직원레코드(4)
            .txt생년월일.Value = 직원레코드(5)
            .txt나이.Value = 직원레코드(6)
        
            If 직원레코드(7) = "남" Then
                .opt남.Value = True
            Else
                .opt여.Value = True
            End If
            
        End With
        
    End If

End Sub