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

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

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

¦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®æ

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

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

TOP

¦^´_ 2# GBKEE

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

TOP

¶Kñ¦WÀÉ

½Ð±Ð¦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

TOP

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

TOP

¦^´_ 2# GBKEE

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

TOP

¦^´_ 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®§!  
ERR.jpg
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

TOP

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

TOP

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

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD