2024_최신기출유형_06회
CELL에 값이 나올경우
| 제품코드 | 제품명 | 제약회사 | 단가 |
| D-324 | 기넥신에프연질캅셀 | SK제약 | 243 |
| A-156 | 건웅 미소프로스톨정 | 건웅제약 | 173 |
| A-159 | 건일로딘정100mg | 건일제약 | 178 |
| A-170 | 경남염산라니티딘정300mg | 경남제약 | 139 |
| A-163 | 게르시린현탁액 | 경인제약 | 120 |
| C-132 | 고려은단파모티딘정20mg | 고려은단 | 66 |
| C-134 | 골둠주사 | 극동제약 | 3530 |
| C-162 | 그리콜정 | 동광제약 | 88 |
| D-328 | 나나비놀캅셀 | 보람제약 | 82 |
| A-166 | 겐트리손크림 | 신풍제약 | 56 |
| C-150 | 그랑파제삼중정 | 안국약품 | 73 |
| A-150 | 개비콘정 | 유유산업 | 45 |
| C-161 | 그리코민정 | 일성신약 | 79 |
| A-140 | 각시원정 | 초당약품 | 42 |
| C-151 | 그랜솔주 250ml(5%) | 한올제약 | 9103 |
요렇게 나올때 CELLS(참조행, 9) 이렇게 적용하면 안됩니까?
쓴답
If IsNull(lst제품목록.Value) = True Then
MsgBox "제품을 선택하세요."
ElseIf Val(txt주문수량.Value) < 1 Then
MsgBox "주문 수량을 입력하세요."
Else
입력행 = [A3].Row + [A3].CurrentRegion.Rows.Count
참조행 = lst제품목록.ListIndex (+7) 틀리는 이유는 뭔가요?
Cells(입력행, 1) = txt주문날짜.Value
Cells(입력행, 2) = lst제품목록.List(참조행, 0)
Cells(입력행, 3) = lst제품목록.List(참조행, 1)
Cells(입력행, 4) = lst제품목록.List(참조행, 2)
Cells(입력행, 5) = lst제품목록.List(참조행, 3)
Cells(입력행, 6) = txt주문수량.Value
Cells(입력행, 7) = Cells(입력행, 5) * Cells(입력행, 6)
lst제품목록.Value = ""
틀린것이 뭔가요?
그리고 답이 연속해서 안들어갑니다.
원인 파악 바랍니다.
안녕하세요.
- CELLS(참조행, 9)로 해도 결과가 정상적으로 실행되면 이렇게 해도 상관 없습니다.
- 이 문제는 워크시트에 입력된 데이터를 찾아 입력하는 것이 아니라 목록상자에 표시된 값을 이용하여 워크시트에 입력하므로 +7을 하지 않습니다.
- lst제품목록.Value = "" 다음에 End If를 추가한 후 실행하면 정상적으로 실행됩니다. 연속해서 데이터 삽입도 가능합니다.
참고로 다음에 질문을 올리실 때는 실습한 엑셀 파일을 올려주세요. 실습한 파일을 열어 확인해야 보다 정확히 답변을 해드릴 수 있습니다.
즐거운 하루 되세요.
-
관리자2024-07-09 16:24:39
안녕하세요.
- CELLS(참조행, 9)로 해도 결과가 정상적으로 실행되면 이렇게 해도 상관 없습니다.
- 이 문제는 워크시트에 입력된 데이터를 찾아 입력하는 것이 아니라 목록상자에 표시된 값을 이용하여 워크시트에 입력하므로 +7을 하지 않습니다.
- lst제품목록.Value = "" 다음에 End If를 추가한 후 실행하면 정상적으로 실행됩니다. 연속해서 데이터 삽입도 가능합니다.
참고로 다음에 질문을 올리실 때는 실습한 엑셀 파일을 올려주세요. 실습한 파일을 열어 확인해야 보다 정확히 답변을 해드릴 수 있습니다.
즐거운 하루 되세요.
-
적중* 02024-07-08 22:10:29참고로 참조행에 +7은 기입안했습니다.