¦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

¦^´_ 22# 198188


    ¦U¦ì°ª¤â¡A½Ð°Ý¦³¨S¦³¥i¥HÀ°¦£¸Ñ¨M³o­Ó°ÝÃD¡H
Sub HK()

Dim FRng As Range

Dim A As Range, Rng As Range
Dim i As Integer

fs = "C:\Users\patrick.HKG\Desktop\Payment\Updated info\payment report 2012.xlsx"

'fs = ThisWorkbook.Path & "\payment report 2012.xlsx"'¦P¤@¥Ø¿ý®É¨Ï¥Î

Set wb = Workbooks.Open(fs)

With ThisWorkbook.Worksheets("2012")

For Each A In .Range(.[A2], .Range("A1").End(xlDown))

   Set FRng = wb.Sheets("New form of payment report").Range("A:A").Find(A, lookat:=xlWhole) ³o¥y¥u¬O¥ÑA1¶}©l¶¶§Ç§ä´M¤U¥h¡A±o¥Xµª®×¬O²Ä¤@­Ó¬Û¦Pªº¸ê®Æ¡C½Ð°Ý¦³µL¤èªk±N¥¦§ï¦¨¥ÑA65536 ¶}©l¶¶§Ç§ä´M¤W¥h¡A±o¥Xµª®×¬O³Ì«á¬Û¦Pªº¸ê®Æ
   If Not FRng Is Nothing Then

      If FRng.Offset(, 6).Value > 0.95 Then

         A.Offset(, 5) = FRng.Offset(, 9).Value 'Åý2012ªºDÄæµ¥©ó­»´ä&®ü¨¾³æªºLÄæ

         If Rng Is Nothing Then Set Rng = A.Offset(, 5) Else Set Rng = Union(Rng, A.Offset(, 5))

      End If

   End If

     Set FRng = Nothing

Next

End With

wb.Close 0

End Sub

198188

¦^´_ 20# Hsieh

Set FRng = wb.Sheets("­»´ä&®ü¨¾³æ").Range("A:A").Find(A, lookat:=xlWhole) ½Ð°Ý¦pªG¦bA:A¤º¦³¨â­Ó¬Û¦P¸ê®Æ¡A¨º»ò¦p¦ó«ü¥O¥¦¥Ñ¤U¦Ü¤W§ä¡A§Ú·Q­nªº¬O³Ì«á¨º­Ó¡C
   
¨Ò¦p¡G

§Ú·Q§ä123456¡A¦Ó¥X¨Óªºµª®×¬Oe,¦Ó¤£¬Ob.À³¸Ó«ç¼Ë§ï¡H


wb.Sheets("­»´ä&®ü¨¾³æ").Range("A:A")¤º¦³³o¨Ç¸ê®Æ
123455   a
123456   b
123457  c
123458  d
123456   e

198188

¦^´_ 20# Hsieh


    ¥i¥H¤F¡AÁÂÁ±z¡I
§Ú¥D­n¬O·Q¦boutstanding payments ªí¤º®Ú¾ÚHK ETA UPDATE¤ºªº¸ê®Æ§ó·s¡A¬Û¦Pso,¦pªGHK ETA UPDATE¤ºªºETA©Moutstanding payments ªí¤ºªº¤£¦P¡A´N§âoutstanding payments ªí¤ºªºETA§ó§ï¦¨HK ETA UPDATE¤ºªºETA¡AµM«á¼Ð¤WÃC¦â¡A¦pªG¬Û¦P´N¤£ÅܤΦpªGoutstanding payments ªí¤ºªºso¦bHK ETA UPDATEªí¤º¨S¦³¡A¤]¤£ÅÜ¡C

Hsieh

¦^´_ 18# 198188
´£°Ý®É½Ð´y­z§Aªº»Ý¨D
¥ú±q§Aªºµ{¦¡½X¥h²q§Aªº»Ý¨D·|³y¦¨«Ü¤jªº®t²§
¬Ý¬Ý¬O§_¦X¥G§Aªº»Ý¨D

1. Sub sample()
   
2. Dim FRng As Range
   
3. Dim A As Range, Rng As Range
   
4. fs = "C:\Documents and Settings\USER\®à­±\HK ETA update.xlsx"
   
5. 'fs = ThisWorkbook.Path & "\HK ETA update.xlsx"'¦P¤@¥Ø¿ý®É¨Ï¥Î
   
6. Set wb = Workbooks.Open(fs)
   
7. With ThisWorkbook.Worksheets("2012")
   
8. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
   
9.    Set FRng = wb.Sheets("­»´ä&®ü¨¾³æ").Range("A:A").Find(A, lookat:=xlWhole)
   
10.    If Not FRng Is Nothing Then
    
11.       If FRng.Offset(, 11) <> A.Offset(, 3) Then
    
12.          A.Offset(, 3) = FRng.Offset(, 11).Value 'Åý2012ªºDÄæµ¥©ó­»´ä&®ü¨¾³æªºLÄæ
    
13.          If Rng Is Nothing Then Set Rng = A.Offset(, 3) Else Set Rng = Union(Rng, A.Offset(, 3))
    
14.       End If
    
15.    End If
    
16.    Set FRng = Nothing
    
17. Next
    
18.         If Not Rng Is Nothing Then Rng.Interior.Color = RGB(255, 200, 255)
    
19. End With
    
20. wb.Close 0
    
21. End Sub

½Æ»s¥N½X

198188

¥t¥~§Ú·Q¦A°Ý¤@¼Ë¡I
RECEIVE
SEND
¦U¦³¸ê®Æ¡A¦ý¥i§_¨â­ÓSTATE¦Û§ÚÀˬd¡A¨Ò¦p¡G
RECEIVE¦³¥H ...
198188 µoªí©ó 2012-11-13 21:21

    Docs Record (Update11-10).rar (102.48 KB)

¤U¸ü¦¸¼Æ: 4

2012-11-13 21:36

vba¥i¥H°µ¨ì¤@­ÓexcelÅý¦h¦ì¥Î®a¦P®É¨Ï¥Î¡A¿é¤J¡BÀx¦s¡H
¦pªG¤£¯àªº¸Ü¡Avba¥i§_¥Î¥|­ÓexcelÅý¥Î®a¨Ï¥Î¡AµM«á¦A±N³o¥|­Óexcelªº¸ê®Æ©w®É¶Ç¨ìªþ¥óÁ`ªí,µM«á¦A¹Bºâ?

198188

¦^´_ 15# Hsieh


Outstanding Payments.rar (680.06 KB)

¤U¸ü¦¸¼Æ: 6

2012-11-13 21:28

HK ETA update.rar (360 KB)

¤U¸ü¦¸¼Æ: 5

2012-11-13 21:28

ÀH¤Wªþ¥ó¡I³Â·Ð½Ð¬Ý¬Ý¡I·P¿E¤£ºÉ~

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

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

Hsieh

¦^´_ 14# 198188
½M¤lºN¶H
fs¼g¤J¦r¦ê¤£¥i¯à¥X¿ù¡A´Nºâ¬O¸ô®|¿ù»~¤]¤£¬O¦b¸Ó¦æ¥X¿ù
½Ð§â°ÝÃD»¡©ú²M·¡¡A§_«h°ÝÃD¤£¦A¦^´_