책 내용 질문하기
프로시저가 정말 기초적인 부분에서 안됩니다.
도서
[2011] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)
페이지
217
조회수
459
작성일
2011-07-31
작성자
첨부파일
책이랑 완전히 동일하게 썼는데요,
"424 런타임 오류가 발생하였습니다
개체가 필요합니다" 라고 뜨면서 디버그 모드가 실행됩니다.
디버그가 뜨는건 다른것도 아니고;;;
판매자료입력.show
이겁니다;;;;
다른거를 잘못써서 오류가 나는것도 아니고 저런 기초적인 부분에서 실행이 안되니 미치겠네요...;;
뭐가 문제인지 부탁드립니다.
제가 썼던 구문들은 밑에 붙일게요.
----------------worksheet-------------------
Private Sub 판매입력_Click()
판매자료입력.Show
End Sub
Private Sub Worksheet_Activate()
[b1] = "컴활합격"
End Sub
[b1] = "컴활합격"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Name = "바탕체"
Target.Font.Size = "14"
End Sub
Target.Font.Name = "바탕체"
Target.Font.Size = "14"
End Sub
-------------------------user form------------
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) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
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) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
txt제품명 = " "
txt단가 = " "
txt수량 = " "
cmb결재형태 = " "
End If
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
입력행 = [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
Unload Me
End Sub
Private Sub lst제품목록_Click()
txt제품명 = lst제품목록
End Sub
txt제품명 = lst제품목록
End Sub
Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "I4:I13"
cmb결제형태.AddItem "현금"
cmb결제형태.AddItem "카드"
cmb결제형태.AddItem "어음"
End Sub
txt판매일자 = Date
lst제품목록.RowSource = "I4:I13"
cmb결제형태.AddItem "현금"
cmb결제형태.AddItem "카드"
cmb결제형태.AddItem "어음"
End Sub
답변
2011-08-01 13:48:27
424런타임 오류는 오타때문에 나타납니다.
꼭 노란색으로 표시 된 부분이 틀렸다는 것이 아닙니다.
다른 부분에 오타가 없는지 확인 해 보셔야 합니다.
Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "I4:I13"
cmb결제형태.AddItem "현금"
cmb결제형태.AddItem "카드"
cmb결제형태.AddItem "어음"
End Sub
txt판매일자 = Date
lst제품목록.RowSource = "I4:I13"
cmb결제형태.AddItem "현금"
cmb결제형태.AddItem "카드"
cmb결제형태.AddItem "어음"
End Sub
에서 cmb결제형태 가 아니라 cmb결재형태 입니다.
제를 재로 수정하여 다시 확인해 보세요.
좋은 하루 되세요.
"
-
*2011-08-01 13:48:27
424런타임 오류는 오타때문에 나타납니다.
꼭 노란색으로 표시 된 부분이 틀렸다는 것이 아닙니다.
다른 부분에 오타가 없는지 확인 해 보셔야 합니다.
Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "I4:I13"
cmb결제형태.AddItem "현금"
cmb결제형태.AddItem "카드"
cmb결제형태.AddItem "어음"
End Sub에서 cmb결제형태 가 아니라 cmb결재형태 입니다.제를 재로 수정하여 다시 확인해 보세요.좋은 하루 되세요."