시나공

시험에

나오는 것만

공부한다!

[2015] 컴퓨터활용능력 1급 실기

엑셀 p. 289

기본모의고사 1회

[문제4]

2. '콘도이용' 폼에서 조회 버튼을 누르면 마지막 데이터가 표시되게하는 문제

(질문시작) 본래 문제와는 상관없이 원하는 임의의 데이터를 조회/수정하는 프로시저를 만들었습니다.

1. 조회2와 수정 버튼을 추가로 만들었습니다

2. 폼에 '고객번호'만 입력하고 '조회2' 버튼을 누르면 해당 고객의 나머지 자료가 모두 나타나게 한다.

3. 폼에 고객의 모든 정보가 입력된 상태(수정입력하거나 조회된 상태)에서 수정 버튼을 누르면 그대로 반영되어 수정하게한다.

질문1) 아래에 만들어진 수정 프로시저에서 "조회행 = [a3].Row + Val(txt)번호"를 생략하면 에러가 나는 이유가 무엇인가요?

질문2) 조회나 수정 프로시저 하나에만 조회행을 사용하는 방법이 없나요?

※ 엑셀 압축파일도 첨부했습니다!

Private Sub cmd수정_Click()

If txt번호 = "" Then
MsgBox "수정을 하려면 해당고객의 고객번호를 입력하세요"
ElseIf cmb콘도명 = "" Then
MsgBox "수정을 하려면 해당고객의 새로운 콘도명을 입력하세요"
ElseIf txt일수 = "" Then
MsgBox "수정을 하려면 해당고객의 새로운 '이용일수'을 입력하세요"
ElseIf txt요금 = "" Then
MsgBox "수정을 하려면 해당고객의 새로운 '사용요금'을 입력하세요"
Else
조회행 = [a3].Row + Val(txt번호) ' 생략하면 에러남??
Cells(조회행, 2) = cmb콘도명
Cells(조회행, 3) = Val(txt일수)
Cells(조회행, 4) = Val(txt요금)

txt번호 = ""
cmb콘도명 = ""
txt일수 = ""
txt요금 = ""
MsgBox "수정이 완료되었습니다."
End If

-----------------------------------

Private Sub cmd조회2_Click()

If txt번호 >= 1 And txt번호 <> "" Then
조회행 = [a3].Row + Val(txt번호)
cmb콘도명 = Cells(조회행, 2)
txt일수 = Cells(조회행, 3)
txt요금 = Cells(조회행, 4)
Else
MsgBox "조회/수정할 고객번호를 입력한 후 '조회2' 버튼을 다시 누르세요."
MsgBox "조회된 고객의 원하는 데이터를 정정입력한 후 '수정' 버튼을 누르면 그대로 반영되어 수정됩니다."
End If

End Sub

---------------------