파일 경로: C:\Documents and Settings\h\바탕 화면\02회 (version 1).xls
프로그램 버전: 4.0.28
엑셀 버전: 2003
항목: Excel 1급02형 [프로그래밍작업] - [2-③ 텍스트 상자의 값을 마지막 행에 표시하기]
02회 기본모의고사. 문제 4번-2-③
컴활프로그램 채점을 하는데, 계속 프로시저에서 오류가 나는데요 ㅜㅜ
어디가 잘못됐는지 찝어주세요 선생님
Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = 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
-
*2011-08-26 12:16:39
Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = 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 Subcmb종류 = ""txt수량 = ""txt단가 = ""과 같이 =을 입력하셔야 합니다. 수정하여 사용해 보세요.좋은 하루 되세요."