책 내용 질문하기
End Sub
런타임오류 가 계속 뜨네요
도서
[2011] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)
페이지
228
조회수
60
작성일
2011-09-14
작성자
첨부파일
문제 풀이 그대로 풀었는데
런타임 오류가 계혹 뜨네요
제 문제 풀이에 잘못이있는지 ㅜㅜ
확인좀 부탁드립니다.
답변
2011-09-15 11:46:01
Private Sub cmd등록_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수 <- 이부분이 필요없습니다. 위에서 이미 더해주었으니까요. 삭제하고 사용하세요.
Cells(입력행, 2) = txt이름
Cells(입력행, 3) = txt국어
Cells(입력행, 4) = txt영어
Cells(입력행, 5) = txt수학
Cells(입력행, 6) = Format((Val(txt국어) + Val(txt영어) + Val(txt수학)) / 3, "0.00")
Cells(입력행, 3) = txt국어
Cells(입력행, 4) = txt영어
Cells(입력행, 5) = txt수학
Cells(입력행, 6) = Format((Val(txt국어) + Val(txt영어) + Val(txt수학)) / 3, "0.00")
Select Case Cells(입력행, 6)
Case Is <= 59
Cells(입력행, 7) = "가"
Case Is <= 69
Cells(입력행, 7) = "양"
Case Is <= 79
Cells(입력행, 7) = "미"
Case Is <= 89
Cells(입력행, 7) = "우"
Case Else
Cells(입력행, 7) = "수"
End Select
Cells(입력행, 8) = cmd성별.Caption
Case Is <= 59
Cells(입력행, 7) = "가"
Case Is <= 69
Cells(입력행, 7) = "양"
Case Is <= 79
Cells(입력행, 7) = "미"
Case Is <= 89
Cells(입력행, 7) = "우"
Case Else
Cells(입력행, 7) = "수"
End Select
Cells(입력행, 8) = cmd성별.Caption
txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub
좋은 하루 되세요.
"
-
*2011-09-15 11:46:01
Private Sub cmd등록_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수 <- 이부분이 필요없습니다. 위에서 이미 더해주었으니까요. 삭제하고 사용하세요.Cells(입력행, 2) = txt이름
Cells(입력행, 3) = txt국어
Cells(입력행, 4) = txt영어
Cells(입력행, 5) = txt수학
Cells(입력행, 6) = Format((Val(txt국어) + Val(txt영어) + Val(txt수학)) / 3, "0.00")Select Case Cells(입력행, 6)
Case Is <= 59
Cells(입력행, 7) = "가"
Case Is <= 69
Cells(입력행, 7) = "양"
Case Is <= 79
Cells(입력행, 7) = "미"
Case Is <= 89
Cells(입력행, 7) = "우"
Case Else
Cells(입력행, 7) = "수"
End Select
Cells(입력행, 8) = cmd성별.Captiontxt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub좋은 하루 되세요."