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

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

책 내용 질문하기

438 런타임 오류가 발생하였습니다라는 안내창이 떠요

도서

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

페이지

240

조회수

작성일

2012-09-08

작성자

첨부파일

Private Sub cmd등록_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].correntregion.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성별.Caption

text이름 = ""
text국어 = ""
text영어 = ""
text수학 = ""

End Sub

Private Sub cmd성별_Click()
If chk성별 = True Then
cmd성별.Caption = "남학생"
Else
cmd성별.Caption = "여학생"
End If
End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub spin국어_Change()
txt국어 = spin국어 + 5
End Sub

Private Sub spin수학_Change()
txt수학 = spin수학 + 5
End Sub

Private Sub spin영어_Change()
txt영어 = spin영어 + 5
End Sub

Private Sub UserForm_Click()

End Sub

아직 프로시저 처음 공부하는 단계라 어떤걸 잘못해서 그러는건지 감을 못 잡겠어요;;

답변좀 부탁드릴께요~

답변

2012-09-11 07:26:31

Private Sub cmd등록_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].correntregion.Rows.Count <- currentregion 으로 오타가 있네요.
입력행 = 기준행위치 + 기준범위행수
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성별.Caption

text이름 = ""
text국어 = ""
text영어 = ""
text수학 = ""

End Sub

Private Sub cmd성별_Click() <-cmd성별이 아니라 chk성별 입니다. 수정해보세요.
If chk성별 = True Then
cmd성별.Caption = "남학생"
Else
cmd성별.Caption = "여학생"
End If
End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub spin국어_Change()
txt국어 = spin국어 + 5 <- +5가 아니라 *5 입니다. 수정해보세요.
End Sub

Private Sub spin수학_Change()
txt수학 = spin수학 + 5
End Sub

Private Sub spin영어_Change()
txt영어 = spin영어 + 5
End Sub

Private Sub UserForm_Click()

End Sub

좋은 하루 되세요.

*

2012-09-11 07:26:31

Private Sub cmd등록_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].correntregion.Rows.Count <- currentregion 으로 오타가 있네요.
입력행 = 기준행위치 + 기준범위행수
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성별.Caption

text이름 = ""
text국어 = ""
text영어 = ""
text수학 = ""

End Sub

Private Sub cmd성별_Click() <-cmd성별이 아니라 chk성별 입니다. 수정해보세요.
If chk성별 = True Then
cmd성별.Caption = "남학생"
Else
cmd성별.Caption = "여학생"
End If
End Sub

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub spin국어_Change()
txt국어 = spin국어 + 5 <- +5가 아니라 *5 입니다. 수정해보세요.
End Sub

Private Sub spin수학_Change()
txt수학 = spin수학 + 5
End Sub

Private Sub spin영어_Change()
txt영어 = spin영어 + 5
End Sub

Private Sub UserForm_Click()

End Sub

좋은 하루 되세요.

"

파일선택

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