½Ð°Ý¥i§_°µ¨ì¦Û°Ê¦©´î¸ê®Æ

198188

Book1.rar (8.27 KB)

¤U¸ü¦¸¼Æ: 5

2012-12-6 00:06

½Ð°Ý¥i§_°µ¨ì¦Û°Ê¦©´î¡C
Åã¥ÜSO NOÁÙ¦³¨º¨Ç¤å¥ó¨S¦³±H¥X¡B
µL½×¤U­±¤T­ÓÄæ¿é¤Jªº¦r¬O§_¬Û¦P¡A¥u­nÀx¦s®æ¦³¸ê®Æ´N¥Nªí¬Û¦P
IÄæ=OÄæ¡AµL½×Àx¦s®æªº¸ê®Æ¬O§_¬Û¦P¡A¥u­n³o¨âÄæ¦P®É¦³¸ê®Æ¡A´N¥Nªí¨S¦³OBL
JÄæ=PÄæ¡AµL½×Àx¦s®æªº¸ê®Æ¬O§_¬Û¦P¡A¥u­n³o¨âÄæ¦P®É¦³¸ê®Æ¡A´N¥Nªí¨S¦³OHC
KÄæ=QÄæ¡AµL½×Àx¦s®æªº¸ê®Æ¬O§_¬Û¦P¡A¥u­n³o¨âÄæ¦P®É¦³¸ê®Æ¡A´N¥Nªí¨S¦³CO
sheet1¬O¸ê®Æ®w¡AON HAND¬O­nªº®ÄªG

198188

¦^´_ 1# 198188

Book1.rar (8.4 KB)

¤U¸ü¦¸¼Æ: 3

2012-12-6 00:38

¸ê®Æ®w¡G
   
1        Receive Docs        111111        A        AA        23-Oct-12        1/12/2012        DHL123        OBL*3        OHC                PM                                               
2        Send Out Docs        111111        A        AA        23-Oct-12        2/12/2012        SF123                OHC                AM
3        Receive Docs        222222        B        BB        15-Nov-12        2/12/2012        DHL124                        CO2        AM                                               
4        Receive Docs        111111        A        AA        23-Oct-12        2/12/2012        DHL125                        CO        AM                                               
5        Receive Docs        222222        B        BB        15-Nov-12        3/12/2012        DHL126        OBL                        AM                                               
6        Receive Docs        222222        B        BB        15-Nov-12        4/12/2012        DHL127                OHC                AM                                               
7        Receive Docs        333333        C        CC        25-Nov-12        6/12/2012        DHL128        OBL        OHC        CO        AM                                               
8        Send Out Docs        222222        B        BB        15-Nov-12        7/12/2012        SF124                OHC        CO        AM
9        Send Out Docs        333333        C        CC        25-Nov-12        7/12/2012        SF125                        CO        AM
10        Send Out Docs        333333        C        CC        25-Nov-12        8/12/2012        SF126                OHC                AM
11        Receive Docs        444444        D        DD        25-Dec-12        9/12/2012        DHL129        OBL        OHC        CO        AM                                               
12        Send Out Docs        333333        C        CC        25-Nov-12        9/12/2012        SF127        OBL                        AM
13        Send Out Docs        444444        D        DD        25-Dec-12        9/12/2012        SF128                OHC        CO        AM


µ²ªG¡G
SO NO        BUYER        AGENT        ETA                             DOCS LIST
111111        A        AA        23-Oct-12        OBL,CO
222222        B        BB        15-Nov-12        OBL
444444        D        DD        25-Dec-12        OBL

­è¤~ªºªþ¥ó¦³°ÝÃD¡A²{­«·s¤W¶Çªþ¥ó¡C

GBKEE

¦^´_ 2# 198188
[ON HAND] ¬°¦ó­n¦³¨â­Ó SO NO        SO NO        BUYER        AGENT        ETA        DOCS LIST

198188

¦^´_ 3# GBKEE


    ¨S¦³¨âÄæSO,§Ú­è¤~¥´¶}³£¨S¦³¡H¥u¦³item no and SO

§A¬O¤£¬O°ÝSO¤ºªº¸ê®Æ¬Û¦P¡H

198188

¦^´_ 3# GBKEE

Book1.rar (8.62 KB)

¤U¸ü¦¸¼Æ: 4

2012-12-6 12:37

¨£¨ì¤F¡A¥i¯à¤£¤p¤ß¥´¦h¤F¡A²{ªþ¤W§ó¥¿ªºªþ¥ó¡C

GBKEE

¦^´_ 5# 198188
1#ªº»¡©ú¹ï»PªþÀÉ[ON HAND]ªº½d¨Ò±µ¤£¤W°Ú!!½Ð¦b»¡©ú¬Ý¬Ý.

198188

¦^´_ 6# GBKEE
Book1.rar (8.68 KB)

¤U¸ü¦¸¼Æ: 11

2012-12-6 14:54

SO NO 111111 ¤À§O¦¬¨ìOBL*3, OHC, CO ¡F ¤Î¤À§O±H¥XOHC
©Ò¥H
SO NO        BUYER        AGENT        ETA                            DOCS LIST
111111        A        AA        23-Oct-12        OBL,CO

SO NO 222222 ¤À§O¦¬¨ìCO*2, OBL, OHC ¡F ¤Î¤À§O±H¥XOHC, CO
©Ò¥H
SO NO        BUYER        AGENT        ETA                            DOCS LIST
222222        B        BB        15-Nov-12        OBL

SO NO 333333 ¤À§O¦¬¨ì OBL, OHC, CO ¡F ¤Î¤À§O±H¥X CO, OHC, OBL
©Ò¥H
SO NO        BUYER        AGENT        ETA                            DOCS LIST

SO NO 444444 ¤À§O¦¬¨ì OBL, OHC, CO ¡F ¤Î¤À§O±H¥X OHC, CO
©Ò¥H
SO NO        BUYER        AGENT        ETA                            DOCS LIST   
444444        D        DD        25-Dec-12        OBL

IÄæ©MOÄ椣ºÞÀx¦s®æ¤º®e¬O¤°»ò¡A¥u­nÀx¦s®æ¤º¦³¸ê®Æ¡A¹q¸£´N¦Û°ÊÀq»{¥¦¬OOBL
JÄæ©MPÄ椣ºÞÀx¦s®æ¤º®e¬O¤°»ò¡A¥u­nÀx¦s®æ¤º¦³¸ê®Æ¡A¹q¸£´N¦Û°ÊÀq»{¥¦¬OOHC
KÄæ©MQÄ椣ºÞÀx¦s®æ¤º®e¬O¤°»ò¡A¥u­nÀx¦s®æ¤º¦³¸ê®Æ¡A¹q¸£´N¦Û°ÊÀq»{¥¦¬OCO

Hsieh

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. ay = Array("OBL", "OHC", "CO")
   
4. With Sheets("Sheet1")
   
5. Set rng = .Range(.[C2], .Cells(.Rows.Count, 3).End(xlUp))
   
6. For Each a In rng
   
7.   If IsEmpty(d(a.Value)) Then
   
8.   For i = 9 To 11
   
9.   Set rng1 = .Cells(2, i).Resize(rng.Rows.Count, 1)
   
10.   Set rng2 = .Cells(2, i + 6).Resize(rng.Rows.Count, 1)
    
11.      x = Evaluate("SumProduct((" & rng.Address & "=" & a & ")*(" & rng1.Address & "<>""""))")
    
12.      y = Evaluate("SumProduct((" & rng.Address & "=" & a & ")*(" & rng2.Address & "<>""""))")
    
13.      If x = 0 Xor y = 0 Then mystr = IIf(mystr = "", ay(i - 9), mystr & "," & ay(i - 9))
    
14.   Next
    
15.   If mystr <> "" Then d(a.Value) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, mystr) Else d.Remove a.Value
    
16.   mystr = ""
    
17.   End If
    
18. Next
    
19. End With
    
20. With Sheets("ON HAND")
    
21. .UsedRange.Offset(1).ClearContents
    
22. .[A2].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
    
23. End With
    
24. End Sub

½Æ»s¥N½X

¦^´_ 7# 198188

198188

¦^´_ 8# Hsieh


   
.[A2].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
¥X²{error RUN-TIME ERROR'13':  TYPE MISMATCH

Hsieh

¦^´_ 9# 198188

À³¸Ó¬O§Aªº§@¥Î¤¤¤u§@ªí¨Ã«DSheet1
¨º´N¤½¦¡¤º°Ñ·Ó¥[¤W¤u§@ªí

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. ay = Array("OBL", "OHC", "CO")
   
4. With Sheets("Sheet1")
   
5. Set Rng = .Range(.[C2], .Cells(.Rows.Count, 3).End(xlUp))
   
6. For Each a In Rng
   
7.   If IsEmpty(d(a.Value)) Then
   
8.   For i = 9 To 11
   
9.   Set rng1 = .Cells(2, i).Resize(Rng.Rows.Count, 1)
   
10.   Set rng2 = .Cells(2, i + 6).Resize(Rng.Rows.Count, 1)
    
11.      x = Evaluate("SumProduct((" & Rng.Address(, , , 1) & "=" & a & ")*(" & rng1.Address(, , , 1) & "<>""""))")  '°Ñ·Ó¦ì§}¥]§t¥~³¡°Ñ·Ó
    
12.      y = Evaluate("SumProduct((" & Rng.Address(, , , 1) & "=" & a & ")*(" & rng2.Address(, , , 1) & "<>""""))")  '°Ñ·Ó¦ì§}¥]§t¥~³¡°Ñ·Ó
    
13.      If x = 0 Xor y = 0 Then mystr = IIf(mystr = "", ay(i - 9), mystr & "," & ay(i - 9))
    
14.   Next
    
15.   If mystr <> "" Then d(a.Value) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, mystr) Else d.Remove a.Value
    
16.   mystr = ""
    
17.   End If
    
18. Next
    
19. End With
    
20. With Sheets("ON HAND")
    
21. .UsedRange.Offset(1).ClearContents
    
22. If d.Count > 0 Then .[A2].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
    
23. End With
    
24. End Sub

½Æ»s¥N½X