프로시져에서 입력을 선택할시 폼의 내용이 엑셀에 입력하도록 하는 명령입니다.
Private Sub cmd입력_Click()
입력행 = [b1].Row + [b1].CurrentRegion.Rows.Count
참조행 = cmb구분.ListIndex
If txt인원수 = "" Or txt인원수 = 0 Then
MsgBox "인원수를 입력하세요"
Else
Cells(입력행, 2) = cmb구분
Cells(입력행, 3) = lst대상입장료.List(참조행, 0)
Cells(입력행, 4) = lst대상입장료.List(참조행, 1)
Cells(입력행, 5) = Val(txt인원수)
Cells(입력행, 6) = Cells(입력행, 4) * Cells(입력행, 5)
Cells(입력행, 7) = Date
End If
End Sub
여기에서 제 생각에는 참조행= lst대상입장료.Listindex 여야 할 것 같은데, 왜 cmb구분인지요?
이 부분이 이해가 안되서요. 답변 부탁드립니다.
고맙습니다.
책의 오류가 맞습니다.
159쪽 ? <입력> 버튼 기능 구현하기의 3번째 줄
수정 전 : 참조행 = cmb구분.ListIndex
수정 후 : 참조행 = lst대상입장료.ListIndex
이구요.
자료실 -> 정오표 에서 책에 해당하는 정오표를 찾아 확인 해 보시기 바랍니다.
좋은 하루 되세요.
-
*2016-06-18 13:50:46
책의 오류가 맞습니다.
159쪽 ? <입력> 버튼 기능 구현하기의 3번째 줄
수정 전 : 참조행 = cmb구분.ListIndex
수정 후 : 참조행 = lst대상입장료.ListIndex
이구요.
자료실 -> 정오표 에서 책에 해당하는 정오표를 찾아 확인 해 보시기 바랍니다.
좋은 하루 되세요.