¦p¦ó¥i¥HÅý¤£¬O"JPM"¤£Åã¥Ü¥X¨Ó¡A¤]¤£·|¯d¤@¦æªÅ®æ¡H

198188

Book1.rar (10.67 KB)

¤U¸ü¦¸¼Æ: 17

2012-11-11 02:39

Sub JPM()
   Dim i As Integer, j As Integer, k As Integer, l As Integer
   Dim rowC As Integer
   Dim rB As Range
   Dim data() As String
   Dim found As Boolean

   '¥ý±N AK:AR ªº¸ê®Æ²M°£
   Worksheets("jpm").[A2:O65536].ClearContents

   '­pºâ¦h¤Öµ§¸ê®Æ­n³B²z
   rowC = Sheets(1).Range("A1").CurrentRegion.Rows.Count
   '¥ý¼È¦s¸ê®Æ¡A¥[³t³B²z
   Set rB = Sheets(1).Range(Cells(1, 1), Cells(rowC, 32))
   ReDim data(rowC, 32)

   k = 0
   For i = 1 To rowC '³B²z¸ê®Æ
       j = 1
       found = False
       While (j <= k) And (found = False) '¤ñ¹ï¦³¨S¦³¥X²{¹L
          If rB(i, 19) = data(j, 19) And rB(i, 20) = data(j, 20) And rB(i, 3) = data(j, 3) Then
             found = True
             data(j, 3) = rB(i, 3)
             data(j, 4) = rB(i, 4)
             data(j, 6) = rB(i, 6)
             data(j, 19) = rB(i, 19) + "¡B" + rB(i, 19)
             data(j, 20) = rB(i, 20) + "¡B" + rB(i, 20)
             data(j, 21) = data(j, 21) + "¡B" + rB(i, 21)
             data(j, 22) = data(j, 22) + "¡B" + rB(i, 22)
             data(j, 23) = data(j, 23) + "¡B" + rB(i, 23)
             data(j, 24) = data(j, 24) + "¡B" + rB(i, 24)
             data(j, 25) = data(j, 25) + "¡B" + rB(i, 25)
             data(j, 26) = data(j, 26) + "¡B" + rB(i, 26)
             data(j, 27) = rB(i, 27)
             data(j, 28) = rB(i, 28)
             data(j, 29) = rB(i, 29)
             data(j, 30) = rB(i, 30)
             data(j, 31) = rB(i, 31)
             data(j, 32) = rB(i, 32)
        End If
          j = j + 1
       Wend

       If found = False Then  '¨S¦³¥X²{¹L¥[¤J·s¸ê®Æ
          k = k + 1
          data(k, 3) = rB(i, 3)
          data(k, 4) = rB(i, 4)
          data(k, 6) = rB(i, 6)
          data(k, 19) = rB(i, 19)
          data(k, 20) = rB(i, 20)
          data(k, 21) = rB(i, 21)
          data(k, 22) = rB(i, 22)
          data(k, 23) = rB(i, 23)
          data(k, 24) = rB(i, 24)
          data(k, 25) = rB(i, 25)
          data(k, 26) = rB(i, 26)
          data(k, 27) = rB(i, 27)
          data(k, 28) = rB(i, 28)
          data(k, 29) = rB(i, 29)
          data(k, 30) = rB(i, 30)
          data(k, 31) = rB(i, 31)
          data(k, 32) = rB(i, 32)
     End If
   Next i

       l = 1
   For i = 1 To k '¦C¦L¸ê®Æ
      
       If Range("B" & i + 1).Value = "JPM" Then
      
       Sheets("JPM").Cells(l, 1) = data(i, 19)
       Sheets("JPM").Cells(l, 2) = data(i, 20)
       Sheets("JPM").Cells(l, 3) = data(i, 3)
       Sheets("JPM").Cells(l, 4) = data(i, 27)
       Sheets("JPM").Cells(l, 5) = data(i, 4)
       Sheets("JPM").Cells(l, 6) = data(i, 28)
       Sheets("JPM").Cells(l, 7) = data(i, 29)
       Sheets("JPM").Cells(l, 8) = data(i, 30)
       Sheets("JPM").Cells(l, 9) = data(i, 31)
       Sheets("JPM").Cells(l, 10) = data(i, 32)
       Sheets("JPM").Cells(l, 11) = data(i, 6)
       Sheets("JPM").Cells(l, 12) = data(i, 21) + "¡B" + data(i, 22) + "¡B" + data(i, 23)
       Sheets("JPM").Cells(l, 13) = data(i, 24)
       Sheets("JPM").Cells(l, 14) = data(i, 25)
       Sheets("JPM").Cells(l, 15) = data(i, 26)
       End If
       l = l + 1
      Next i

MsgBox ("Sucess")

End Sub

¦p¦ó¥i¥HÅý¤£¬O"JPM"¤£Åã¥Ü¥X¨Ó¡A¤]¤£·|¯d¤@¦æªÅ®æ¡H

198188

¦^´_ 2# Hsieh

vba ¨S¦³¿ìªkÅý¥¦¤£¥X²{¶Ü¡H

198188

¦^´_ 4# Hsieh


    04.Set Rng = .Range("B:B").SpecialCells(xlCellTypeFormulas, 16) ¥X²{error, ±N§ÚDATA BASEªº JPMÂন1/0,¦ý¦bjpm worksheet¤º´N¨S¦³copy ¸ê®Æ¹L¥h¡I

¥t¥~JPM  worksheetªº¸ê®Æ¬O¶¶§Ç±NDATA BASEªº JPM¸ê®Æ§Û¹L¨Ó¡A¦ýÂ\¦ì¬O¤£¤@¼Ë

DATA BASE (SHEET1)
Äæ¼Æ¥ÑA :Z
ITEM NO / STATE / SO / BUYER / AGENT / ETA /RECEIVE DATE/ RECEIVE TRACKING NO/ RECEIVE OBL/RECEIVE OHC/RECEIVE OTHER DOCS/RECEIVE REMARK/SEND DATE/SEND TRACKING NO/ SEND OBL/SEND OHC/SEND OTHER DOCS/SEND REMARK/ JPM DATE/JPM REF NO/JPM OBL/JPM OHC/ JPM OTHER DOCS/JPM REMARK/JPM US ARRANGE PAYMENT ON/JPM HK PICK UP ON

JPM WORKSHEET (JPM)¥uÅã¥Ü³o¨Ç¸ê®Æ
Äæ¼Æ¥ÑA : G
JPM DATE / JPM REF NO / SO/JPM DOCS LIST(JPM OBL, JPM OHC, JPM OTHER DOCS ¦X¨Ö¡^/JPM REMARK/JPM US ARRANGE PAYMENT ON/JPM HK PICK UP ON

198188

¦^´_ 5# c_c_lai


    ³o­Óµ{¦¡¨S¦³¤Ï¬M¡A¬O§_ÁÙ¤í¯Ê¤@¨Ç¸ê®Æ¡H

198188

¦^´_ 8# Hsieh


result.rar (486.07 KB)

¤U¸ü¦¸¼Æ: 4

2012-11-13 14:36

ÁÙ¬O¨S¦³Åã¥Ü¥X¨Ó. JPM WORKSHEETªÅ¥Õ¤@¤ù~
¥t¥~·Q°Ý
Sub sample()

Dim LastRec As Integer
Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim data() As Range
l = 1

Worksheets("Sheet1").Range("A1").Select
ActiveCell.End(xlDown).Select
     LastRec = ActiveCell.Row
     

For j = 1 To LastRec

i = Application.Match(Sheet1.Cells(1, j), "C:\user\destop\[outstanding payment]Sheet2'!.Range("A:A"), 0) §Ú·QŪ¨ú®à­±¥t¥~¤@­Óexcelªº¸ê®Æ¡A³o¥y¬O¤£¬O¦³°ÝÃD¡H

If Sheet1.Cells(i, 2).Value <> Sheet2.Cells(i, 2).Value Then

Sheet1.Cells(i, 2).Value = Sheet2.Cells(i, 2).Value
Sheet1.Cells(i, 2).Interior.Color = RGB(255, 200, 255)
End If

Next j

End Sub

198188

¦^´_ 10# Hsieh

µ²ªG.rar (198.35 KB)

¤U¸ü¦¸¼Æ: 2

2012-11-13 15:21

¥i¥H±NJPM ¸ê®Æ½Æ»s¹L¥h¤F¡AÁÂÁ¡I
¦ý¬O¦³¨S¦³¤èªk§ïÅÜ¥¦­Ìªº¦ì¸m¡A¦]¬°§Ú¤£¬O­n¥þ³¡·h¹L¥h¡A©M§Ú·Q¥¦­Ì¦bA:F¶¶§Ç§Û¹L¥h¡C
   
DATE        TRACKING NO        SO NO        MM        BUYER        PLANT        BOXES        CONTAINER NO        ORIGIN        ETD        ETA        DOCS LIST        REMARK        US ARRANGE PAYMENT ON        HK PICK UP ON

198188

¦^´_ 10# Hsieh


    ¥¼©R¦W.rar (118.82 KB)

¤U¸ü¦¸¼Æ: 4

2012-11-13 18:18

ÁÙ¬O¦³¿ù»~

198188

¦^´_ 10# Hsieh


    Sub sample()

Dim LastRec As Integer
Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim data() As Range
l = 1
fs = "C:\Documents and Settings\USER\®à­±\HK ETA update.xlsx"          ³o¥y¥X²{error °õ¦æ¶¥¬q¿ù»~'13'«¬ºA¤£²Å¦X¡I
Set wb = Workbooks.Open(fs)

Workbooks("outstanding payments").Worksheets("2012").Range("A1").Select ³o
ActiveCell.End(xlDown).Select
     LastRec = ActiveCell.Row
     


For j = 1 To LastRec

i = Application.Match(Worksheets("2012").Cells(j, 1), wb.Sheets("­»´ä&®ü¨¾³æ").Range("A:A"), 0)


If Worksheets("2012").Cells(i, 4).Value <> wb.Sheets("­»´ä&®ü¨¾³æ").Cells(i, 12).Value Then

Worksheets("2012").Cells(i, 4).Value = wb.Sheets("­»´ä&®ü¨¾³æ").Cells(i, 2).Value
Worksheets("2012").Cells(i, 4).Interior.Color = RGB(255, 200, 255)
End If

Next j

wb.Close 0

End Sub

198188

¦^´_ 13# Hsieh


    ¥i¥H¤F¡IÁÂÁ¡I
11/11/2012
12/11/2012
13/11/2012
15/11/2012
15/11/2012
18/11/2012
19/11/2012
11/11/2012
11/11/2012
11/11/2012

11/11/2012
11/12/2012
13/11/2012
15/11/2012
15/11/2012
18/11/2012
19/11/2012
11/11/2012
11/11/2012
11/11/2012
¦ý¬O§Ú·Q°Ý¡A¬°¦ó²Ä¤G­Óªº¤é´Á·|Åܦ¨11/12/2012?¬O­þ¸Ì¥X²{°ÝÃD¡H¬O¤£¬O¦]¬°§Ú³]©w¿é¤J®É¦b¤é´Á«e¥['¤~³o¼Ë¡H¦ý¤]¥u¦³¤@­Ó¥X¿ù¡A¤£¬O¥þ³¡¥X¿ù¡I
¬O¤£¬O¸ê®Æ®w¤º¨S¦³JPMªº¸ê®Æ´N·|¥X²{°ÝÃD¡H¨º¬O¤£¬O¥i¥H¥[¥y¡A¦pªG¨S¦³JPMªº¸ê®Æ´N¤£°õ¦æ³o­Óµ{¦¡,¨º¼Ë´N¨S¨Æ¤F¡H

198188

¦^´_  Hsieh


    ¥i¥H¤F¡IÁÂÁ¡I
11/11/2012
12/11/2012
13/11/2012
15/11/2012
15/11/2012
18 ...
198188 µoªí©ó 2012-11-13 21:07

   
¥t¥~§Ú·Q¦A°Ý¤@¼Ë¡I
RECEIVE
SEND
¦U¦³¸ê®Æ¡A¦ý¥i§_¨â­ÓSTATE¦Û§ÚÀˬd¡A¨Ò¦p¡G
RECEIVE¦³¥H¤U¸ê®Æ
207626 / XIANG / CHEONG / 23-OCT-12 / 15/11/2012 / DHL200 / OBL /            /             /PM
207626 / XIANG / CHEONG / 23-OCT-12 / 18/11/2012 / DHL201 /        / OHC  /            /AM
207626 / XIANG / CHEONG / 23-OCT-12 / 19/11/2012 / DHL202/       /            /    CO  /AM
                       
SEND ¦³¥H¤U¸ê®Æ
207626 / XIANG / CHEONG / 23-OCT-12 / 19/11/2012 / SF111 /        / OHC  /       /AM


µM«á¹q¸£·|¦Û°Ê°OºâÁÙ¦³­þ¨Ç¦b¤â¤WÁÙ¨S±H¥X¡I

207626 / XIANG / CHEONG / 23-OCT-12 / 15/11/2012,19/11/2012  / DHL200,DHL202 / OBL,CO  /  PM,AM