시나공

시험에

나오는 것만

공부한다!

cmb예매 로 입력하셨던 것을 cmb공연명 으로 변경 한 후 다시 한번 확인 보세요. 

Private Sub cmd예매_Click()

입력행 = [c4].Row + [c4].CurrentRegion.Rows.Count

참조행 = cmb공연명.ListIndex + 5

Cells(입력행, 3) = Date

Cells(입력행, 4) = txt공연장

Cells(입력행, 5) = Cells(참조행, 11)

Cells(입력행, 6) = Val(txt좌석수)

Cells(입력행, 7) = Cells(참조행, 12)

Cells(입력행, 8) = Cells(참조행, 13)

Cells(입력행, 9) = Format(Cells(입력행, 8) * Cells(입력행, 6), "#,###원")

txt공연장.SetFocus

End Sub

Private Sub cmd종료_Click()

MsgBox "전체 예메 건수는 " & [c4].CurrentRegion.Rows.Count - 4 & "건입니다."

End Sub

Private Sub UserForm_Initialize()

cmb공연명.RowSource = "k5:k12"

End Sub