- ©«¤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
|
Outstanding Payments.rar (665.87 KB)
payment report 2012.rar (412.31 KB)
¦^´_ 3# 198188
Sub HK()
Dim FRng As Range
Dim A As Range, Rng As Range
Dim i As Integer
fs = "C:\Users\Desktop\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("B:B").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not FRng Is Nothing Then
If FRng.Offset(, 6).Value >= 0.95 and A.Offset(, 5) = "" Then
A.Offset(, 5) = FRng.Offset(, 9).Value 'Åý2012ªºFÄæµ¥©óNEW FORM OF PAYMENT REPORT ªºK Äæ
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
ÁÂÁÂ~²{¦b¥i¥H§ä¨ì³Ì«á¤@Ó¬Û¦Pªº¸ê®Æ¡A¦ý¬O¦³¨Ç§ä¤£¨ì¡C¨Ò¦p¡G208935 ©M 208936 ´N¨S¦³¤Ï¬M¡C½Ð°Ý¬Oþ¸Ì¥X²{°ÝÃD¤F¡H |
|