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

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

책 내용 질문하기

프로시저 오류 분석 요청

도서

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

페이지

228

조회수

작성일

2015-03-04

작성자

첨부파일

섹션17문제.zip

안녕하세요 엑셀을 공부하다 질문이 생겼습니다.

프로시저를 책과 같이 작성하였는데 디버그라면서 오류가 뜨네요

원인을 잘 모르겟어요 제대로 작성했는데...

어떤 문제가 있는거죠?

파일 첨부해서 보냈습니다

정확한 답변부탁드립니다^^

답변

2015-03-06 06:54:32

cmb결재형태를 cmd결재형태로 작성하셨구요.

lst제품목록을 ist제품목록으로 작성하셨네요.

424런타임 오류는 오타에 의해 나타나는 오류이므로 오타를 아래와 같이 수정하세요.

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) = Val(txt수량)
Cells(입력행, 5) = Val(txt단가)
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If

End Sub

Private Sub cmd조회_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub lst제품목록_Click()
txt제품명 = lst제품목록
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "I4:I13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub

좋은 하루 되세요.

*

2015-03-06 06:54:32

cmb결재형태를 cmd결재형태로 작성하셨구요.

lst제품목록을 ist제품목록으로 작성하셨네요.

424런타임 오류는 오타에 의해 나타나는 오류이므로 오타를 아래와 같이 수정하세요.

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) = Val(txt수량)
Cells(입력행, 5) = Val(txt단가)
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If

End Sub

Private Sub cmd조회_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count - 1
입력행 = 기준행위치 + 기준범위행수
txt판매일자 = Cells(입력행, 2)
txt제품명 = Cells(입력행, 3)
txt수량 = Cells(입력행, 4)
txt단가 = Cells(입력행, 5)
End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub lst제품목록_Click()
txt제품명 = lst제품목록
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "I4:I13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"
End Sub

좋은 하루 되세요.
"

파일선택

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