기출따라잡기 1번 문제에서
폼의 자료를 워크시트에 입력하는 프로시저 작성하기에서 이렇게 작성했는데
13런타임 오류가 발생했습니다. 형식이 일치 하지 않습니다.
이렇게 나오는데 원인을 모르겠습니다.
Private Sub cmd등록_Click()
기준행위치 = [b3].Rows
기준범위행수 = [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 Else
Cells(입력행, 7) = "수"
End Select
Cells(입력행, 8) = cmd성별.Caption
End Sub
Private Sub cmd등록_Click()
기준행위치 = [b3].Row <- Rows 로 입력되어서 오류가 났네요.
기준범위행수 = [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 Else
Cells(입력행, 7) = "수"
End Select
Cells(입력행, 8) = cmd성별.Caption
End Sub
위와 같이 수정하시고 나머지 부분들 수정하여 확인해 보시기 바랍니다.
좋은 하루 되세요.
-
*2017-08-21 21:40:50
Private Sub cmd등록_Click()
기준행위치 = [b3].Row <- Rows 로 입력되어서 오류가 났네요.
기준범위행수 = [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 Else
Cells(입력행, 7) = "수"
End SelectCells(입력행, 8) = cmd성별.Caption
End Sub위와 같이 수정하시고 나머지 부분들 수정하여 확인해 보시기 바랍니다.
좋은 하루 되세요.