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

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

TOP

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

TOP

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

TOP

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

TOP

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

TOP

¦^´_ 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§@ªí)ªº¹Ï¤ù

TOP

¦^´_ 7# GBKEE

¤j¤j,

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

TOP

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

TOP

¦^´_ 20# GBKEE

¤j¤j,

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

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

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD