문제4-2-②
Private Sub cmd등록_Click()
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
입력행 = 입력행 + 1
참조행 = cmb진료과목.ListIndex
Cells(입력행, 2) = txt예약자
Cells(입력행, 3) = cmb진료과목.List(참조행, 0)
Cells(입력행, 4) = cmb진료과목.List(참조행, 1)
Cells(입력행, 5) = Format(CDate(txt진료일), "yyyy-mm-dd")
Cells(입력행, 6) = Format(txt진료시간, "hh시 mm분")
If Hour(txt진료시간) >= 17 Then
Cells(입력행, 7) = "시간외진료"
Else
Cells(입력행, 7) = ""
End If
End Sub
라고 썼는데 책이랑 다른 부분이 많고 오류가 뜹니다.
제가 왜 틀렸는지 알려주세요
그리고
입력행 = 입력행 + 1 이거 써야 하는거 아닌가요? 아니라면 어떤 경우에 쓰는 건지 알려주세요
안녕하세요
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
입력행 = 입력행 + 1
으로 입력하시면
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count +1
로 작성한 것과 같게 됩니다.
이 문제에서는 +1을 해 주지 않아야 마지막 데이터 이후 빈 행에 입력됩니다.
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
= 3 + 162쪽 그림상에서 3 = 6이 되어 다음 행인 6행에 입력됩니다.
입력행 = 입력행 + 1
처럼 사용되는 경우는
드물지만 For 문안에서 입력행이 1씩 증가되어야 하는 경우에 사용될 수도 있습니다.
입력행 = 입력행 +1 만 삭제해 주시면 문제에서 주어진대로 동작합니다.
채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.
하지만 실제 시험에서는 문제의 지시사항을 모두 만족하고 결과값이 맞게 나왔다면 모두 맞는 것으로 채점됩니다.
좋은 하루 보내세요.
-
관리자2019-08-25 21:18:23
안녕하세요
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
입력행 = 입력행 + 1으로 입력하시면
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count +1
로 작성한 것과 같게 됩니다.
이 문제에서는 +1을 해 주지 않아야 마지막 데이터 이후 빈 행에 입력됩니다.
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
= 3 + 162쪽 그림상에서 3 = 6이 되어 다음 행인 6행에 입력됩니다.
입력행 = 입력행 + 1
처럼 사용되는 경우는
드물지만 For 문안에서 입력행이 1씩 증가되어야 하는 경우에 사용될 수도 있습니다.
입력행 = 입력행 +1 만 삭제해 주시면 문제에서 주어진대로 동작합니다.
채점 프로그램은 정답과 비교하여 조금이라도 다르면 틀린 것으로 채점됩니다.
하지만 실제 시험에서는 문제의 지시사항을 모두 만족하고 결과값이 맞게 나왔다면 모두 맞는 것으로 채점됩니다.
좋은 하루 보내세요.