시나공

시험에

나오는 것만

공부한다!

시키는대로 정확히 입력 한 것 같은데 어디서 오류가 났는지 모르겠습니다.

디버그 눌렀을 경우에는 

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

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단가 = ""

cmg결재형태 = ""

End If

End Sub

Private Sub cmd조회_Click()

 기준행위치 = [b3]

 기준범위행수 = [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"

cmd결재형태.AddItem "현금"

cmd결재형태.AddItem "카드"

cmd결재형태.AddItem "어음"

End Sub