[컴활1급] Excel : 사원정보조회 프로시저 [엑셀 프로시저 기출문제 5회]

---

- Excel : 사원정보조회 프로시저 [엑셀 프로시저 기출문제 5회]

' 사원조회 단추 클릭
Private Sub cmd사원조회_Click()
    사원정보.Show
End Sub

' 조회 단추 클릭
Private Sub cmd조회_Click()
    스위치 = 0
    참조행 = 3
    For Each x In Range("B4:B25")
        참조행 = 참조행 + 1
        If x.Value = txt사원번호.Value Then
            txt사원번호.Value = Format(Cells(참조행, 2), ">&&&&&")
            txt성명.Value = Cells(참조행, 3)
            txt부서명.Value = Cells(참조행, 4)
            txt직위.Value = Cells(참조행, 5)
            txt신청일.Value = Cells(참조행, 6)
            txt총점.Value = Cells(참조행, 7)
            스위치 = 1
            Exit For
        End If
    Next
    If 스위치 = 0 Then
        MsgBox "사원번호가 잘못되었습니다."
    End If
End Sub

' 워크시트 데이터 변경
Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Activate
    Target.Font.Name = "굴림"
    Target.Font.Size = 13
End Sub

---

사원정보조회 '조회' 버튼 실행 결과

잘못된 사원번호를 입력했을 경우

---