1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

재고 입고월 분석(vba)

VBA .Find 조회 수 7551 추천 수 0 2009.07.24 09:38:18

안녕하세요 처음 글을 올려 봅니다.

제가 다니는 회사가 패션회사라 재고에 대한 분석이 철저히 이뤄져야 합니다.
그래서  현재 남아 있는 재고에 대한 입고월을 분석하려고 합니다.

매크로로 짜 봤는데 잘 되지 않아서 고수님의 지도부탁드립니다.

 

[재고현황 (12월 31일)]
(품번) (재고수량) 
aa 20 

 

출고가 선입선출법이라고 가정한다면 재고는 가장 나중에 들어온 것 들로 구성되므로


[입고현황 1월 ~ 12월 -> 입고역순으로 정렬된 데이타 ]
(품번) (입고일자) (입고수량) (역산한 재고의 입고월)
aa 2001-12-31     10       10
aa 2001-01-12       5        5
aa 2001-01-07      30        5  (30개중  25개는 출고되고 5개는 재고로 남음)
aa 2001-01-02      20        -  (재고 20개를 초과하므로 계산에서 제외)

 

파일 첨부하였습니다.

 

저에게 굉장히 중요한 건데 해결할 능력이 않되네요..


댓글 '3'

profile

[레벨:30]아별

2009.07.25 15:18:36
*.130.73.19

기본 컨셉은 이렇습니다.

 

▲기본전제..

데이터는 입고 날짜 순으로 정렬되어 있다. 선입선출이다.

 

▲해결 방법..

입고현황 시트의 A열(품목)을 선택하고, 맨 아래쪽 레코드를 activate하지요..

    Columns("A:A").Select
    Range("A65536").Activate

선택영역에서 aa품목을 거꾸로 거슬로 올라가면서 찾습니다.

    Selection.Find(What:="aa", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase _
        :=False, MatchByte:=False, SearchFormat:=False).Activate
만약 선택 품목의 오른쪽 2번째 셀인 입고수량이 20개보다 크다면, 예를 들면 30개면 재고수량에 20을 넣고 프로그램 종료시킵니다. 선입선출이라고 하셨으니까.. 가장 최근에 입고되니 수량이 기말 재고 보다 작으면 가장 최근에 입고된것 중 일부가 남은거라고 볼 수 있겠죠..

그리고 만약..  20개보다 작다면 예를 들면 15개면 오른쪽 3번째 셀의 재고 수량에는 15을 넣은 다음, 기준 정보인 20은 20-15인 5로 변경하고.. 다시 aa품목을 거슬러 올라가면서 찾습니다. 그 라인의 입고 수량이 새로운 기준인 5보다 작은지 큰지 보고.. 작으면 해당 입고분만큼 재고수량에 넣고 다시 위로.. 처음으로 갈때까지!

    Selection.FindPrevious(After:=ActiveCell).Activate

 

머.. 기본 컨셉이 그렇습니다. 잡다한 에러처리도 필요하겠지요..

이정도로 만족하실지 모르겠네요.. 제가 주말에 어딜 가봐야해서.. 일단 이정도로 팁을 드립니다.

 

현재까지 만든 파일을 참조하세요.. abyul_20090725_vba.xls

 

Option Explicit

Sub checkProduct()
    Dim cntClosing As Integer
    Dim endPosition As Range
    cntClosing = Application.InputBox("aa 품목의 기말 재고 수량을 입력하세요", Title:="기말재고 수량 입력창", Type:=2)
   
   
    Columns("A:A").Select
    Range("A65536").Activate
    Selection.Find(What:="aa", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase _
        :=False, MatchByte:=False, SearchFormat:=False).Activate
    Set endPosition = ActiveCell

    Do
            If ActiveCell.Offset(0, 2).Value >= cntClosing Then
            ActiveCell.Offset(0, 3).Value = cntClosing
            End
        ElseIf ActiveCell.Offset(0, 2).Value < cntClosing Then
            ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 2).Value
            cntClosing = cntClosing - ActiveCell.Offset(0, 2).Value
        End If
        Selection.FindPrevious(After:=ActiveCell).Activate
        If ActiveCell.Address = endPosition.Address Then
            End
        End If
    Loop
End Sub

 

 

좋은 결과 있으시길 바래요.. ^^)/

첨부

[레벨:1]럽웨어

2009.07.26 14:07:35
*.123.2.253

정말 감사합니다.  정말 신이라는 별명에 손색이 없으십니다... 제가 원하는대로 일부 편집했더니 일괄처리까지 가능하게 되었습니다.

 

감사합니다.

 

profile

[레벨:30]아별

2009.07.27 18:07:27
*.130.73.19

원하시는 결과를 얻으셨다니 정말 다행입니다. ^^

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜sort 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40189

엑셀일반 궁금한게 있습니다...급합니다..ㅠㅠ

엑셀일반 아별툴 적용 안됨 imagefile

  • [레벨:2]queeny
  • 2014-03-12
  • 조회 수 3099

엑셀수식 엑셀공백 질문드려요 file [1]

  • [레벨:4]요셉
  • 2014-03-14
  • 조회 수 2045

VLookup 엑셀에서 특정내용 참조하여 지정된 셀의 내용 교체 방법 imagefile

  • [레벨:1]한스7
  • 2014-03-16
  • 조회 수 3755

엑셀수식 특정 범위에서 값이 있는 부분의 같은 열에 있는 값을 반환 file

  • [레벨:1]cyee7
  • 2014-03-25
  • 조회 수 2280

아별툴관련질문 아별 설치후 추가기능 선택시 에러발생 imagefile

  • [레벨:1]aratus
  • 2014-05-09
  • 조회 수 2364

엑셀일반 [엑셀 연결관련] 파일을 열때 "연결중:₩₩ ???₩ ???₩ ~ " 류의 메세지 imagefile [1]

  • [레벨:1]kymylys
  • 2014-05-10
  • 조회 수 5976

엑셀수식 날짜 함수 file [1]

엑셀일반 중복 IF문 개념잡는법에 대한 질문 imagefile [4]

아별툴관련질문 아별툴 오류! imagefile [1]

  • [레벨:1]namoman
  • 2014-06-11
  • 조회 수 2115

엑셀일반 빠른실행도구모음 자동숨김 해제 imagefile [2]

  • [레벨:2]데피
  • 2014-06-16
  • 조회 수 3444

엑셀일반 엑셀시트 암호 관련 질문입니다 [2]

VBA 아별님 안녕하세요 file

  • [레벨:2]북곰
  • 2014-07-09
  • 조회 수 3570

엑셀일반 안녕하세요 질문좀 하려고 합니다 [2]

피벗테이블 피벗에서 중복값을 하나의 숫자로 판단하여 표기하는 방법 file [3]

VBA 도움을 요청드립니다~ secret

엑셀일반 통합문서공유풀기 secret

엑셀일반 질문드립니다 ^^! file

  • [레벨:1]쎔히
  • 2014-08-04
  • 조회 수 2414

기타 이 질문이 엑셀에 관련된건지 모르겠지만 혹시나 해서 질문드립니다 image

  • [레벨:1]dedfire
  • 2014-08-09
  • 조회 수 1979

SUMIF sumifs 에서 조건에 있는 값을 다 더해주는 기능은 없을까요? [2]