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

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

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD