[컴활1급] Excel : 공연예매관리 프로시저 [엑셀 프로시저 기출문제 4회]

---

- Excel : 공연예매관리 프로시저 [엑셀 프로시저 기출문제 4회]

' 공연예매 단추 클릭
Private Sub cmd공연예매_Click()
    공연예매관리.Show
End Sub

' 폼 초기화
Private Sub UserForm_Initialize()
    cmb공연명.RowSource = "K5:K12"
End Sub

' 예매 단추 클릭
Private Sub cmd예매_Click()
    입력행 = [C4].Row + [C4].CurrentRegion.Rows.Count
    참조행 = cmb공연명.ListIndex + 5
    Cells(입력행, 3) = Date
    Cells(입력행, 4) = txt공연장.Value
    Cells(입력행, 5) = cmb공연명.Value
    Cells(입력행, 6) = txt좌석수.Value
    Cells(입력행, 7) = Cells(참조행, 12)
    Cells(입력행, 8) = Cells(참조행, 13)
    Cells(입력행, 9) = Format(Cells(입력행, 6) * Cells(입력행, 8), "#,###원")
    txt공연장.SetFocus
End Sub

' 폼 종료
Private Sub cmd종료_Click()
    MsgBox "전체 예매 건수는 " & [C4].CurrentRegion.Rows.Count - 1 & "건입니다."
    Unload Me
End Sub

---

공연예매관리 '예매' 버튼 실행 결과

공연예매 '종료' 버튼 실행 결과

---