책 내용 질문하기
밑에 첨부파일이 제대로 열리지 않는다 해서 재질문드립니다.
도서
[2015] 기출문제집 컴퓨터활용능력 1급 실기
페이지
조회수
59
작성일
2015-02-03
작성자
첨부파일

안녕하세요.

프로시저에 대해 질문드립니다..

기출유형 1번의 프로시저를 작성했는데

첨부파일을 보시면 알겠지만 답안지와는 조금 다르게 작성했는데 값은 제대로 적용된것 같은데

조회 버튼을 누르면 해당 조회의 값이 조회되는 것이 아니라 사라집니다..

어디서 잘못됬는지 명쾌하게 알고 싶습니다.

문제 유형은 기출유형 1입니다.

암호는 7753!9 입니다.

답변
2015-02-04 04:19:33

이문제는 입력하는 문제가 아니라 검색하는 문제이므로

Private Sub cmd검색_Click()
참조행 = cmb가입자명.ListIndex + 4
Cells(참조행, 3) = txt상품종류
Cells(참조행, 4) = txt지점명
Cells(참조행, 5) = txt성별
Cells(참조행, 6) = txt가입일
Cells(참조행, 7) = txt납입지점
Cells(참조행, 8) = Format(txt연이율, "0.0%")
Cells(참조행, 9) = Format(txt월불입액, "#,###")

End Sub

을 아래 와 같이 변경하셔야 합니다.

Private Sub cmd검색_Click()
참조행 = cmb가입자명.ListIndex + 4
txt상품종류 = Cells(참조행, 3)
txt지점명 = Cells(참조행, 4)
txt성별 = Cells(참조행, 5)
txt가입일 = Cells(참조행, 6)
txt납입지점 = Cells(참조행, 7)
txt연이율 = Cells(참조행, 8)
txt월불입액 = Cells(참조행, 9)

End Sub
컨트롤에 셀에 입력된 값을 넣어 표시해야 하므로 이와 같이 작성해야 하는 것이죠.
좋은 하루 되세요.
"
  • *
    2015-02-04 04:19:33

    이문제는 입력하는 문제가 아니라 검색하는 문제이므로

    Private Sub cmd검색_Click()
    참조행 = cmb가입자명.ListIndex + 4
    Cells(참조행, 3) = txt상품종류
    Cells(참조행, 4) = txt지점명
    Cells(참조행, 5) = txt성별
    Cells(참조행, 6) = txt가입일
    Cells(참조행, 7) = txt납입지점
    Cells(참조행, 8) = Format(txt연이율, "0.0%")
    Cells(참조행, 9) = Format(txt월불입액, "#,###")

    End Sub

    을 아래 와 같이 변경하셔야 합니다.

    Private Sub cmd검색_Click()
    참조행 = cmb가입자명.ListIndex + 4
    txt상품종류 = Cells(참조행, 3)
    txt지점명 = Cells(참조행, 4)
    txt성별 = Cells(참조행, 5)
    txt가입일 = Cells(참조행, 6)
    txt납입지점 = Cells(참조행, 7)
    txt연이율 = Cells(참조행, 8)
    txt월불입액 = Cells(참조행, 9)

    End Sub
    컨트롤에 셀에 입력된 값을 넣어 표시해야 하므로 이와 같이 작성해야 하는 것이죠.
    좋은 하루 되세요.
    "
· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.