시나공

시험에

나오는 것만

공부한다!

도와주십시요 ㅠㅜ ,"424 런타임 오류가 발생하였습니다개체가 필요합니다" 라고 뜨면서 디버그 모드가 실행됩니다.디버그가 뜨니다. 판매자료입력.show에서 틀렸다고 나오는데.. 오타를 찾고찾고 찾아도 못찾겠는데 혹시 다른 문제 일까요? ㅠㅜ

UserForm

----------------------

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")
Cells(입력행, 7) = cmb결재형태

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_Initialize()
txt판매일자 = Date
Ist제품목록.RowSource = "I4:I13"
cmb결재형태.AddItem "현금"
cmb결재형태.AddItem "카드"
cmb결재형태.AddItem "어음"

End Sub

Sheet4 (무작정 따라하기)

---------------
Private Sub Worksheet_Activate()
[b1] = "컴활합격"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Name = "바탕체"
Target.Font.Size = "14"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub 판매입력_Click()
판매자료입력.Show
End Sub