그대로 따라해서 프로시저 완성후에
성적입력을 클릭했는데
전 그냥 성적입력 폼만뜨네요,,
책의 그림처럼
1홍길동 90 80 90 86.67 우 남학생
2시나공 100 95 100 98.33 수 남학생
이렇게 셀에 입력되지않고
그냥 성적입력폼만 떠요ㅠㅠ
제가 뭘 잘못한건지....... 아니면 그냥 성적입력폼만뜨는게 맞는건지 모르겠네요ㅠㅠ
파일 첨부합니다ㅠㅠ
네 성적입력폼만 뜨는 것이 맞구요.
여기에 값을 입력하고 등록을 눌러야 셀에 입력이 가능합니다.
Private Sub cmd등록_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.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
Cells(입력행, 8) = cmd성별.Caption
txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub
등록을 눌렀을때 빨간색 부분이 없어어 오류가 납니다.
수정한 후 확인 해 보세요.
좋은 하루 되세요.
-
*2015-10-28 21:13:20
네 성적입력폼만 뜨는 것이 맞구요.
여기에 값을 입력하고 등록을 눌러야 셀에 입력이 가능합니다.
Private Sub cmd등록_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.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 SelectCells(입력행, 8) = cmd성별.Caption
txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""End Sub
등록을 눌렀을때 빨간색 부분이 없어어 오류가 납니다.
수정한 후 확인 해 보세요.
좋은 하루 되세요.