이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:1]](http://abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:102point (4%), 레벨:1/30"){kind=icon}
럽웨어안녕하세요 처음 글을 올려 봅니다.
제가 다니는 회사가 패션회사라 재고에 대한 분석이 철저히 이뤄져야 합니다.
그래서 현재 남아 있는 재고에 대한 입고월을 분석하려고 합니다.
매크로로 짜 봤는데 잘 되지 않아서 고수님의 지도부탁드립니다.
[재고현황 (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개를 초과하므로 계산에서 제외)
파일 첨부하였습니다.
저에게 굉장히 중요한 건데 해결할 능력이 않되네요..
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141719point, 레벨:30/30"){kind=icon}
아별
기본 컨셉은 이렇습니다.
▲기본전제..
데이터는 입고 날짜 순으로 정렬되어 있다. 선입선출이다.
▲해결 방법..
입고현황 시트의 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
좋은 결과 있으시길 바래요.. ^^)/