[컴활1급] Excel : 가입자검색 프로시저 [엑셀 프로시저 기출문제 1회]

---

- Excel : 가입자검색 프로시저 [프로시저 기출문제 1회]

' 가입자검색 단추 클릭
Private Sub cmd가입자검색_Click()
    가입자검색화면.Show
End Sub

' 폼 초기화
Private Sub UserForm_Initialize()
    cmb가입자명.RowSource = "B4:B29"
End Sub

' 검색 단추 클릭
Private Sub cmd검색_Click()
    참조행 = cmb가입자명.ListIndex + 4
    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), "0.0%")
    txt월불입액.Value = Format(Cells(참조행, 9), "#,###")
End Sub

' 폼 종료
Private Sub cmd종료_Click()
    MsgBox Format(Time, "AMPM HH시 MM분") & " 폼을 종료합니다.", , "폼 종료"
    Unload Me
End Sub

---

가입자검색화면 '검색' 버튼 실행 결과

가입자검색화면 '종료' 버튼 실행 결과

---