책 내용 질문하기
14년 2회 컴활1급엑셀 마지막문제
도서
2015 시나공 컴퓨터활용능력 1급 실기 기출문제집(eBook전용)
페이지
조회수
268
작성일
2015-10-27
작성자
첨부파일
Private Sub cmd입력_Click()
i = Range("b1").CurrentRegion.Rows.Count + 1
irow = lst대상입장료.ListIndex
If txt인원수 = "" Or txt인원수 = 0 Then
MsgBox "인원수를 입력하세요"
Else
Cells(i, 2) = cmb구분
Cells(i, 3) = lst대상입장료.List(irow, 0)
Cells(i, 4) = lst대상입장료.List(irow, 1)
Cells(i, 5) = Val(txt인원수)
Cells(i, 6) = Cells(i, 5) * Cells(i, 4)
Cells(i, 7) = Date
End If
End Sub
이렇게하면 cells(i,6) 즉 금액 구하는 계산이 안되고 오류뜨네요
왜그런가요~
답변
2015-10-28 21:50:24
질문 주신 코드를 입력하여 확인 해 보았는데 정상적으로 실행이 가능합니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
-
*2015-10-28 21:50:24
질문 주신 코드를 입력하여 확인 해 보았는데 정상적으로 실행이 가능합니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.