책 내용 질문하기
4-2 프로시저 작성
도서
2019 시나공 기출문제집 컴퓨터활용능력 1급 실기
페이지
159
조회수
207
작성일
2019-11-02
작성자
탈퇴*원
첨부파일
If IsNull(lst제품목록.Value) Then
MsgBox "제품을 선택하세요."
ElseIf Val(txt주문수량) < 1 Then
MsgBox "주문수량을 입력하세요."
Else
참조행 = lst제품목록.ListIndex
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(txt주문날짜)
Cells(입력행, 2) = lst제품목록.List(참조행, 0)
Cells(입력행, 3) = lst제품목록.List(참조행, 1)
Cells(입력행, 4) = lst제품목록.List(참조행, 2)
Cells(입력행, 5) = lst제품목록.List(참조행, 3)
Cells(입력행, 6) = Val(txt주문수량)
Cells(입력행, 7) = Cells(입력행, 5) * Cells(입력행, 6)
lst제품목록=""
End If
마지막 lst제품목록=""가 들어가는 이유를 모르겠습니다.
위 문장을 빼고 실행해도 정답으로 처리되는데 해설지에 들어간 위 문장의 용도가 궁금합니다.
답변
2019-11-04 19:54:57
안녕하세요.
lst제품목록의 내용을 초기화 하는 부분입니다.
문제에서 초기화 하라는 지시사항이 있었다면 지정해 주셔야 하는 부분입니다.
좋은 하루 되세요.
-
관리자2019-11-04 19:54:57
안녕하세요.
lst제품목록의 내용을 초기화 하는 부분입니다.
문제에서 초기화 하라는 지시사항이 있었다면 지정해 주셔야 하는 부분입니다.
좋은 하루 되세요.