¦p¦ó¥i¥HÅý¤£¬O"JPM"¤£Åã¥Ü¥X¨Ó¡A¤]¤£·|¯d¤@¦æªÅ®æ¡H
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 20# Hsieh
¥i¥H¤F¡AÁÂÁ±z¡I
§Ú¥Dn¬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 |
|
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 20# Hsieh
Set FRng = wb.Sheets("»´ä&®ü¨¾³æ").Range("A:A").Find(A, lookat:=xlWhole) ½Ð°Ý¦pªG¦bA:A¤º¦³¨âÓ¬Û¦P¸ê®Æ¡A¨º»ò¦p¦ó«ü¥O¥¦¥Ñ¤U¦Ü¤W§ä¡A§Ú·Qnªº¬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 |
|
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 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 |
|
|
|
|
|
|