어디가 틀렸는지 모르겠네요;;; 프로그램 돌려보니 프로시저에서 틀렸다는데;;
파일 경로: C:\길벗컴활1급\01 엑셀\03 기본모의고사\02회한것.xlsm
프로그램 버전: 4.0.75(2007)
항목: Excel 1급X2형 [프로그래밍작업] - [2-③ 텍스트 상자의 값을 마지막 행에 표시하기]
이렇게 나오네요
기준점수는 넘겼지만 그래도 찜찜해서요;; 답하고 대조를 해도.. 잘 모르겠어요;;
답변 부탁드려요
Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(txt날짜) txt날짜로 되어 있는데 txt일자 로 변경하셔야 합니다. 컨트롤 명을 잘못 사용하셨네요.
Cells(입력행, 2) = cmb종류
Cells(입력행, 3) = txt수량
Cells(입력행, 4) = txt단가
Cells(입력행, 5) = Format(txt단가 * txt수량, "#,###")
If ch할인여부 = True Then
Cells(입력행, 6) = txt단가 * txt수량 * 0.1
Else
Cells(입력행, 6) = "0"
End If
txt수량 = ""
txt단가 = ""
End Sub
-
*2012-08-14 02:26:47
Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(txt날짜) txt날짜로 되어 있는데 txt일자 로 변경하셔야 합니다. 컨트롤 명을 잘못 사용하셨네요.
Cells(입력행, 2) = cmb종류
Cells(입력행, 3) = txt수량
Cells(입력행, 4) = txt단가
Cells(입력행, 5) = Format(txt단가 * txt수량, "#,###")
If ch할인여부 = True Then
Cells(입력행, 6) = txt단가 * txt수량 * 0.1
Else
Cells(입력행, 6) = "0"
End Ifcmb종류 = ""
txt수량 = ""
txt단가 = ""
End Sub좋은 하루 되세요."