ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

Book1.rar (8.27 KB)
½Ð°Ý¥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

¦^´_ 1# 198188

Book1.rar (8.4 KB)
¸ê®Æ®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

Book1.rar (8.4 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-6 12:30 ½s¿è

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

TOP

¦^´_ 3# GBKEE


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

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

TOP

¦^´_ 3# GBKEE

Book1.rar (8.62 KB)


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

TOP

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

TOP

¦^´_ 6# GBKEE
Book1.rar (8.68 KB)
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

TOP

  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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh


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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD