책 내용 질문하기
프로시저 작성 기출1번 문제에 관한 질문입니다.
도서
[2013] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
조회수
111
작성일
2013-04-10
작성자
첨부파일
Private Sub chk성별_Click()
If chk성별 = True Then
cmd성별.Caption = "남학생"
Else
cmd성별.Caption = "여학생"
End If
End Sub
Private Sub cmd등록_Click()
입력행 = [b3].Row + [b3].Rows.CurrentRegion.Count
Cells(입력행, 2) = 입력행 - 3 & txt이름
Cells(입력행, 3) = txt국어
Cells(입력행, 4) = txt영어
Cells(입력행, 5) = txt수학
Cells(입력행, 6) = Format((Val(txt국어) + Val(txt영어) + Val(txt수학)) / 3, "0.00")
입력행 = [b3].Row + [b3].Rows.CurrentRegion.Count
Cells(입력행, 2) = 입력행 - 3 & 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 Is <= 100
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 Is <= 100
Cells(입력행, 7) = "수"
End Select
Cells(입력행, 8) = cmd성별.Caption
txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub
Private Sub cmd종료_Click()
Unload Me
End Sub
Unload Me
End Sub
Private Sub spin국어_Change()
txt국어 = spin국어 * 5
End Sub
txt국어 = spin국어 * 5
End Sub
Private Sub spin수학_Change()
txt수학 = spin수학 * 5
End Sub
txt수학 = spin수학 * 5
End Sub
Private Sub spin영어_Change()
txt영어 = spin영어 * 5
End Sub
txt영어 = spin영어 * 5
End Sub
Private Sub UserForm_Click()
End Sub
이런 식으로 프로시저 작성을 마치고 실행을 해봤는데
데이터가 첫 행으로 가지 않고 몇 행 아래쪽으로 입력 됩니다.
이유가 뭘까요ㅠㅠ
답변
2013-04-10 12:18:05
코드만 봐서는 정확한 이유를 알기 어렵습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"-
*2013-04-10 12:18:05
코드만 봐서는 정확한 이유를 알기 어렵습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"