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

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

재고 입고월 분석(vba)

VBA .Find 조회 수 6541 추천 수 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 20739

엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1]

  • 아놔
  • 2009-07-31
  • 조회 수 12177

안녕하세요 ~ 전 생산관리를 그저께부터 갑자기 맡게 되었는데요..기존 담당자가 갑자기 그만두게 되었는데, 기존파일이 손상되서 뭐가 잘못되었는지 모르겠어요 ㅠㅠ 계속 데이타가 틀리구, 함수가 걸려있는데 이해가 안되네요..좀 도와주세요 ㅠㅠ file [1]

  • [레벨:1]홍쓰
  • 2009-07-31
  • 조회 수 4761

날짜입력하면 다음시트의 같은 날짜에 입력되는 방법 좀 알려주세요~ [2]

  • [레벨:2]불주
  • 2009-07-29
  • 조회 수 4508

사진넣기 file [3]

작성했던 수식이 모두 이상하게 바뀌었습니다. [1]

피벗테이블 엑신님~한번더 헬프요청들립니다. file [1]

  • [레벨:1]kkabo
  • 2009-07-27
  • 조회 수 4465

아별님~ 두번째 질문을 구체적으로 작성했습니다~^^ [5]

아별님!! 또 도와주세요...ㅠㅠ imagefile [1]

  • [레벨:1]hope so
  • 2009-07-27
  • 조회 수 4492

매크로 삭제 질문 드려요~ imagefile [6]

  • 우여
  • 2009-07-24
  • 조회 수 8245

VBA .Find 재고 입고월 분석(vba) file [3]

납품서발행.. file [2]

  • [레벨:1]유노
  • 2009-07-23
  • 조회 수 4357

알려주세요... [1]

피벗테이블 팁부탁드립니다. file [1]

  • [레벨:1]kkabo
  • 2009-07-23
  • 조회 수 5491

엑셀에서 특정일자 구하는 함수식좀 부탁드립니다. file [1]

'근무일수를 소수점 월단위표기' 관련 질문 두번째 입니다~^^ [2]

셀서식(표시형식) 사용자 정의 셀서식에 대해서 [1]

셀계산시간이 너무 많이 걸립니다. [4]

안녕하세요 엑셀 문서 서식관련 질문사항입니다 file [1]

엑셀에서 뒤에 있는 숫자로 정렬하는 방법좀..ㅠㅠ [1]

엑셀에서 지수값 계산하기 [1]