巨集陣列的程式 - Excel程式區 - 麻辣家族討論版版

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

28^# 跳轉到 »

發表於 2012-10-13 15:46 | 只看該作者

回復 19# PJChen
執行後出現3的對話框,然後 Rng(xi).Parent.Pictures.Delete 就無法運作
MsgBox xi ' 這時 xi=.Pictures.Count + 1 xi 已是 3
可是程式碼沒看到 SET Rng(xi)=?? 所以會出錯

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

27^#

發表於 2012-10-13 13:48 | 只看該作者

回復 7# GBKEE

大大,

我將程式整理進案例中了,請幫忙看看:

Shipping formula-2.zip (111.39 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

26^#

發表於 2012-10-13 13:41 | 只看該作者

回復 18# GBKEE

大大,

執行後出現3的對話框,然後就無法運作,到巨集程式中,看見以下的字框起來了.
Rng(xi).Parent.Pictures.Delete '刪除 Rng(xi)父層(工作表)的圖片

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

25^#

發表於 2012-10-13 13:20 | 只看該作者

回復 17# PJChen

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 = "簽名" & xi
Next
End With
MsgBox xi ' 這時 xi=.Pictures.Count + 1 超出 Rng的索引值
Rng(xi).Parent.Pictures.Delete '刪除 Rng(xi)父層(工作表)的圖片
Rng(xi).PasteSpecial
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2012-10-13 13:14 | 只看該作者

回復 6# PJChen
語法都正確運作正常
無法運作請說是哪裡出錯!

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

23^#

發表於 2012-10-13 12:10 | 只看該作者

回復 5# GBKEE

大大,
您回覆的連結是改圖片名稱及貼簽名至3個工作表,但我只要貼1個簽名,現在我把它改為以下,但無法運作,可以幫忙看看嗎?

Sub try()
Dim Rng As Range
Workbooks("Shipping formula.xlsm").Sheets("Signed").Pictures("簽名2").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

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

22^#

發表於 2012-10-13 11:59 | 只看該作者

回復 16# GBKEE

大大,

請教我想將更改圖片名稱與貼簽名的程式分開,因為更改圖片名稱只要進行一次即可,而更改後的簽名卻是有許多程式要共用的.我把它改為以下,不知哪出錯了,無法運作?

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 = "簽名" & xi
      Next
End With
         Rng(xi).Parent.Pictures.Delete  '刪除 Rng(xi)父層(工作表)的圖片
         Rng(xi).PasteSpecial
End Sub

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

21^#

發表於 2012-10-13 07:53 | 只看該作者

回復 4# PJChen

http://forum.twbts.com/viewthread.php?tid=8016&rpid=45083&ordertype=0&page=2#pid45083

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

20^#

發表於 2012-10-13 07:36 | 只看該作者

回復 10# PJChen
試試看

Sub try() '每一個簽名檔都可以改它自己的代號 ( Name ,名稱)
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 = "簽名" & xi
Next
.Pictures("簽名1").Copy '.Pictures("簽名2").Copy
End With
With Workbooks("Shipping for ACE.xlsx")
Set Rng(1) = .Sheets("PKG").[R:R].Find("B. C. MART COMPANY LTD.", LOOKAT:=xlPart).Offset(2, -2)
Set Rng(2) = .Sheets("INV").[Q:Q].Find("B. C. MART COMPANY LTD.").Offset(2, -2)
Set Rng(3) = .Sheets("SCD").[B:B].Find("Signature:").Offset(0, 1)
For xi = 1 To 3
Rng(xi).Parent.Pictures.Delete '刪除 Rng(xi)父層(工作表)的圖片
Rng(xi).PasteSpecial
Next
End With
End Sub

複製代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

19^#

發表於 2012-10-13 01:33 | 只看該作者

回復 2# GBKEE

大大,

請問這個程式若改為只貼在一個sheet( INV),而不是貼3個sheet, 我將他改為以下,雖可以執行,但原先你幫我寫的是陣列,現在改這樣好像有點複雜化了,我可以怎麼修正呢?
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

[發問] 巨集陣列的程式

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]