저는 기타작업-3에 2번 문제를 이렇게 작성하였는데
Private Sub cmd입력_Click()
i = Range("A4").CurrentRegion.Rows.Count + 4
Cells(i, 1) = txt고객명
If opt고급 = True Then
Cells(i, 2) = "고급"
ElseIf opt실버 = True Then
Cells(i, 2) = "실버"
ElseIf opt일반 = True Then
Cells(i, 2) = "일반"
End If
Cells(i, 3) = txt매출금액.Value
Cells(i, 4) = lst결제방식
If lst결제방식 = "현금" Then
Cells(i, 5) = Cells(i, 3) * 0.1
ElseIf st결제방식 = "카드" Then
Cells(i, 5) = Cells(i, 3) * 0.05
ElseIf st결제방식 = "포인트" Then
Cells(i, 5) = 0
End If
End Sub
정답 파일과 일치하진 않지만 잘 작동하면 시험에서 괜찮을까요?
value값은 숫자 입력값일때만 입력하는 걸로 알고있었는데 언제 입력 하는건가요?
감사합니다.
지시사항에 맞게 지정하고 정확한 결과가 나오면 정답으로 인정 됩니다.
좋은 하루 되세요.
-
관리자2022-08-24 20:11:06
지시사항에 맞게 지정하고 정확한 결과가 나오면 정답으로 인정 됩니다.
좋은 하루 되세요.