ªð¦^¦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®æ

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

¦^´_ 36# Hsieh
¤j¤j,

§Ú¤F¸Ñ¤F,¬O§Ú¦Û¤v¥Çªº¿ù»~,½T¹ê¥i¥H°õ¦æ.

TOP

¦^´_ 35# PJChen

§ó¦Wµ{¦¡¨Ã¨S¿ù»~°Ú!
¤£ª¾¹D§A¬O¦p¦ó°õ¦æ
¤W¶ÇªºÀÉ®×½T¹ê¥i¥H°õ¦æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 34# GBKEE

Dear,

­Y¦³¤H¨Ï¥Î2010ª©¥»ªºExcel,¥i§_À°¦£­×§ï31¼ÓªºÅܧó¹Ï¤ù¦WºÙªºµ{¦¡?

TOP

¦^´_ 33# PJChen
¨º¶·¦³°ª©ó2003ª©¥»ªÌ¨Ó¸Ñ¤F

TOP

¦^´_ 32# GBKEE
¤j¤j,

½Ð°Ý¦b2010ª©¦³µLªk¤è¥i­×§ï,Åý¥¦¥i¹B§@?

TOP

¦^´_ 31# PJChen
³oµ{¦¡¶Ü? ¦b2003ª©°õ¦æ¨S°ÝÃD
  1. Sub change_Signed()
  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
½Æ»s¥N½X

TOP

¦^´_ 30# GBKEE

¤j¤j,

1) §Ú¤w±N·sµ{¦¡­×§ï¦n¤F,¦ý§ó§ï¹Ï¤ù¦WºÙªºµ{¦¡¤´µLªk°õ¦æ.... Shipping formula-2.zip (63.03 KB)
2) ¶Kñ¦Wªºµ{¦¡°õ¦æok.

TOP

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

TOP

¦^´_ 20# GBKEE

¤j¤j,

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

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD