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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

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

16^#

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

回復 11# Hsieh

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

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

13^#

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

回復 8# GBKEE

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

Shipping formula-2.zip (110.25 KB)

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

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

回復 6# PJChen

執行以下代碼就知道了