책 내용 질문하기
프로시저질문 드립니다
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
226
조회수
88
작성일
2013-09-02
작성자
첨부파일

도서명 [2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)

226 page, 5번문제에 대해서 질문드립니다.

문제는 아래와 같은데요. ↓

-----------------------------------------------------------------------------------------------

'판매자료입력' 폼화면에서 <등록>버튼(cmd등록)을 클릭하면 '판매자료입력'폼 화면의 입력 내용중 판매일자(txt판매일자), 제품명(txt제품명), 수량(txt수량), 단가(txt단가), 결재형태(cmb결재형태)가 '무작정따라하기' 시트의 표에 입력되어 있는 마지막 행 다음에 연속해서 추가되는 프로시저를 작성하시오.

▶데이터는[b3]셀부터 입력되어 있다.

▶제품명(txt제품명)을 입력하지 않았으면 '제품명을 입력하시오.', 수량(txt수량)을 입력하지 않았으면 '수량을 입력하시오.', 단가(txt단가를 입력하지 않았으면 '단가를 입력하시오.', '결재형태(cmb결재형태)를 입력하지 않았으면 '결제형태를 입력하시오.'라는 메시지를 출력하고, 이 모두를 입력했을 때만 폼의 데이터를 워크시트에 입력하시오.

▶폼의 <등록>버튼을 클릭하면 폼의 제품명, 수량, 단가, 결재형태에는 새로운 값이 입력될 수 있도록 설정하시오.

▶데이터를 추가하거나 삭제하여도 항상 마지막 데이터 다음에 입력되어야 한다.

▶금액은 입력받은 단가와 수량의 곱으로 계산하며, 금액에는 통화기호를 붙인다.

-----------------------------------------------------------------------------------------------

답이 아래와 같습니다.

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If
End Sub
궁금한 것은 붉은 색으로 표시된 것인데요. 왜 Cdate라는 말이 붙나요?
그냥 생각했을 때는, date(txt판매일자)라고 해도 될 것 같은데
"C"가 무엇인지 궁금합니다.
답변
2013-09-05 06:27:42

cdate 함수는 텍스트 형식의 데이터를 날짜 형식으로 변경해 주는 함수입니다.

컨트롤에 입력된 값이 2009-09-02와 같이 날짜 형식으로 되어 있다고 해도 이것을 텍스트로 인식하는 경우가 있습니다.

그러므로 cdate를 사용하여 날짜 형식으로 변경해 주는 것입니다.

이것을 사용하지 않아도 날짜 형식으로 입력되었다면 생략해도 상관 없습니다.

좋은 하루 되세요.

"
  • *
    2013-09-05 06:27:42

    cdate 함수는 텍스트 형식의 데이터를 날짜 형식으로 변경해 주는 함수입니다.

    컨트롤에 입력된 값이 2009-09-02와 같이 날짜 형식으로 되어 있다고 해도 이것을 텍스트로 인식하는 경우가 있습니다.

    그러므로 cdate를 사용하여 날짜 형식으로 변경해 주는 것입니다.

    이것을 사용하지 않아도 날짜 형식으로 입력되었다면 생략해도 상관 없습니다.

    좋은 하루 되세요.

    "
· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.