시나공

시험에

나오는 것만

공부한다!

1. 실제 시험에서는 지시사항에 맞게 지정하고 정확한 결과가 나왔다면 정답으로 인정 됩니다. 

대부분 0 값이 표시된 경우에는 0% 와 같이 작성하시는 것이 제일 정확하다고 생각 합니다. 

2. 

Private Sub cmd주문_Click()

If IsNull(lst제품목록) Then

MsgBox "제품을 선택하세요."

ElseIf txt주문수량 = "" Or txt주문수량 < 1 Then    -> ElseIf Val(txt주문수량) < 1 Then

MsgBox "주문수량을 입력하세요."

Else

입력행 = [a3].CurrentRegion.Rows.Count + 3   -> [a3].Row + [a3].CurrentRegion.Rows.Count

참조행 = lst제품목록.ListIndex

Cells(입력행, 1) = CDate(txt주문날짜)

Cells(입력행, 2) = lst제품목록(참조행, 0)         -> lst제품목록.List(참조행, 0)

Cells(입력행, 3) = lst제품목록(참조행, 1)         -> lst제품목록.List(참조행, 1)

Cells(입력행, 4) = lst제품목록(참조행, 2)         -> lst제품목록.List(참조행, 2)

Cells(입력행, 5) = Val(lst제품목록(참조행, 3))   -> Val(lst제품목록.List(참조행, 3))

Cells(입력행, 6) = Val(txt주문수량)

Cells(입력행, 7) = Cells(입력행, 5) * Cells(입력행, 6)

End If

lst제품목록 = ""

End Sub

빨간색으로 표시된 부분을 수정 해 주세요. 

좋은 하루 되세요.