재고관리 프로그램을 수정 작성중인데
재품관리 폼에서 리스트(lstmain) 선택시 엑셀이 종료됩니다
원인을 알려주세요
Sub Click_lstMain()
Dim vArr As Variant '이부분에 에러가 납니다
Stop
vArr = Get_ListItm(Me.lstMain)
'
'Me.txtID.Value = vArr(0)
'Me.txtProductName.Value = vArr(3) '제품명
'Select_CboItm Me.cboCategory, vArr(2) '제품구분
''Me.txtCustomerID.Value = vArr(1) '거래처
커뮤니티 전체
매크로 실행시 왜 멈출까요 !
pas**** Lv.3
📅 2025년 09월 23일 13:47
👁 조회 375
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 1 / 971게시글 제목
날짜
조회
추천
8시간 전
조회 71
0
답글 3
해결
10시간 전
조회 78
0
답글 5
해결
20시간 전
조회 91
0
답글 2
6일 전
조회 229
0
답글 2
답변 완료
주민번호에서 남,여 추출 수식..
2026.02.12
조회 248
0
답글 4
해결
2026.02.12
조회 244
0
답글 2
해결
SUMIFS함수
[1]
[1]
2026.02.11
조회 254
0
답글 1
일부 문구 바꾸기
[3]
[3]
2026.02.11
조회 256
0
답글 3
2026.02.11
조회 263
0
답글 2
해결
2026.02.11
조회 233
0
답글 2
2026.02.10
조회 289
0
답글 2
해결
2026.02.10
조회 248
0
답글 1
답변 완료
시트명 참조 문의 드립니다.
2026.02.09
조회 268
0
답글 3
해결
2026.02.09
조회 247
0
답글 1
해결
2026.02.08
조회 351
0
답글 4
2026.02.06
조회 422
0
답글 8
셀 너비 자동화 VBA
[2]
[2]
2026.02.06
조회 339
0
답글 2
2026.02.05
조회 528
0
답글 5
필터문제 급 도움이 필요합니다
[7]
[7]
2026.02.05
조회 390
0
답글 7
2026.02.04
조회 415
0
답글 3
해결
전체 프로그램 코딩을 살펴보지 않았지만, 일단 아래와 같이 수정해서 사용해 보세요~
Sub Click_lstMain() On Error GoTo ErrorHandler Dim vArr As Variant If Me.lstMain.ListIndex = -1 Then Exit Sub vArr = Get_ListItm(Me.lstMain) If IsEmpty(vArr) Or Not IsArray(vArr) Then Exit Sub '// 배열 크기 확인 후 안전하게 접근 If UBound(vArr) >= 0 Then Me.txtID.Value = vArr(0) If UBound(vArr) >= 1 Then Me.txtCustomerID.Value = vArr(1) If UBound(vArr) >= 2 Then Select_CboItm Me.cboCategory, vArr(2) If UBound(vArr) >= 3 Then Me.txtSKU.Value = vArr(3) If UBound(vArr) >= 4 Then Me.txtProductName.Value = vArr(4) If UBound(vArr) >= 5 Then Select_CboItm Me.cboUnit, vArr(5) If UBound(vArr) >= 6 Then Me.txtRemark.Value = vArr(6) If UBound(vArr) >= 8 Then Me.txtCustomer.Value = vArr(8) If UBound(vArr) >= 9 Then Me.txtContact.Value = vArr(9) Exit Sub ErrorHandler: MsgBox "리스트 항목 선택 중 에러가 발생했습니다." & vbCrLf & _ "에러: " & Err.Description End Sub답변 감사합니다
꼭 해결하고 싶은데....