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

---

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

' 강사검색 단추 클릭
Private Sub cmd강사검색_Click()
    강사정보검색.Show
End Sub

' 폼 초기화
Private Sub UserForm_Initialize()
    cmb강사코드.RowSource = "A3:A26"
End Sub

' 검색 단추 클릭
Private Sub cmd검색_Click()
    참조행 = cmb강사코드.ListIndex + 3
    txt강사명.Value = Cells(참조행, 2)
    txt수업과목.Value = Cells(참조행, 3)
    txt성별.Value = Cells(참조행, 4)
    txt수강인원.Value = Cells(참조행, 5)
    txt근무시간.Value = Cells(참조행, 6)
    txt근무일수.Value = Cells(참조행, 7)
    txt월급여액.Value = Format(Cells(참조행, 8), "#,###")
End Sub

' 폼 종료
Private Sub cmd종료_Click()
    MsgBox "강사는 총 " & [A1].CurrentRegion.Rows.Count - 2 & "명입니다.", , "폼 종료"
    Unload Me
End Sub

---

강사정보검색 '검색' 버튼 실행 결과

'종료' 버튼 실행 결과

---