1. 답지에 쓰여 있는 대로 작성해도 오답이라고 하는 이유가 무엇인가요??
<작성 내용>
Private Sub 요금입력_Click()
If txt년도.Value = "" Then
MsgBox "정산년도를 입력하세요."
ElseIf txt고객.Value = "" Then
MsgBox "고객명을 입력하세요."
ElseIf cmb코드.Value = "" Then
MsgBox "등급코드를 입력하세요."
Else
참조행 = cmb코드.ListIndex + 4
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt고객.Value
Cells(입력행, 2) = cmb코드.Value
Cells(입력행, 3) = Cells(참조행, 8)
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
End If
End Sub
-----------------------------------------------------------
2. 다음과 같이 작성하면 안되나요??
< (1)if문을 앞에서 먼저 끝냄>
Private Sub 요금입력_Click()
If txt년도.Value = "" Then
MsgBox "정산년도를 입력하세요."
ElseIf txt고객.Value = "" Then
MsgBox "고객명을 입력하세요."
ElseIf cmb코드.Value = "" Then
MsgBox "등급코드를 입력하세요."
End If
참조행 = cmb코드.ListIndex + 4
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt고객.Value
Cells(입력행, 2) = cmb코드.Value
Cells(입력행, 3) = Cells(참조행, 8)
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
End Sub
< (2) vbokonly 쓰기>
Private Sub 요금입력_Click()
If txt년도.Value = "" Then
MsgBox "정산년도를 입력하세요.",vbokonly
ElseIf txt고객.Value = "" Then
MsgBox "고객명을 입력하세요."
ElseIf cmb코드.Value = "" Then
MsgBox "등급코드를 입력하세요."
Else
참조행 = cmb코드.ListIndex + 4
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt고객.Value
Cells(입력행, 2) = cmb코드.Value
Cells(입력행, 3) = Cells(참조행, 8)
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
End If
End Sub
실기특성상 질문 주신 내용만으로는 정확한 이유를 알기가 어렵습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
if문 안에서 작성하지 않으면 if의 조건에 해당하지 않는 값에도 값이 표시될 수 있습니다.
그러므로 if 문 안에서 실행하는 것이 정확합니다.
결과가 정확하게 나온다면 상관 없을 수도 있습니다.
vbokonly를 생략하면 기본 적으로 vbokonly 가 적용되므로
생략하든 입력하든 정확한 결과가 나오게 됩니다.
결과가 정확하게 나온다면 어느 것을 사용하셔도 상관 없습니다.
좋은 하루 되세요.
-
관리자2022-01-13 14:53:59
실기특성상 질문 주신 내용만으로는 정확한 이유를 알기가 어렵습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
if문 안에서 작성하지 않으면 if의 조건에 해당하지 않는 값에도 값이 표시될 수 있습니다.
그러므로 if 문 안에서 실행하는 것이 정확합니다.
결과가 정확하게 나온다면 상관 없을 수도 있습니다.
vbokonly를 생략하면 기본 적으로 vbokonly 가 적용되므로
생략하든 입력하든 정확한 결과가 나오게 됩니다.
결과가 정확하게 나온다면 어느 것을 사용하셔도 상관 없습니다.
좋은 하루 되세요.