시나공

시험에

나오는 것만

공부한다!

안녕하세요 컴활공부중에 시나공 채점하기 기능을 사용하고있는데 걱정되는 부분이 있어서 문의드립니다

Private Sub cmd입력_Click()

i = [B2].CurrentRegion.Rows.Count + [B2].Row

Cells(i, 2) = i - 3 & txt성명.Value

Cells(i, 3) = cmb학과명.Value

If opt1학년.Value = True Then

    Cells(i, 4) = "1학년"

ElseIf opt2학년.Value = True Then

    Cells(i, 4) = "2학년"

ElseIf opt3학년.Value = True Then

    Cells(i, 4) = "3학년"

Else

    Cells(i, 4) = "4학년"

End If

Cells(i, 5) = txt학과성적.Value

Cells(i, 6) = txt어학테스트.Value

Cells(i, 7) = txt면접.Value

End Sub

저는 입력단추 클릭 프로시저를 위와같이 적었는데 자꾸 오답이라고 뜹니다ㅠㅠ('실제 시험장을 옮겨놓았다'와 '01회'에서도 이랬습니다)

정답 프로시저 코드랑 비교해도 변수 i와 입력행 차이밖에 안보이고, 입력단추를 클릭했을때도 문제없이 잘 입력이 돼서 문의드립니다.

혹시 시험장에서도 이런방식 채점이 쓰인다면 틀릴까봐 걱정도 됩니다ㅠ

혹시나 오타가있거나, 다른부분을 발견하신다면 알려주세요ㅠ~ 아래에는 정답파일 코드를 적어두겠습니다

Private Sub cmd입력_Click()

    입력행 = [B2].Row + [B2].CurrentRegion.Rows.Count

    Cells(입력행, 2) = 입력행 - 3 & txt성명.Value

    Cells(입력행, 3) = cmb학과명.Value

    If opt1학년.Value = True Then

       Cells(입력행, 4) = "1학년"

    ElseIf opt2학년.Value = True Then

       Cells(입력행, 4) = "2학년"

    ElseIf opt3학년.Value = True Then

       Cells(입력행, 4) = "3학년"

    Else

       Cells(입력행, 4) = "4학년"

    End If

    Cells(입력행, 5) = txt학과성적.Value

    Cells(입력행, 6) = txt어학테스트.Value

    Cells(입력행, 7) = txt면접.Value

End Sub