폼의 자료를 워크시트에 입력하기 부분 자꾸 디버그가 뜹니다
Private Sub cmd입력_Click()
참조행 = lst품목.ListIndex
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count
Cells(입력행, 1) = CDate(cmd날짜)
Cells(입력행, 2) = cmd문구점
Cells(입력행, 3) = lst폼목.List(참조행, 0)
Cells(입력행, 4) = lst폼목.List(참조행, 1)
Cells(입력행, 5) = Val(txt수량)
Cells(입력행, 6) = Cells(입력행, 4) * Cells(입력행, 5)
로 입력했는데 디버그가 뜹니다.
이상하게 1번째 행에서도 날짜가 아니라 현재 시간도 아닌
| 12:00:00 AM |
뜨고프로시저도 오류가 나요
심지어 정답코드 복붙해도 그렇게 떠요
그리고 품목 lst는 어디 써져있나요?
정답엔 등장하는데 어디서 그 리스트가 있다고 써져있는지 찾을수가 없어요
작성해주신 코드를 사용하여 확인 해 보았는데 정상 실행 되었습니다.
오피스 프로그램상의 문제 일 수도 있을 것 같네요.
작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
‘물품구매’ 폼의 <입력(cmd입력)> 버튼을 클릭하면 폼에 입력된 데이터가 [표1]에 입력되어 있는 마지막 행 다음에 연속하여 추가되도록 하되, List, ListIndex를 사용하여 프로시저를 작성하시오.
이부분이구요.
그림에는 이렇게 표시된 부분입니다.
좋은 하루 되세요.
-
관리자2023-02-03 09:50:33
작성해주신 코드를 사용하여 확인 해 보았는데 정상 실행 되었습니다.
오피스 프로그램상의 문제 일 수도 있을 것 같네요.
작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
‘물품구매’ 폼의 <입력(cmd입력)> 버튼을 클릭하면 폼에 입력된 데이터가 [표1]에 입력되어 있는 마지막 행 다음에 연속하여 추가되도록 하되, List, ListIndex를 사용하여 프로시저를 작성하시오.
이부분이구요.
그림에는 이렇게 표시된 부분입니다.
좋은 하루 되세요.