시나공

시험에

나오는 것만

공부한다!

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오"
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오"
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오"
ElseIf cmb결재형태 = "" Then
MsgBox "결재형태를 입력하시오"
Else
i = Range("b3").CurrentRegion.Rows.Count + 3
Cells(i, 2) = Date
Cells(i, 3) = txt제품명
Cells(i, 4) = Val(txt수량)
Cells(i, 5) = Val(txt단가)
Cells(i, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(i, 7) = cmb결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmb결재형태 = ""
End If

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

Private Sub cmd조회_Click()
i = [b3].Row + [b3].CurrentRegion.Rows.Count - 1
txt판매일자 = Cells(i, 2)
txt제품명 = Cells(i, 3)
txt수량 = Cells(i, 4)
txt단가 = Cells(i, 5)
End Sub

시나공1급실기 2018년도프로시저작성 섹션18문제부분인데 제식대로 풀어봤거든요... 학원에서 기억나는대로 ㅠㅠㅠㅠ근데 조회부분에서 자꾸틀리거나 답이 이상하게 나오네요ㅠㅠㅠㅠㅠㅠ 등록부분을 바꿔서그런거같은데ㅠㅠㅠㅠ 알려주실분 안계시나요ㅠㅠㅠㅠ 부탁드려요ㅠㅠㅠ