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

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

책 내용 질문하기

섹션 19 기출 문제1 438 런타임 오류

도서

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

페이지

228

조회수

작성일

2011-10-06

작성자

첨부파일

Private Sub 성적입력_Click()
성적입력폼.Show

End Sub

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

End Sub

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성별.Caption

txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub

Private Sub cmd종료_Click()
Unload Me

End Sub

Private Sub txt국어_Change()
txt국어 = spin국어 * 5

End Sub

Private Sub txt수학_Change()
txt수학 = spin수학 * 5

End Sub

Private Sub txt영어_Change()
txt영어 = spin영어 * 5

End Sub

Private Sub UserForm_Click()

End Sub

----------------

비주얼 베이직 부분을 복사한 것이고요.

왜 자꾸 438 오류가 난다고 하는지 모르겠어요 ㅜㅜ 어떻게 해야하나요? 도와주세요!!!

답변

2011-10-06 20:50:29

오류는 나지 않구요.

스핀 단추의 이벤트가 작성되지 않아서 점수가 올라가지 않네요.

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

와 같이 spin국어 단추를 더블클릭 하여 change 이벤트에 작성하세요.

좋은 하루 되세요.

*

2011-10-06 20:50:29

오류는 나지 않구요.

스핀 단추의 이벤트가 작성되지 않아서 점수가 올라가지 않네요.

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

와 같이 spin국어 단추를 더블클릭 하여 change 이벤트에 작성하세요.

좋은 하루 되세요.
"

파일선택

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