GBKEE

¦^´_ 4# PJChen

http://forum.twbts.com/viewthread.php?tid=8016&rpid=45083&ordertype=0&page=2#pid45083

PJChen

¦^´_ 16# GBKEE

¤j¤j,

½Ð±Ð§Ú·Q±N§ó§ï¹Ï¤ù¦WºÙ»P¶Kñ¦Wªºµ{¦¡¤À¶},¦]¬°§ó§ï¹Ï¤ù¦WºÙ¥u­n¶i¦æ¤@¦¸§Y¥i,¦Ó§ó§ï«áªºÃ±¦W«o¬O¦³³\¦hµ{¦¡­n¦@¥Îªº.§Ú§â¥¦§ï¬°¥H¤U,¤£ª¾­þ¥X¿ù¤F,µLªk¹B§@?

Sub change_Signed()
    'Dim Rng(1 To 3) As Range, xi As Integer
    With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
        For xi = 1 To .Pictures.Count
            .Pictures(xi).Name = "ñ¦W" & xi
        Next
    End With
            Rng(xi).Parent.Pictures.Delete  '§R°£ Rng(xi)¤÷¼h(¤u§@ªí)ªº¹Ï¤ù
            Rng(xi).PasteSpecial
End Sub

PJChen

¦^´_ 5# GBKEE

¤j¤j,
±z¦^ÂЪº³sµ²¬O§ï¹Ï¤ù¦WºÙ¤Î¶Kñ¦W¦Ü3­Ó¤u§@ªí,¦ý§Ú¥u­n¶K1­Óñ¦W,²{¦b§Ú§â¥¦§ï¬°¥H¤U,¦ýµLªk¹B§@,¥i¥HÀ°¦£¬Ý¬Ý¶Ü?

Sub try()
    Dim Rng As Range
    Workbooks("Shipping formula.xlsm").Sheets("Signed").Pictures("ñ¦W2").Copy
    With Workbooks("Shipping for Courier.xlsx")
        .Activate
    Set Rng = .Sheets("PKG").[D:D].Find("TOTAL N. W.", LOOKAT:=xlPart).Offset(0, 11)
    If Not Rng Is Nothing Then
        With Rng
            .Parent.Activate   'Worksheet
            .Activate       'Range
        End With
        ActiveSheet.Paste
    End If
    End With
End Sub

GBKEE

¦^´_ 6# PJChen
»yªk ³£¥¿½T ¹B§@¥¿±`
µLªk¹B§@   ½Ð»¡¬O­þ¸Ì¥X¿ù!

GBKEE

¦^´_ 17# PJChen

1. Sub change_Signed()
   
2.     Dim Rng(1 To 3) As Range, xi As Integer
   
3.     With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
   
4.         For xi = 1 To .Pictures.Count
   
5.             .Pictures(xi).Name = "ñ¦W" & xi
   
6.         Next
   
7.     End With
   
8.     MsgBox xi ' ³o®É xi=.Pictures.Count + 1 ¶W¥X Rngªº¯Á¤Þ­È
   
9.     Rng(xi).Parent.Pictures.Delete  '§R°£ Rng(xi)¤÷¼h(¤u§@ªí)ªº¹Ï¤ù
   
10.     Rng(xi).PasteSpecial
    
11. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 18# GBKEE

¤j¤j,

°õ¦æ«á¥X²{3ªº¹ï¸Ü®Ø,µM«á´NµLªk¹B§@,¨ì¥¨¶°µ{¦¡¤¤,¬Ý¨£¥H¤Uªº¦r®Ø°_¨Ó¤F.
   Rng(xi).Parent.Pictures.Delete  '§R°£ Rng(xi)¤÷¼h(¤u§@ªí)ªº¹Ï¤ù

PJChen

¦^´_ 7# GBKEE

¤j¤j,

§Ú±Nµ{¦¡¾ã²z¶i®×¨Ò¤¤¤F,½ÐÀ°¦£¬Ý¬Ý: Shipping formula-2.zip (111.39 KB)

¤U¸ü¦¸¼Æ: 4

2012-10-13 13:48

GBKEE

¦^´_ 19# PJChen
°õ¦æ«á¥X²{3ªº¹ï¸Ü®Ø,µM«á Rng(xi).Parent.Pictures.Delete ´NµLªk¹B§@
MsgBox xi ' ³o®É xi=.Pictures.Count + 1      xi ¤w¬O 3
¥i¬Oµ{¦¡½X  ¨S¬Ý¨ì SET Rng(xi)=??    ©Ò¥H·|¥X¿ù

PJChen

¦^´_ 20# GBKEE

¤j¤j,

§Ú¥u¬O±N§A¼gªºµ{¦¡®M¶i¥h¦Ó¤w,§A¦^Âе¹§Úªº,¨ä¹ê§Ú¤@ÂI³£¤£©ú¥Õ,¥i§_À°¦£­×§ï­ìµ{¦¡?

GBKEE

¦^´_ 8# PJChen

1. Sub ¶Kñ¦W()   '¥ý°õ¦æ¦¹µ{¦¡
   
2. With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
   
3.         For xi = 1 To .Pictures.Count
   
4.             .Pictures(xi).Name = "ñ¦W" & xi
   
5.         Next
   
6.     End With
   
7. End Sub
   
8. Sub try_2()   '«á°õ¦æ¦¹µ{¦¡
   
9.     Dim Rng As Range
   
10.     Windows("Shipping formula-2.xlsm").Activate
    
11.     Sheets("Signed").Select
    
12.     ActiveSheet.Shapes.Range(Array("ñ¦W1")).Select
    
13.     Selection.Copy
    
14.     Set Rng = Workbooks("Accounting_Rising.xlsx").Sheets("INV").[P:P].Find("RISING STAR COMPANY LTD.").Offset(2, 0)
    
15.     If Not Rng Is Nothing Then
    
16.         With Rng
    
17.             .Parent.Activate   'Worksheet
    
18.             .Activate       'Range
    
19.         End With
    
20.         ActiveSheet.Paste
    
21.     End If
    
22. End Sub

½Æ»s¥N½X