2025_최신기출유형_10회
-3. 프로시저 작업 10/15
-입력 프로시저 X [cmd입력_Click] 매크로가 정답과 다릅니다.
-폼 실행 결과 X
정답 :
Private Sub cmd입력_Click()
참조행 = cmb차종.ListIndex + 7
입력행 = [A2].Row + [A2].CurrentRegion.Rows.Count
Cells(입력행, 1) = Format(txt거래시간.Value, "HH:MM")
If txt거래시간.Value >= 0.5 Then
Cells(입력행, 2) = "오후"
Else
Cells(입력행, 2) = "오전"
End If
Cells(입력행, 3) = txt고객명.Value
Cells(입력행, 4) = cmb차종.Value
Cells(입력행, 5) = Cells(참조행, 13)
Cells(입력행, 6) = txt담당자
Cells(입력행, 7) = txt할부금액.Value
Cells(입력행, 8) = txt할부기간.Value
Cells(입력행, 9) = Int(txt할부금액.Value / txt할부기간.Value * 1.08)
End Sub
제가 제출한 답 :
Private Sub cmd입력_Click()
입력행 = [a2].CurrentRegion.Rows.Count + 2
Cells(입력행, 1) = Format(txt거래시간.Value, "HH:MM")
If txt거래시간.Value >= 0.5 Then
Cells(입력행, 2) = "오후"
Else
Cells(입력행, 2) = "오전"
End If
Cells(입력행, 3) = txt고객명.Value
Cells(입력행, 4) = cmb차종.Value
Cells(입력행, 5) = Cells(7 + cmb차종.ListIndex, 13)
Cells(입력행, 6) = txt담당자.Value
Cells(입력행, 7) = txt할부금액.Value
Cells(입력행, 8) = txt할부기간.Value
Cells(입력행, 9) = Int(Cells(입력행, 7) / Cells(입력행, 8) * 1.08)
End Sub
이렇게 코드를 작성했는데,
오전 시간임에도 Cells(입력행, 2) 값이 오후라고 적혀서 문의드립니다.
어떤 부분이 틀렸는 지 알 수 있을까요?
안녕하세요.
TimeValue 함수를 사용해서 작성해야 하는데, 문제 및 정답이 모두 잘못됐습니다. TimeValue 함수를 사용하여 If TimeValue(txt거래시간.Value) >= 0.5 Then으로 작성해야 합니다. 공부하는데 혼동을 드려 죄송합니다.
즐거운 하루 되세요.
-
관리자2025-02-10 21:46:06
안녕하세요.
TimeValue 함수를 사용해서 작성해야 하는데, 문제 및 정답이 모두 잘못됐습니다. TimeValue 함수를 사용하여 If TimeValue(txt거래시간.Value) >= 0.5 Then으로 작성해야 합니다. 공부하는데 혼동을 드려 죄송합니다.
즐거운 하루 되세요.