컴활1급 실기 1권(Excel) 기본 모의고사 1회 330페이지
기타작업-3 (2번문제)
<콘도이용> 폼의 조회 단추를 클릭하였을때의 프로시저 작성 문제입니다.
문제의 답안과 다르게 프로시저를 아래와 같이 작성하였는데 프로시저 실행 시 아무런 문제없이 작동이 되는것을 확인하였는데
채점 프로그램에서는 txt번호 컨트롤의 값(")이 정답('3')과 다르다고 하면서 오답처리가 되었습니다.
Private Sub cmd조회_Click()
i = [A3].CurrentRegion.Rows.Count + 3
Cells(i, 1) = txt번호.Value
Cells(i, 2) = cmb콘도명.Value
Cells(i, 3) = txt일수.Value
Cells(i, 4) = txt요금.Value
End Sub
위의 프로시저가 잘못된 부분이 있는건가요?
Private Sub cmd조회_Click()
i = [A3].CurrentRegion.Rows.Count + 3
Cells(i, 1) = txt번호.Value
Cells(i, 2) = cmb콘도명.Value
Cells(i, 3) = txt일수.Value
Cells(i, 4) = txt요금.Value
End Sub
로 작성된 조회코드를 아래와 같이 작성해 보세요.
조회 하는 문제이므로 텍스트 박스안에 셀의 내용이 표시되어야 합니다.
Private Sub cmd조회_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count - 1
txt번호.Value = Cells(입력행, 1)
cmb콘도명.Value = Cells(입력행, 2)
txt일수.Value = Cells(입력행, 3)
txt요금.Value = Cells(입력행, 4)
End Sub
좋은 하루 되세요.
-
관리자2022-07-11 16:32:06
Private Sub cmd조회_Click()
i = [A3].CurrentRegion.Rows.Count + 3
Cells(i, 1) = txt번호.Value
Cells(i, 2) = cmb콘도명.Value
Cells(i, 3) = txt일수.Value
Cells(i, 4) = txt요금.Value
End Sub
로 작성된 조회코드를 아래와 같이 작성해 보세요.
조회 하는 문제이므로 텍스트 박스안에 셀의 내용이 표시되어야 합니다.
Private Sub cmd조회_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count - 1
txt번호.Value = Cells(입력행, 1)
cmb콘도명.Value = Cells(입력행, 2)
txt일수.Value = Cells(입력행, 3)
txt요금.Value = Cells(입력행, 4)
End Sub
좋은 하루 되세요.