시나공

시험에

나오는 것만

공부한다!

교재, 강의에 나와있는대로 그대로 했고 스스로 검토까지 해봤는데 어디가 틀렸는지 잘 모르겟네요 순서는 조금 틀린것 같던데 혹시 그게 문제가 있는건지 ? 일단 밑에 제가 한거 복사했구요 런타임 오류라고 뜨면 디버그 누르면 저렇게 나오네요 빠른 답변 부탁드립니다.

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 판매입력_Click()
판매자료입력.Show
End Sub

Private Sub cmd등록_Click()

If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt결제형태 = "" 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
lst제품목록.RowSource = "i4:i13"
cmb결제형태.AddItem "현금"
cmb결제형태.AddItem "카드"
cmb결제형태.AddItem "어음"
End Sub