책 내용 질문하기
기타작업-2
도서
[2015] 컴퓨터활용능력 1급 실기
페이지
151
조회수
253
작성일
2015-10-06
작성자
첨부파일
기타작업-2
Private Sub cmd입력_Click()
입력행 = Range("b1").CurrentRegion.Rows.Count + 1
참조행 = 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
이렇게 입력하고 값을 넣어보면 대상 필드에 계속 똑같이 어른이 나옵니다.
어디가 어떻게 잘못된것인가요?
첨부파일 첨부했습니다.
답변
2015-10-12 10:17:15
안녕하세요.
교재가 잘못되었습니다. '참조행 = cmb구분.ListIndex'를 '참조행 = lst대상입장료.ListIndex'로 작성해야 합니다. 자료실에 보면 정오표가 있으니 정오표를 먼저 확인한 후 공부하시기 바랍니다. 공부하는데 혼동을 드려 죄송합니다.
즐거운 하루되세요.
-
*2015-10-12 10:17:15
안녕하세요.
교재가 잘못되었습니다. '참조행 = cmb구분.ListIndex'를 '참조행 = lst대상입장료.ListIndex'로 작성해야 합니다. 자료실에 보면 정오표가 있으니 정오표를 먼저 확인한 후 공부하시기 바랍니다. 공부하는데 혼동을 드려 죄송합니다.
즐거운 하루되세요.