책 내용 질문하기
'28'런타임 오류가 발생하였습니다:
스택 공간이 부족합니다
계속 오류가 떠요
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
485
조회수
242
작성일
2012-06-28
작성자
첨부파일
실전모의고사 F형
기타작업 2-2를 작업하는데
'1004' 런타임 오류가 발생하였습니다:
응용 프로그램 정의 오류 또는 개체 정의 오류입니다
'28'런타임 오류가 발생하였습니다:
스택 공간이 부족합니다
이 같은 경고문이 반복해서 뜨면서 실행이 되지 않습니다
왜 그런거죠?
해결책을 알려주시면 감사하겠습니다.
답변
2012-06-28 12:30:48
Private Sub 입력_Click()
입력 = [a3].Row + [a3].CurrentRegion.Rows.Count + 3
Cells(입력, 1) = 영화명
Cells(입력, 2) = 단가
Cells(입력, 3) = 매수
Cells(입력, 4) = Format(금액, "#,###")
Cells(입력, 2) = 단가
Cells(입력, 3) = 매수
Cells(입력, 4) = Format(금액, "#,###")
If 금액 >= 40000 Then
Cells(입력, 5) = Val(금액) * 0.1
Else
Cells(입력, 5) = ""
End If
Cells(입력, 5) = Val(금액) * 0.1
Else
Cells(입력, 5) = ""
End If
영화명 = ""
단가 = ""
매수 = ""
금액 = ""
단가 = ""
매수 = ""
금액 = ""
위에 빨간색으로 표시된 부분을 삭제하시면 스택오류는 해결이 됩니다.
입력 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력, 1) = 영화명
Cells(입력, 2) = 단가
Cells(입력, 3) = 매수
Cells(입력, 4) = Format(금액, "#,###")
If 금액 >= 40000 Then
Cells(입력, 5) = Val(금액) * 0.1
End If
영화명 = ""
단가 = ""
매수 = ""
금액 = ""
Cells(입력, 2) = 단가
Cells(입력, 3) = 매수
Cells(입력, 4) = Format(금액, "#,###")
If 금액 >= 40000 Then
Cells(입력, 5) = Val(금액) * 0.1
End If
영화명 = ""
단가 = ""
매수 = ""
금액 = ""
하지만 다른 오류가 나는데 이것은 해결방법이 없네요.
새파일로 다시 문제를 풀어보시기 바랍니다.
파일을 첨부하오니 이파일로 문제를 풀어보세요.
좋은 하루 되세요.
-
*2012-06-28 12:30:48
Private Sub 입력_Click()
입력 = [a3].Row + [a3].CurrentRegion.Rows.Count + 3Cells(입력, 1) = 영화명
Cells(입력, 2) = 단가
Cells(입력, 3) = 매수
Cells(입력, 4) = Format(금액, "#,###")If 금액 >= 40000 Then
Cells(입력, 5) = Val(금액) * 0.1
Else
Cells(입력, 5) = ""
End If영화명 = ""
단가 = ""
매수 = ""
금액 = ""
위에 빨간색으로 표시된 부분을 삭제하시면 스택오류는 해결이 됩니다.입력 = [a3].Row + [a3].CurrentRegion.Rows.CountCells(입력, 1) = 영화명
Cells(입력, 2) = 단가
Cells(입력, 3) = 매수
Cells(입력, 4) = Format(금액, "#,###")
If 금액 >= 40000 Then
Cells(입력, 5) = Val(금액) * 0.1
End If
영화명 = ""
단가 = ""
매수 = ""
금액 = ""
하지만 다른 오류가 나는데 이것은 해결방법이 없네요.새파일로 다시 문제를 풀어보시기 바랍니다.파일을 첨부하오니 이파일로 문제를 풀어보세요.좋은 하루 되세요.