책 내용 질문하기
최신유형문제 2018년2회
도서
2021 시나공 컴퓨터활용능력 1급 실기
페이지
0
조회수
188
작성일
2022-07-28
작성자
탈퇴*원
계속 채점프로그램돌리면 틀리다고하는데 뭐가 뭌제인지 모르겠어요 ..ㅠㅠ
Private Sub cmd입력_Click()
rf = lst품목.ListIndex + 4
r = [b2].Row + [b2].CurrentRegion.Rows.Count
If opt카드 = True Then
Cells(r, 1) = "카드"
Else
Cells(r, 1) = "현금"
End If
Cells(r, 2) = txt현금영수증번호.Value
Cells(r, 3) = lst품목.Value
Cells(r, 4) = Cells(rf, 9)
Cells(r, 5) = txt개수.Value
If opt카드 = True Then
Cells(r, 6) = txt개수 * Cells(rf, 9) * 0.95
Else
Cells(r, 6) = txt개수 * Cells(rf, 9)
End If
End Sub
Private Sub UserForm_Initialize()
opt카드 = True
lst품목.RowSource = "h4:i7"
End Sub
답변
2022-07-29 22:42:10
실기특성상 질문 주신 내용만으로는 정확한 이유를 알기 어렵습니다.
작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
-
관리자2022-07-29 22:42:10
실기특성상 질문 주신 내용만으로는 정확한 이유를 알기 어렵습니다.
작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.