vba 연산중에 "0으로 나눔"이란 오류가 발생하네요. 도와주세요..

VBA
작성자
심심한사커
작성일
2021-09-06 12:43
조회
33
엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10

파렛트 중량을 중량별로 파렛트NO별로 안분 계산중에 "0을 나누기" 에러가 발생하네요.. 확인부탁드립니다... 변수는 Double로 선언했구요...

회원등급 : 잎새등급
포인트 : 172 EP
총질문 : 5 개 (마감율 : 0%)
채택답변 : 0 개
전체 2

  • 2021-09-06 14:08

    vba에서 오류는 소스를 봐야 어디가 문제인지 알수 있을거 같습니다.

    어떻게 구성되었는지 코드올려주세요.


    • 2021-09-06 17:07
      Sub 품목입력()
      
          Dim dRow, cRow, i As Long, PW As Double
          
          Application.ScreenUpdating = False
       
          dRow = stPI_RF.Cells(Rows.Count, 1).End(xlUp).Row + 1
          stPI_RF.Range("A" & dRow).Value = stPI.Range("C3").Value
          stPI_RF.Range("B" & dRow).Value = stPI.Range("C4").Value
          stPI_RF.Range("E" & dRow).Value = stPI.Range("C6").Value
          stPI_RF.Range("G" & dRow).Value = stPI.Range("C5").Value
          stPI_RF.Range("H" & dRow).Value = stPI.Range("C7").Value
          
          If stPI_RF.Range("G" & dRow).Value = "Box" Then
              stPI_RF.Range("C" & dRow).Value = stPI_RF.Range("H" & dRow).Value _
              * Application.VLookup(stPI_RF.Range("B" & dRow).Value, st제품.Range("D:N"), 4, 0)
          ElseIf stPI_RF.Range("G" & dRow).Value = "Bag" Then
                 stPI_RF.Range("C" & dRow).Value = stPI_RF.Range("H" & dRow).Value _
                 * Application.VLookup(stPI_RF.Range("B" & dRow).Value, st제품.Range("D:N"), 4, 0)
              Else: stPI_RF.Range("C" & dRow).Value = stPI_RF.Range("H" & dRow).Value
          End If
          
          stPI_RF.Range("D" & dRow).Value = Application.VLookup(stPI_RF.Range("B" & dRow).Value, st제품.Range("D:N"), 2, 0)
          stPI_RF.Range("F" & dRow).Value = stPI_RF.Range("C" & dRow).Value * stPI_RF.Range("E" & dRow).Value
          
          If stPI_RF.Range("G" & dRow).Value = "Box" Then
              stPI_RF.Range("I" & dRow).Value = stPI_RF.Range("H" & dRow).Value _
              * Application.VLookup(stPI_RF.Range("B" & dRow).Value, st제품.Range("D:N"), 6, 0)
          ElseIf stPI_RF.Range("G" & dRow).Value = "Bag" Then
                 stPI_RF.Range("I" & dRow).Value = stPI_RF.Range("H" & dRow).Value _
                 * Application.VLookup(stPI_RF.Range("B" & dRow).Value, st제품.Range("D:N"), 6, 0)
              Else: stPI_RF.Range("I" & dRow).Value = stPI_RF.Range("H" & dRow).Value _
                    * Application.VLookup(stPI_RF.Range("B" & dRow).Value, st제품.Range("D:N"), 6, 0) _
                    / Application.VLookup(stPI_RF.Range("B" & dRow).Value, st제품.Range("D:N"), 4, 0)
          End If
      
          cRow = stPI_RF.Cells(Rows.Count, 1).End(xlUp).Row - 1
         
          For i = 1 To cRow
             
          PW = Application.sumIf(stPI_RF.Range("A:A"), i, stPI_RF.Range("I:I"))
        
          stPI_RF.Range("J" & 1 + i) = stPI_RF.Range("I" & 1 + i) + stPI.Range("C9") * stPI_RF.Range("I" & 1 + i) / PW
              
          Next i
      
          
          stPI.Range("C3:C7").ClearContents
          
          Application.ScreenUpdating = True
      
          
      
      
      End Sub

      바쁘신데 확인좀 부탁드려요... 감사합니다... 참 에러때문인가해서 상위 표의 범위를 새시트 하나 만들어서 수정했습니다.. 참고하세요..


전체 4,000
번호 카테고리 제목 작성자 작성일 추천 조회
3984 함수/공식
New 함수 만들 수 있을까요?
soo | 09:47 | 추천 0 | 조회 4
soo 09:47 0 4
3983 VBA
New 엑셀 VBA에서 RemoveDuplicates 사용시 '5' 런타임 오류가 발생하여 해결 방법 문의드립니다. (1)
namonamo | 02:14 | 추천 0 | 조회 8
namonamo 02:14 0 8
3982 함수/공식
New (도와주세요) INDEX, MATCH 를 통해 만들었는데 많이 무거워요ㅠ 첨부파일 (2)
18 강영순 | 02:07 | 추천 0 | 조회 17
18 강영순 02:07 0 17
3981 VBA
New 재고관리 툴 만들기 8시간 풀영상 중 목록상자 가시성과 다중페이지에 대해 질문합니다.
나두엑셀왕 | 2021.09.18 | 추천 0 | 조회 11
나두엑셀왕 2021.09.18 0 11
3980 기능/도구
New 목록 단추 차수 조회를 피벗테이블과 연동해서 총괄표 조회 할때 에러 발생 해결 부탁드려요~~ 첨부파일 (1)
알면서 | 2021.09.18 | 추천 0 | 조회 11
알면서 2021.09.18 0 11
3979 파워쿼리/피벗
New 웹데이터 엑셀로 가져오기 (1)
yoo | 2021.09.18 | 추천 -1 | 조회 28
yoo 2021.09.18 -1 28
3978 기능/도구
New 아이콘을 매뉴에 저장하는 방법 문의 (1)
Trimman | 2021.09.18 | 추천 0 | 조회 20
Trimman 2021.09.18 0 20
3977 VBA
New 선택 행 강조 매크로 사용시 복사/붙여넣기 할 수 있는 방법 있을까요? (1)
차오 | 2021.09.17 | 추천 0 | 조회 30
차오 2021.09.17 0 30
3976 함수/공식
New index/match 함수 사용시 다중 데이터을 합산하여 데이터 합계 끌고오는 방법이 있을까요? 첨부파일 (1)
관절바람 | 2021.09.17 | 추천 0 | 조회 28
관절바람 2021.09.17 0 28
3975 VBA
New VBA 시트명을 참조하는 함수입력 매크로에서 시트명을 변수로 설정하는 방법 (1)
kimki**** | 2021.09.17 | 추천 0 | 조회 23
kimki**** 2021.09.17 0 23
3974 함수/공식
New [카운팅 함수 해결방법] 고수님들 아무쪼록 가르침을 주시면 감사하겠습니다! 첨부파일 (2) 답변완료
CreativeGil | 2021.09.17 | 추천 0 | 조회 36
CreativeGil 2021.09.17 0 36
3973 함수/공식
New 일자/품목 열 행으로 나눠져 있는 자료 끌고오기 (1)
top**** | 2021.09.17 | 추천 0 | 조회 30
top**** 2021.09.17 0 30
3972 함수/공식
New 엑셀 함수 질문 첨부파일
향기 | 2021.09.17 | 추천 0 | 조회 38
향기 2021.09.17 0 38
3971 VBA
New VBA 로 만든 임시 POS에서, 바코드 열과 날짜 추가하는 방법 문의 드립니다 첨부파일 (1)
효율 | 2021.09.17 | 추천 0 | 조회 34
효율 2021.09.17 0 34
3970 기능/도구
New 스프레드시트 복사 붙여넣기 큰따옴표 지우는법 알려주실분 (1)
제비제비 | 2021.09.17 | 추천 0 | 조회 16
제비제비 2021.09.17 0 16
3969 VBA
New 동영상 처럼 엑셀로 만들어 질까요? (1)
yoo | 2021.09.16 | 추천 0 | 조회 39
yoo 2021.09.16 0 39
3968 VBA
New 기준열로 데이터 댕겨주기 질문 첨부파일 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 34
H.B 2021.09.16 0 34
3967 기능/도구
New 다른 시트 참조 자동 계산 (1)
skyline | 2021.09.16 | 추천 0 | 조회 43
skyline 2021.09.16 0 43
3966 함수/공식
New 엑셀 함수 질문 첨부파일 (1)
향기 | 2021.09.16 | 추천 0 | 조회 25
향기 2021.09.16 0 25
3965 VBA
New 재질문 줄바꿈, 배열쪼개기 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 37
H.B 2021.09.16 0 37
3964 VBA
New 폴더내 모든파일의 '특정시트' '각 파일' 제일 앞 시트로 복사
강대국 | 2021.09.16 | 추천 0 | 조회 22
강대국 2021.09.16 0 22
3963 VBA
New 사용자지정함수 관련 문의 입니다.
Nir | 2021.09.16 | 추천 0 | 조회 22
Nir 2021.09.16 0 22
3962 파워쿼리/피벗
New 파워쿼리 열 추가 첨부파일 (2)
슝슝 | 2021.09.16 | 추천 0 | 조회 24
슝슝 2021.09.16 0 24
3961 함수/공식
New "월"&"주 차별" 관련 문의 드립니다 ㅠㅠ!! 첨부파일 (2) 답변완료
송민정 | 2021.09.16 | 추천 0 | 조회 39
송민정 2021.09.16 0 39
3960 VBA
표 데이터 다른표에 복사 붙여넣기 하는 매크로 첨부파일
이도현 | 2021.09.16 | 추천 0 | 조회 21
이도현 2021.09.16 0 21
3959 VBA
Range 안에 변수 넣기 (2) 답변완료
kimki**** | 2021.09.16 | 추천 0 | 조회 37
kimki**** 2021.09.16 0 37
3958 함수/공식
시트 내 중복되는 문자열이 있을 때 표시할 수 있는 함수나 방법 (6) 답변완료
보조메일 | 2021.09.16 | 추천 0 | 조회 41
보조메일 2021.09.16 0 41
3957 VBA
썸네일 이미지 url 추출 첨부파일 (8)
넘버원 | 2021.09.16 | 추천 0 | 조회 46
넘버원 2021.09.16 0 46
3956 피벗테이블
엑셀 피벗테이블 필터에 대한 질문입니다. 첨부파일 (1)
치킨카뤠 | 2021.09.15 | 추천 0 | 조회 26
치킨카뤠 2021.09.15 0 26
3955 VBA
파일합치기 VBA에서, 값 붙여넣기를 하고 싶은 경우 (2) 답변완료
용부가자 | 2021.09.15 | 추천 0 | 조회 34
용부가자 2021.09.15 0 34