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

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兔年全勤獎章

11^# 跳轉到 »

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

回復 6# PJChen
可得正確圖片名稱

Sub try()
Dim S As Picture
For Each S In Workbooks("Shipping formula-2.xlsm").Sheets("Signed").Pictures
S.TopLeftCell.Offset(-1) = S.Name
Next
End Sub

複製代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

12^#

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

回復 7# Hsieh

大大,
執行程式後會出現對話框並且顯示數字,還有Picture#,但無法知道哪個代號與哪個簽名檔是配在一起的!
另外就是只有二個簽名,可是為什麼對話框出現4次?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

13^#

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

回復 8# GBKEE

G大,
執行程式後,會在簽名檔上出現相應的Picture代碼,這證實我原先設的代碼也沒錯,可是會亂貼的原因是什麼?是否二個貼簽名的程式有衝突的地方?導致亂貼簽名檔?
另外想請教每放一個簽名檔都會自動產生它自己的代號,但代號是否可以更改?

Shipping formula-2.zip (110.25 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

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

本帖最後由 Hsieh 於 2012-10-12 23:05 編輯

回復 9# PJChen

Sub nn()
For Each pic In 工作表8.Pictures
MsgBox "圖片的序號 " & pic.Index '圖片的序號
MsgBox "圖片的名稱 " & pic.Name '圖片的名稱
Next
End Sub

複製代碼

妳的程式碼中try程序使用Pictures(1).Copy這會指定圖片序號
try_2程序使用Pictures("Picture 7").Select這會指定圖片名稱

學海無涯_不恥下問

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

15^#

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

回復 11# Hsieh

大大,

指定圖片序號 or 指定圖片名稱有什麼不同嗎?這二個簽名,一個是Picture 1,一個是Picture 7,問題在於我指定了,但會亂貼,我該如何修正程式嗎?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

16^#

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

回復 11# Hsieh

補充:
如果我想以"指定圖片名稱"來寫程式,它並不接受.
Workbooks("Shipping formula-2.xlsm").Sheets("Signed")."Picture 1".Copy

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

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

本帖最後由 Hsieh 於 2012-10-13 00:37 編輯

回復 13# PJChen

Workbooks("Shipping formula-2.xlsm").Sheets("Signed").Pictures("Picture 1").Copy
這是指定名稱的寫法
這類工作我會建議圖檔直接貼入不需將圖片先放在工作表再去複製
做一個簡單範例妳參考看看

簽名檔.rar (33.19 KB)

學海無涯_不恥下問

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

18^#

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

回復 14# Hsieh

Hsieh大大,

謝謝幫我修改的程式,已經可以執行了!
因工作上需要放的簽名檔太多了,所以才想讓它自動放上簽名,這樣真的方便許多!感謝!

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

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

[發問] 巨集陣列的程式

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

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