시나공

시험에

나오는 것만

공부한다!

코드를 

Private Sub UserForm_Initialize() 

에 입력하셨는데요. 

Private Sub cmd예매_Click()

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

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

    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

에 입력하셔야 합니다. 

코드를 옮겨서 다시 확인 해 보세요. 

좋은 하루 되세요.