시나공

시험에

나오는 것만

공부한다!

1.

문제1-3 제대로 한 것 같은데 오류메시지가 뜹니다.

그리고 목록범위가 저절로 $A$17:$I$28로 잡히는데 책에서는 $A$19:$I$28 이더라구요 둘다 상관 없는건가요?

2.

문제3-2 

데이터 표 의 열 입력 셀에 B9를 입력하라고 책에 나와있습니다

E3을 하면 안되는 이유가 뭔가요?

책에서 행 입력 셀을 비워뒀는데 비워두면 어떤 현상이 일어나나요?

3.

문제4-2

책의 정답이랑 제가 쓴거랑 다릅니다.

제가 쓴 게 왜 틀린건지 알려주세요.

Private Sub cmd입력_Click()
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count

Cells(입력행, 2) = txt고객번호
Cells(입력행, 3) = txt사용량

If opt공업용.Caption = True Then
Cells(입력행, 4) = "공업용"
ElseIf opt가정용.Caption = True Then
Cells(입력행, 4) = "가정용"
ElseIf opt업소용.Caption = True Then
Cells(입력행, 4) = "업소용"
Else
Cells(입력행, 4) = "기타"
End If

If txt사용량 >= 500 Then
Cells(입력행, 5) = "우량고객"
Else
Cells(입력행, 5) = "보통"
End If

txt고객번호 = ""
txt사용량 = ""
opt공업용.Caption = False
opt가정용.Caption = False
opt업소용.Caption = False
opt기타.Caption = False

End Sub

4.

문제2-1

책에 있는 답에서는 입항일자에 cdate를 해주지 않았습니다. 그 이유가 뭔가요?

Public Function fn비고(입항일자 As Date)
Select Case CDate(입항일자)
Case Is < #4/1/2011#
fn비고 = "1사분기"
Case Is < #7/1/2011#
fn비고 = "2사분기"
Case Is < #10/1/2011#
fn비고 = "3사분기"
Case Else
fn비고 = "4사분기"
End Select

End Function