시나공

시험에

나오는 것만

공부한다!

Private Sub cmd입력_Click()
If Val(txtTOEIC) > 100 Or Val(txt컴퓨터) > 100 Or Val(txt전공2) > 100 Then
MsgBox "점수는 0~100 사이의 값으로 입력하세요"
입력행 = [b2].Row + [b2].CurrentRegion.Rows.Count
Else
Cells(입력행, 2) = txt이름
Cells(입력행, 3) = Format(txt학번, ">&&&&&&")
Cells(입력행, 4) = cmb학과명
Cells(입력행, 5) = Val(txt토익)
Cells(입력행, 6) = Val(txt컴퓨터)
Cells(입력행, 7) = Val(txt전공2)
cmb학과명.Locked = True
End If

End Sub

Private Sub cmd입력_Click()
If Val(txtTOEIC) > 100 Or Val(txt컴퓨터) > 100 Or Val(txt전공2) > 100 Then
MsgBox "점수는 0~100 사이의 값으로 입력하세요"

Else
입력행 = [b2].Row + [b2].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt이름
Cells(입력행, 3) = Format(txt학번, ">&&&&&&")
Cells(입력행, 4) = cmb학과명
Cells(입력행, 5) = Val(txt토익)
Cells(입력행, 6) = Val(txt컴퓨터)
Cells(입력행, 7) = Val(txt전공2)
cmb학과명.Locked = True
End If

End Sub

입력행을 else 위에 적으셨는데 else 아래에 적으면 정확한 결과가 나옵니다.

좋은 하루 되세요.