¦U¦ì«e½ú¦n
§Úªº»Ý¨D¬On§âWIP(Sheet)¦U»sµ{ªº±Æµ{¤é´Á
¾ã²z¨ì±Æµ{(sheet)¸Ì
¦U»sµ{ªº¨C¤é¥Í²£Á`¶q¤£©T©w
¸ê®Æ«D±`¦h
§Úªº·Qªk¬O¤ñ¹ï±Æµ{¸Ìªº¨C¤éÁ`¼Æ¶q
¶W¹L¨C¤é¥Í²£Á`¶qªº¸Ü´N¶¶±Æ¦Ü¤U¤@¤Ñ
ÁÙnÁ׶}¬P´Á¤Ñ
¦]¬°§Ú¥u·|¥Î°j°é¼g
¤@ª½¶¶±À
³£·|²Ö¿n¨ì¬Y¤@¤Ñ(¨Ò¦p¹Ï¤@)
¨Ò:
±Æµ{(sheet)ªº01¹p®g²M¬~«e_¯¸
¨C¤é¥Í²£Á`¶q¬O2200
¥ý¨Ì¾ÚWIP(sheet)DLÄæ¦ì¤é´Á
§âAÄæ_§å¸¹¸ê®Æ±a¤J¹ïÀ³ªº±Æµ{¤é´Á¸Ì
±a¤J®É¤ñ¹ï¤w¸g±Æ¤JªºÁ`¼Æ
¶W¹Lªº´N³Q¤J¹j¤Ñ
µ{¦¡¦p¤U
'01¹p®g²M¬~«e
For j = 2 To r1
dl = Sheets("WIP").Range("dl" & j)
If dl <> "" Then
lot = Sheets("WIP").Range("a" & j)
'§ä»sµ{§O
Dim c As Range
Set c = Sheets("±Æµ{").Range("b:b")
fnd = c.Find(what:="01¹p®g²M¬~«e", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
'
'§ä¤é´ÁÄæ
Dim c1 As Range
Set c1 = Sheets("±Æµ{").Range("a1:cfm1")
fnd1 = c1.Find(what:=dl, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Column
'§ä¤é´Á¦C
Dim c2 As Range
Set c2 = Sheets("±Æµ{").Columns(fnd1)
fnd2 = c2.Find(what:="", after:=Cells(1, fnd1), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
plus = Cells(fnd, fnd1 - 2)
If plus < 2000 Then
Cells(fnd2, fnd1) = lot
plus1 = Cells(fnd, fnd1 + 7)
ElseIf plus1 < 2000 Then
Dim c3 As Range
Set c3 = Sheets("±Æµ{").Columns(fnd1 + 8)
fnd3 = c3.Find(what:="", after:=Cells(1, fnd1 + 8), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
Cells(fnd3, fnd1 + 8) = lot
plus2 = Cells(fnd, fnd1 + 15)
ElseIf plus2 < 2000 Then
Dim c4 As Range
Set c4 = Sheets("±Æµ{").Columns(fnd1 + 16)
fnd4 = c4.Find(what:="", after:=Cells(1, fnd1 + 16), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
Cells(fnd4, fnd1 + 16) = lot
plus3 = Cells(fnd, fnd1 + 23)
ElseIf plus3 < 2000 Then
Dim c5 As Range
Set c5 = Sheets("±Æµ{").Columns(fnd1 + 24)
fnd5 = c5.Find(what:="", after:=Cells(1, fnd1 + 24), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
Cells(fnd5, fnd1 + 24) = lot
plus4 = Cells(fnd, fnd1 + 31)
ElseIf plus4 < 2000 Then
Dim c6 As Range
Set c6 = Sheets("±Æµ{").Columns(fnd1 + 32)
fnd6 = c6.Find(what:="", after:=Cells(1, fnd1 + 32), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
Cells(fnd6, fnd1 + 32) = lot
plus5 = Cells(fnd, fnd1 + 39)
ElseIf plus5 < 2000 Then
Dim c7 As Range
Set c7 = Sheets("±Æµ{").Columns(fnd1 + 40)
fnd7 = c7.Find(what:="", after:=Cells(1, fnd1 + 40), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
Cells(fnd7, fnd1 + 40) = lot
plus6 = Cells(fnd, fnd1 + 47)
ElseIf plus6 < 2000 Then
Dim c8 As Range
Set c8 = Sheets("±Æµ{").Columns(fnd1 + 48)
fnd8 = c8.Find(what:="", after:=Cells(1, fnd1 + 48), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False, matchbyte:=False, searchformat:=False).Row
Cells(fnd8, fnd1 + 48) = lot
Else
End If
End If
Next j
½Ð¦U¦ìÀ°À°¦£¤F!!!!
·d¤£¥X¨Ó
·|³Q¦ÑÁó§ì¥h®I
¥ýÁÂÁ«e½ú̪º¤j®¦¤j¼w |