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

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

¦^´_ 6# PJChen
¥i±o¥¿½T ¹Ï¤ù¦WºÙ
  1. Sub try()
  2.   Dim S As Picture
  3.   For Each S In Workbooks("Shipping formula-2.xlsm").Sheets("Signed").Pictures
  4.      S.TopLeftCell.Offset(-1) = S.Name
  5.   Next
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# Hsieh

¤j¤j,
°õ¦æµ{¦¡«á·|¥X²{¹ï¸Ü®Ø¨Ã¥BÅã¥Ü¼Æ¦r,ÁÙ¦³Picture#,¦ýµLªkª¾¹D­þ­Ó¥N¸¹»P­þ­Óñ¦WÀɬO°t¦b¤@°_ªº!
¥t¥~´N¬O¥u¦³¤G­Óñ¦W,¥i¬O¬°¤°»ò¹ï¸Ü®Ø¥X²{4¦¸?

TOP

¦^´_ 8# GBKEE

G¤j,
°õ¦æµ{¦¡«á,·|¦bñ¦WÀɤW¥X²{¬ÛÀ³ªºPicture¥N½X,³oÃÒ¹ê§Ú­ì¥ý³]ªº¥N½X¤]¨S¿ù,¥i¬O·|¶Ã¶Kªº­ì¦]¬O¤°»ò?¬O§_¤G­Ó¶Kñ¦Wªºµ{¦¡¦³½Ä¬ðªº¦a¤è?¾É­P¶Ã¶Kñ¦WÀÉ?
¥t¥~·Q½Ð±Ð¨C©ñ¤@­Óñ¦WÀɳ£·|¦Û°Ê²£¥Í¥¦¦Û¤vªº¥N¸¹,¦ý¥N¸¹¬O§_¥i¥H§ó§ï?

Shipping formula-2.zip (110.25 KB)

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-10-12 23:05 ½s¿è

¦^´_ 9# PJChen
  1. Sub nn()
  2. For Each pic In ¤u§@ªí8.Pictures
  3. MsgBox "¹Ï¤ùªº§Ç¸¹  " & pic.Index '¹Ï¤ùªº§Ç¸¹
  4. MsgBox "¹Ï¤ùªº¦WºÙ  " & pic.Name  '¹Ï¤ùªº¦WºÙ
  5. Next
  6. End Sub
½Æ»s¥N½X
©pªºµ{¦¡½X¤¤tryµ{§Ç¨Ï¥ÎPictures(1).Copy³o·|«ü©w¹Ï¤ù§Ç¸¹
try_2µ{§Ç¨Ï¥ÎPictures("Picture 7").Select³o·|«ü©w¹Ï¤ù¦WºÙ
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# Hsieh

¤j¤j,

«ü©w¹Ï¤ù§Ç¸¹ or «ü©w¹Ï¤ù¦WºÙ ¦³¤°»ò¤£¦P¶Ü?³o¤G­Óñ¦W,¤@­Ó¬OPicture 1,¤@­Ó¬OPicture 7,°ÝÃD¦b©ó§Ú«ü©w¤F,¦ý·|¶Ã¶K,§Ú¸Ó¦p¦ó­×¥¿µ{¦¡¶Ü?

TOP

¦^´_ 11# Hsieh

¸É¥R:
¦pªG§Ú·Q¥H"«ü©w¹Ï¤ù¦WºÙ"¨Ó¼gµ{¦¡,¥¦¨Ã¤£±µ¨ü.
Workbooks("Shipping formula-2.xlsm").Sheets("Signed")."Picture 1".Copy

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-10-13 00:37 ½s¿è

¦^´_ 13# PJChen

Workbooks("Shipping formula-2.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
³o¬O«ü©w¦WºÙªº¼gªk
³oÃþ¤u§@§Ú·|«Øij¹ÏÀɪ½±µ¶K¤J¤£»Ý±N¹Ï¤ù¥ý©ñ¦b¤u§@ªí¦A¥h½Æ»s
°µ¤@­Ó²³æ½d¨Ò©p°Ñ¦Ò¬Ý¬Ý
    ñ¦WÀÉ.rar (33.19 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 14# Hsieh

Hsieh¤j¤j,

ÁÂÁÂÀ°§Ú­×§ïªºµ{¦¡,¤w¸g¥i¥H°õ¦æ¤F!
¦]¤u§@¤W»Ý­n©ñªºÃ±¦WÀɤӦh¤F,©Ò¥H¤~·QÅý¥¦¦Û°Ê©ñ¤Wñ¦W,³o¼Ë¯uªº¤è«K³\¦h!·PÁÂ!

TOP

¦^´_ 2# GBKEE

¤j¤j,

½Ð°Ý³o­Óµ{¦¡­Y§ï¬°¥u¶K¦b¤@­Ósheet( INV),¦Ó¤£¬O¶K3­Ósheet, §Ú±N¥L§ï¬°¥H¤U,Áö¥i¥H°õ¦æ,¦ý­ì¥ý§AÀ°§Ú¼gªº¬O°}¦C,²{¦b§ï³o¼Ë¦n¹³¦³ÂI½ÆÂø¤Æ¤F,§Ú¥i¥H«ç»ò­×¥¿©O?
   Dim Rng(1 To 1) As Range, xi As Integer
    Workbooks("Shipping formula.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
    With Workbooks("Shipping for Courier.xlsx")
        .Activate
        Set Rng(1) = .Sheets("INV").[R:R].Find("B. C. MART COMPANY LTD.").Offset(3, 0)
        For xi = 1 To 1
            Rng(xi).Parent.Activate
            Rng(xi).Activate
            ActiveSheet.Paste
        Next
    End With

TOP

¦^´_ 10# PJChen
¸Õ¸Õ¬Ý
  1. Sub try()  '¨C¤@­Óñ¦WÀɳ£¥i¥H§ï¥¦¦Û¤vªº¥N¸¹ ( Name ,¦WºÙ)
  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.         .Pictures("ñ¦W1").Copy '.Pictures("ñ¦W2").Copy
  8.     End With
  9.     With Workbooks("Shipping for ACE.xlsx")
  10.         Set Rng(1) = .Sheets("PKG").[R:R].Find("B. C. MART COMPANY LTD.", LOOKAT:=xlPart).Offset(2, -2)
  11.         Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, -2)
  12.         Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(0, 1)
  13.         For xi = 1 To 3
  14.             Rng(xi).Parent.Pictures.Delete  '§R°£ Rng(xi)¤÷¼h(¤u§@ªí)ªº¹Ï¤ù
  15.             Rng(xi).PasteSpecial
  16.         Next
  17.     End With
  18. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD