[µo°Ý] ¥¨¶°°}¦Cªºµ{¦¡

PJChen

¦U¦ì¦n,

§Ú·Q¼g¤@­Ó¥¨¶°°}¦Cªºµ{¦¡,±ø¥ó¦p¤U:
±q¤u§@ªí"Shipping formula.xlsm"ªºSheet("Signed")  copy¤@­Ó¹Ï¤ù"Picture 1",¤À§O¶K¨ì
"Shipping for ACE.xlsx"ªºSheet("PKG","INV","SCD"),
¶Kªº¦ì¸m¬°Sheet("PKG")......DÄæ¦ìªº"TOTAL N. W."¦r¼Ë+¥k12®æ
                      Sheet("INV")......QÄæ¦ìªº"B. C. MART COMPANY LTD."¦r¼Ë+¤U2®æ
                      Sheet("SCD")......BÄæ¦ìªº"Signature:"¦r¼Ë+¥k2®æ

½Ð°Ý§Ú¸Ó«ç»ò°µ?

GBKEE

¦^´_ 1# PJChen

1. Sub Ex()
   
2.     Dim Rng(1 To 3) As Range, xi As Integer
   
3.     Workbooks("Shipping formula.xlsm").Sheets("Signed").Pictures(1).Copy
   
4.     With Workbooks("Shipping for ACE.xlsx")
   
5.         .Activate
   
6.         Set Rng(1) = .Sheets("PKG").[D:D].Find("TOTAL N. W.", LOOKAT:=xlPart).Offset(0, 12)
   
7.         Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, 0)
   
8.         Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(0, 2)
   
9.         For xi = 1 To 3
   
10.             Rng(xi).Parent.Activate
    
11.             Rng(xi).Activate
    
12.             ActiveSheet.Paste
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 2# GBKEE

Gª©¤j,
ÁÂÁ±z,¶i¦æ«Ü¶¶§Q.

PJChen

½Ð±Ð¦U¦ì¤j¤j:

ñ¦WÀÉ"Picture 6"©ñ¦b"Shipping formula.xlsm"ªºSheets("Signed"),
§Ú·Q±Nñ¦Wcopy¨ì("Accounting_Rising.xlsx").Sheets("INV")ªºPÄæ"RISING STAR COMPANY LTD."¦V¤U2®æ.
¥H¤U¬O§Úªº¼gªk,¦ý¤@ª½µLªk¹B§@,¥i§_À°¦£¬Ý¬Ý»yªk­þ¸Ì¦³»~?

    Windows("Shipping formula.xlsm").Activate
    Sheets("Signed").Select
    ActiveSheet.Shapes.Range(Array("Picture 6")).Select
    Selection.Copy
    With Workbooks("Accounting_Rising.xlsx").Sheets("INV").[P:P].Find("RISING STAR COMPANY LTD.").Offset(2, 0).Activate
            ActiveSheet.Paste
    End With

GBKEE

¦^´_ 1# PJChen
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range
   
4.     Windows("Shipping formula.xlsm").Activate
   
5.     Sheets("Signed").Select
   
6.     ActiveSheet.Shapes.Range(Array("Picture 6")).Select
   
7.     Selection.Copy
   
8.     Set Rng = Workbooks("Accounting_Rising.xlsx").Sheets("INV").[P:P].Find("RISING STAR COMPANY LTD.").Offset(2, 0)
   
9.     If Not Rng Is Nothing Then
   
10.         With Rng
    
11.             .Parent.Activate            'Worksheet
    
12.             .Activate                          'Range
    
13.         End With
    
14.         ActiveSheet.Paste
    
15.     End If
    
16. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 2# GBKEE

·PÁ¤j¤j, ok¤F!

PJChen

¦^´_ 2# GBKEE

½Ð°Ý¤j¤j,
¥H¤U¤GºØ¤£¦Pªº¼gªk,·|³y¦¨¿ù»~¶Ü?
§Ú·s¼W¤F 2)ªºÃ±¦W«á,¨ä¥L¦p1)ªºÃ±¦WÀÉ,¤£¬O¶Ã¶Kñ¦W2)ªºÃ±¦W,´N¬O¥X²{¿ù»~°T®§!  

¤U¸ü (18.01 KB)

2012-10-9 21:12

    1) Workbooks("Shipping formula-1.xlsm").Sheets("Signed").Pictures(3).Copy

   2)  Windows("Shipping formula-1.xlsm").Activate
    Sheets("Signed").Select
    ActiveSheet.Shapes.Range(Array("Picture 4")).Select
    Selection.Copy

GBKEE

¦^´_ 4# PJChen
ªþÀɬݬÝ

PJChen

¦^´_ 5# GBKEE

¤j¤j,

§Ú±Nñ¦WÀɧ󴫫á,¤£·|¥X²{¿ù»~°T®§,¦ý¤´·|¶Ã¶K,§Ú¬O¥ý¿ý»s¥¨¶°,±oª¾Ã±¦WÀɦU¦ÛªºPicture¥N¸¹¦U¦Û¬°1 & 7,¦ý©_©Çªº¬O,¥¦¤£·|¨Ì§Ú«ü©wªº¥N¸¹¥h¶K,¶K¤Wªº³£¬O7ªº¥N¸¹,§ó¥O§Ú¤£¸Ñªº¬O,­ì¥ý¥N¸¹7©|¥¼¥X²{®É,¤@¤Á³£¨S¦³²§±`µo¥Í.
Shipping formula-2.zip (106.25 KB)

¤U¸ü¦¸¼Æ: 4

2012-10-12 17:16

Hsieh

¦^´_ 6# PJChen

°õ¦æ¥H¤U¥N½X´Nª¾¹D¤F

1. Sub nn()
   
2. For Each pic In ¤u§@ªí8.Pictures
   
3. MsgBox pic.Index
   
4. MsgBox pic.Name
   
5. Next
   
6. End Sub

½Æ»s¥N½X