컴퓨터활용능력 1급 실기 - 책 내용 질문하기

자료실 온라인 채점 동영상 강좌 커뮤니티

책 내용 질문하기

'13'런타임 오류 발생

도서

[2014] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)

페이지

232

조회수

492

작성일

2014-08-17

작성자

첨부파일

섹션18 프로시저 작성을 공부하고 있는데요.

프로시저를 작성하고나서 제대로 됬는지 실행해보려고 하니

'13'런타임 오류가 발생했다고 하며, 형식이 일치하지 않다고 하네요...

어디가 잘못된 건지 알려주세요 ㅠㅠ

If txt제품명 = " " Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = " " Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = " " Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = " " Then
MsgBox "결재형태를 입력하시오."

Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
입력행(Cells, 2) = CDate(txt판매일자)
입력행(Cells, 3) = txt제품명
Cells(입력행, 4) = Val(txt수량)
입력행(Cells, 5) = Val(txt단가)
입력행(Cells, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
입력행(Cells, 7) = cmb결재형태
txt제품명 = " "
txt수량 = " "
txt단가 = " "
cmb결재형태 = " "

End If

답변

2014-08-19 12:46:59

End If

입력행(cells,1) 로 작성하셨는데 아래와 같이 cells(입력행,~ 으로 변경하시구요.

Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = Val(txt수량)
Cells(입력행, 5) = Val(txt단가)
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
txt제품명 = " "
txt수량 = " "
txt단가 = " "
cmb결재형태 = " "
End If

날짜 입력하실때 날짜형식에 맞게 2014-08-19 와 같이 입력하세요.

좋은 하루 되세요.

*

2014-08-19 12:46:59

If txt제품명 = " " Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = " " Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = " " Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = " " Then
MsgBox "결재형태를 입력하시오."

Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
입력행(Cells, 2) = CDate(txt판매일자)
입력행(Cells, 3) = txt제품명
Cells(입력행, 4) = Val(txt수량)
입력행(Cells, 5) = Val(txt단가)
입력행(Cells, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
입력행(Cells, 7) = cmb결재형태
txt제품명 = " "
txt수량 = " "
txt단가 = " "
cmb결재형태 = " "

End If

입력행(cells,1) 로 작성하셨는데 아래와 같이 cells(입력행,~ 으로 변경하시구요.

If txt제품명 = " " Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = " " Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = " " Then
MsgBox "단가를 입력하시오."
ElseIf cmb결재형태 = " " Then
MsgBox "결재형태를 입력하시오."

Else
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = Val(txt수량)
Cells(입력행, 5) = Val(txt단가)
Cells(입력행, 6) = Format(Val(txt수량) * Val(txt단가), "currency")
Cells(입력행, 7) = cmb결재형태
txt제품명 = " "
txt수량 = " "
txt단가 = " "
cmb결재형태 = " "
End If

날짜 입력하실때 날짜형식에 맞게 2014-08-19 와 같이 입력하세요.

좋은 하루 되세요.
"

파일선택

목록 질문하기 수정하기 삭제