책 내용 질문하기
End Sub
프로시저 작성이 잘못된건가요?
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
243
조회수
92
작성일
2012-07-21
작성자
첨부파일
따라하기 대로 한다음에 폼을 켜서 이름과 성적을 입력한후 등록을 누르면 컴파일오류가 납니다.
답변
2012-07-23 14:27:20
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
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영어 = ""
txt수학 = ""
End Sub
오타가 있었네요. 빨간 색으로 표시된 부분이 수정한 부분이니 확인 후 수정하여 사용해 보세요.
좋은 하루 되세요.
"
-
*2012-07-23 14:27:20
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 SelectCells(입력행, 8) = cmd성별.Caption
txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub오타가 있었네요. 빨간 색으로 표시된 부분이 수정한 부분이니 확인 후 수정하여 사용해 보세요.좋은 하루 되세요."