PJChen

　暱稱: PJ

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-4-28 23:27 | 只看該作者

[發問] 巨集陣列的程式

各位好,

我想寫一個巨集陣列的程式,條件如下:
從工作表"Shipping formula.xlsm"的Sheet("Signed")  copy一個圖片"Picture 1",分別貼到
"Shipping for ACE.xlsx"的Sheet("PKG","INV","SCD"),
貼的位置為Sheet("PKG")......D欄位的"TOTAL N. W."字樣+右12格
                  Sheet("INV")......Q欄位的"B. C. MART COMPANY LTD."字樣+下2格
                  Sheet("SCD")......B欄位的"Signature:"字樣+右2格

請問我該怎麼做?

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

37^#

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

回復 36# Hsieh
大大,

我了解了,是我自己犯的錯誤,確實可以執行.

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

36^#

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

回復 35# PJChen

更名程式並沒錯誤啊!
不知道你是如何執行
上傳的檔案確實可以執行

學海無涯_不恥下問

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

35^#

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

回復 34# GBKEE

Dear,

若有人使用2010版本的Excel,可否幫忙修改31樓的變更圖片名稱的程式?

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

34^#

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

回復 33# PJChen
那須有高於2003版本者來解了

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

33^#

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

回復 32# GBKEE
大大,

請問在2010版有無法方可修改,讓它可運作?

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

32^#

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

回復 31# PJChen
這程式嗎? 在2003版執行沒問題

Sub change_Signed()
With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
For xi = 1 To .Pictures.Count
.Pictures(xi).Name = "簽名" & xi
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

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

31^#

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

回復 30# GBKEE

大大,

1) 我已將新程式修改好了,但更改圖片名稱的程式仍無法執行....

Shipping formula-2.zip (63.03 KB)
2) 貼簽名的程式執行ok.

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

30^#

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

回復 8# PJChen

Sub 貼簽名() '先執行此程式
With Workbooks("Shipping formula-2.xlsm").Sheets("Signed")
For xi = 1 To .Pictures.Count
.Pictures(xi).Name = "簽名" & xi
Next
End With
End Sub
Sub try_2() '後執行此程式
Dim Rng As Range
Windows("Shipping formula-2.xlsm").Activate
Sheets("Signed").Select
ActiveSheet.Shapes.Range(Array("簽名1")).Select
Selection.Copy
Set Rng = Workbooks("Accounting_Rising.xlsx").Sheets("INV").[P:P].Find("RISING STAR COMPANY LTD.").Offset(2, 0)
If Not Rng Is Nothing Then
With Rng
.Parent.Activate 'Worksheet
.Activate 'Range
End With
ActiveSheet.Paste
End If
End Sub

複製代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

29^#

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

回復 20# GBKEE

大大,

我只是將你寫的程式套進去而已,你回覆給我的,其實我一點都不明白,可否幫忙修改原程式?

TOP