[컴활1급] Excel : 약품주문 프로시저 [엑셀 프로시저 기출문제 6회]

---

- [컴활1급] Excel : 약품주문 프로시저 [엑셀 프로시저 기출문제 6회]

' 주문하기 단추 클릭
Private Sub cmd주문하기_Click()
    약품주문.Show
End Sub

' 폼 초기화
Private Sub UserForm_Initialize()
    lst제품목록.RowSource = "I8:L22"
    txt주문날짜.Value = Date
End Sub

' 주문 단추 클릭
Private Sub cmd주문_Click()
    If IsNull(lst제품목록.Value) Then
        MsgBox "제품을 선택하세요."
    ElseIf Val(txt주문수량.Value) < 1 Then
        MsgBox "주문수량을 입력하세요."
    Else
        참조행 = lst제품목록.ListIndex
        입력행 = [A3].Row + [A3].CurrentRegion.Rows.Count
        Cells(입력행, 1) = txt주문날짜.Value
        Cells(입력행, 2) = lst제품목록.List(참조행, 0)
        Cells(입력행, 3) = lst제품목록.List(참조행, 1)
        Cells(입력행, 4) = lst제품목록.List(참조행, 2)
        Cells(입력행, 5) = lst제품목록.List(참조행, 3)
        Cells(입력행, 6) = txt주문수량.Value
        Cells(입력행, 7) = Cells(입력행, 5) * Cells(입력행, 6)
        lst제품목록.Value = ""
    End If
End Sub

' 폼 종료
Private Sub cmd종료_Click()
    Unload Me
End Sub

---

약품주문 '주문' 버튼 실행 결과

---