컴퓨터활용능력 1급 실기 - 책 내용 질문하기

자료실 온라인 채점 동영상 강좌 커뮤니티

책 내용 질문하기

컴파일 오류 파일 첨부해요~

도서

[2008] 컴퓨터활용능력 1급 실기

페이지

287

조회수

116

작성일

2011-05-12

작성자

첨부파일

기본모의고사_2회_프로시저.xls

쫌전에 문의드린거 파일 첨부해요~

end sub는 써져있는데

오류날때 txt일자부분이 블럭지정되는 이유가뭔지ㅎㅎ

오타난것도 없는것같은데 모르겠어요 ㅠ

답변

2011-05-13 09:54:58

그림상으로는 잘 몰랐는데 오타가 있네요.

Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
cellse(입력행, 1) = CDate(txt일자)
cellse(입력행, 2) = cmb종류
cellse(입력행, 3) = txt수량
cellse(입력행, 4) = txt단가
cellse(입력행, 5) = Format(Val(txt수량) * Val(txt단가), "#,###")
If ch할인여부 = True Then
cellse(입력행, 6) = txt수량 * txt단가 * 0.1
Else
cellse(입력행, 6) = 0
End If

cellse 가 아니라 cells 입니다. 수정해 보세요.

Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(txt일자)
Cells(입력행, 2) = cmb종류
Cells(입력행, 3) = txt수량
Cells(입력행, 4) = txt단가
Cells(입력행, 5) = Format(Val(txt수량) * Val(txt단가), "#,###")
If ch할인여부 = True Then
Cells(입력행, 6) = txt수량 * txt단가 * 0.1
Else
Cells(입력행, 6) = 0
End If

cmb종류 = ""
txt수량 = ""
txt단가 = ""

End Sub

cmb종류 = ""
txt수량 = ""
txt단가 = ""

End Sub

좋은 하루 되세요.

*

2011-05-13 09:54:58

그림상으로는 잘 몰랐는데 오타가 있네요.

Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
cellse(입력행, 1) = CDate(txt일자)
cellse(입력행, 2) = cmb종류
cellse(입력행, 3) = txt수량
cellse(입력행, 4) = txt단가
cellse(입력행, 5) = Format(Val(txt수량) * Val(txt단가), "#,###")
If ch할인여부 = True Then
cellse(입력행, 6) = txt수량 * txt단가 * 0.1
Else
cellse(입력행, 6) = 0
End If

cellse 가 아니라 cells 입니다. 수정해 보세요.

Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(txt일자)
Cells(입력행, 2) = cmb종류
Cells(입력행, 3) = txt수량
Cells(입력행, 4) = txt단가
Cells(입력행, 5) = Format(Val(txt수량) * Val(txt단가), "#,###")
If ch할인여부 = True Then
Cells(입력행, 6) = txt수량 * txt단가 * 0.1
Else
Cells(입력행, 6) = 0
End If

cmb종류 = ""
txt수량 = ""
txt단가 = ""

End Sub

cmb종류 = ""
txt수량 = ""
txt단가 = ""

End Sub

좋은 하루 되세요.
"

파일선택

목록 질문하기 수정하기 삭제