책 내용 질문하기
기본모의고사 8회 프로시저
도서
2018 시나공 컴퓨터활용능력 1급 실기(엑셀, 액세스 2010 사용자용)
페이지
411
조회수
60
작성일
2018-05-23
작성자
탈퇴*원
첨부파일
Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(txt구매일자)
Cells(입력행, 2) = List품목명
Cells(입력행, 3) = Val(txt수량)
Cells(입력행, 4) = Format(txt수량 * txt단가, "#,###")
List품목명 = ""
txt단가 = ""
txt수량 = ""
End Sub
Private Sub cmd종료_Click()
MsgBox " 총 구매건수는" & [a3].CurrentRegion.Rows.Count - 1 & "건입니다", vbOKOnly
Unloade Me
디디버그 오류 어쩌고 뜨는 것 같아서요
틀린 점좀 봐주세요
답변
2018-05-26 23:00:34
작성하신 코드로 확인 해 보았는데 오류가 발생하지 않습니다.
lst박스에서 값을 선택하고 txt박스에도 값을 입력한 후 확인 해 보세요.
좋은 하루 되세요.
-
*2018-05-26 23:00:34
작성하신 코드로 확인 해 보았는데 오류가 발생하지 않습니다.
lst박스에서 값을 선택하고 txt박스에도 값을 입력한 후 확인 해 보세요.
좋은 하루 되세요.