답안지랑 살짝 다르지만
입력결과는 같은데도 채점하기 실행해보니 0점 처리 되는데요
답안지랑 완전 똑같이 입력해야 되는건가요?
제가 적은 답을 보여드리겠습니다.
Private Sub cmd입력_Click()
i = [b4].Row + [b4].CurrentRegion.Rows.Count
Cells(i, 1) = txt고객명.Value
If opt고급 = True Then
Cells(i, 2) = "고급"
ElseIf opt실버 = True Then
Cells(i, 2) = "실버"
Else
Cells(i, 2) = "일반"
End If
Cells(i, 3) = txt매출금액.Value
Cells(i, 4) = lst결제방식.Value
If lst결제방식 = "현금" Then
Cells(i, 5) = Cells(i, 3) * 0.1
ElseIf lst결제방식 = "카드" Then
Cells(i, 5) = Cells(i, 3) * 0.05
Else
Cells(i, 5) = 0
End If
End Sub
코드가 다르게 작성되어도 지시사항에 맞게 지정되고 정확한 결과가 나오면 정답으로 인정 됩니다.
질문 주신 내용만으로는 오답처리 된 이유를 알기 어렵습니다.
작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
-
관리자2023-02-24 09:43:44
코드가 다르게 작성되어도 지시사항에 맞게 지정되고 정확한 결과가 나오면 정답으로 인정 됩니다.
질문 주신 내용만으로는 오답처리 된 이유를 알기 어렵습니다.
작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.