Private Sub cmd입력_Click()
Cells([b3].CurrentRegion.Rows.Count + 2, 2) = [b3].CurrentRegion.Rows.Count - 1 & txt성명
Cells([b3].CurrentRegion.Rows.Count + 2, 3) = cmb학과명
Cells([b3].CurrentRegion.Rows.Count + 2, 5) = Val(txt학과성적)
Cells([b3].CurrentRegion.Rows.Count + 2, 6) = Val(txt어학테스트)
Cells([b3].CurrentRegion.Rows.Count + 2, 7) = Val(txt면접)
If opt1학년 = True Then
Cells([b3].CurrentRegion.Rows.Count + 2, 4) = "1학년"
ElseIf opt2학년 = True Then
Cells([b3].CurrentRegion.Rows.Count + 2, 4) = "2학년"
ElseIf opt3학년 = True Then
Cells([b3].CurrentRegion.Rows.Count + 2, 4) = "3학년"
ElseIf opt4학년 = True Then
Cells([b3].CurrentRegion.Rows.Count + 2, 4) = "4학년"
End If
End Sub
제가 입력할때 치환을 안해서 이렇게 작성했는데 지금까지 무리없이 잘 되다가 이번엔 입력이 잘 안되요 ㅜㅠ
어느부분이 문제인가요??
안녕하세요.
위 코드를 입력했을 때 다른때는 무리없이 입력된 것이 맞나요? 예를들어 설명해 보겠습니다. 6번째 행에 성명을 입력한 다음 학과명을 입력해야 하는데, 학과명을 입력하는 부분에서 '[b3].CurrentRegion.Rows.Count + 2'로 학과명을 입력할 행을 구하는데, 성명이 입력된 것도 포함되어 행을 구하므로 학과명의 입력행은 1이 추가된 7행이 됩니다. 그러므로 학과명은 7행에 입력됩니다. 학년의 경우는 학과성적, 어학테스트, 면접을 모두 입력한 다음에 입력하므로 이것들이 추가된 행을 모두 더한 11행에 입력되는 것입니다. 왜 위와 같이 코드를 작성하시는지는 모르겠지만 위와 같은 방법으로는 데이터를 정상적으로 입력할 수 없습니다. 교재 내용과 같이 입력해 보시기 바랍니다.
즐거운 하루 되세요.
-
*2016-01-06 10:01:14
안녕하세요.
위 코드를 입력했을 때 다른때는 무리없이 입력된 것이 맞나요? 예를들어 설명해 보겠습니다. 6번째 행에 성명을 입력한 다음 학과명을 입력해야 하는데, 학과명을 입력하는 부분에서 '[b3].CurrentRegion.Rows.Count + 2'로 학과명을 입력할 행을 구하는데, 성명이 입력된 것도 포함되어 행을 구하므로 학과명의 입력행은 1이 추가된 7행이 됩니다. 그러므로 학과명은 7행에 입력됩니다. 학년의 경우는 학과성적, 어학테스트, 면접을 모두 입력한 다음에 입력하므로 이것들이 추가된 행을 모두 더한 11행에 입력되는 것입니다. 왜 위와 같이 코드를 작성하시는지는 모르겠지만 위와 같은 방법으로는 데이터를 정상적으로 입력할 수 없습니다. 교재 내용과 같이 입력해 보시기 바랍니다.
즐거운 하루 되세요.