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

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

책 내용 질문하기

프로시저 작성 그대로 따라했는데 '424'런타임 오류발생입니다.

도서

[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)

페이지

226

조회수

작성일

2012-07-13

작성자

첨부파일

섹션18문제.zip

도대체 뭐가 문제인가요?

다시 처음부터 해보고

몇번을 검토해봐도 똑같네요.

'424'런타임 오류 발생, 개체가 필요하다고 나오는데요

중간에 어떤 설명이 빠진건지

도와주세요 ~

파일첨부하겠습니다!

답변

2012-07-16 14:43:46

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmd결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmd결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmd결재형태 = ""
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 Label1_Click()

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"
cmd결재형태.AddItem "현금"
cmd결재형태.AddItem "카드"
cmd결재형태.AddItem "어음"
End Sub

빨간색으로 표시된 부분이 d가 아니라 b 입니다.

424 런타임 오류는 오타에 의해 발생하는 것으로 오타가 없는지 확인해 보시기 바랍니다.

좋은 하루 되세요.

*

2012-07-16 14:43:46

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmd결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmd결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmd결재형태 = ""
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 Label1_Click()

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"
cmd결재형태.AddItem "현금"
cmd결재형태.AddItem "카드"
cmd결재형태.AddItem "어음"
End Sub

빨간색으로 표시된 부분이 d가 아니라 b 입니다.

424 런타임 오류는 오타에 의해 발생하는 것으로 오타가 없는지 확인해 보시기 바랍니다.

좋은 하루 되세요.

"

파일선택

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