執行巨集指令時按鈕卻一直增加(第二次發問)

帖子: 29
主題: 12
精華: 0
積分: 53
點名: 0
作業系統: windows10
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2014-11-17
最後登錄: 2023-2-20

13^#

發表於 2015-7-6 20:54 | 只看該作者

成了...
問題解決了，太好了；我真的想了一個晚上，白天工作時也想在想這問題啊。
．．．．
但是以前我也是用一樣的方法在錄製巨集，也沒有這問題啊。
奇怪了。
雖然我不知道為什麼你(妳)們這麼厲害，但很感謝各位的幫忙。

帖子: 29
主題: 12
精華: 0
積分: 53
點名: 0
作業系統: windows10
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2014-11-17
最後登錄: 2023-2-20

12^#

發表於 2015-7-6 20:06 | 只看該作者

實在是不好意思，我其實看不懂這語言，我是用錄製的方法來產生巨集的！真的很感謝你的回覆和幫忙；我現在來試看看。
thank you again

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

11^#

發表於 2015-7-6 14:20 | 只看該作者

回復 8# blueskyneter

把ActiveSheet.Buttons.Add都刪了看看是不是你要的！

bobomi

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

10^#

發表於 2015-7-6 14:11 | 只看該作者

Sub 巨集10()
'
' 巨集10 巨集
'

'
Sheets("船員薪資請款單 (含第一次用費))").Select
' ActiveSheet.Buttons.Add(579.75, 19.5, 66.75, 42).Select '.......................拿掉
' ActiveSheet.Buttons.Add(581.25, 64.5, 64.5, 32.25).Select '.......................拿掉
' ActiveSheet.Buttons.Add(507.75, 29.25, 52.5, 24).Select '.......................拿掉
' ActiveSheet.Buttons.Add(51, 4.5, 70.5, 16.5).Select '.......................拿掉
' ActiveSheet.Buttons.Add(509.25, 67.5, 54, 21).Select '.......................拿掉
Sheets("船員薪資請款單 (含第一次用費))").Copy
End Sub

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

9^#

發表於 2015-7-6 14:10 | 只看該作者

回復 8# blueskyneter

你指定的是巨集10裡面的肉容就是增加按鈕啊！是不是指定錯了！

Sub 巨集10()
'
' 巨集10 巨集
'
'
Sheets("船員薪資請款單 (含第一次用費))").Select
ActiveSheet.Buttons.Add(579.75, 19.5, 66.75, 42).Select
ActiveSheet.Buttons.Add(581.25, 64.5, 64.5, 32.25).Select
ActiveSheet.Buttons.Add(507.75, 29.25, 52.5, 24).Select
ActiveSheet.Buttons.Add(51, 4.5, 70.5, 16.5).Select
ActiveSheet.Buttons.Add(509.25, 67.5, 54, 21).Select
Sheets("船員薪資請款單 (含第一次用費))").Copy
End Sub

複製代碼

帖子: 29
主題: 12
精華: 0
積分: 53
點名: 0
作業系統: windows10
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2014-11-17
最後登錄: 2023-2-20

8^#

發表於 2015-7-6 12:41 | 只看該作者

因為找不到如何插入範例的方法，只好再開啟另一個發問的問題..
懇請各位達人幫忙,謝謝。

帖子: 29
主題: 12
精華: 0
積分: 53
點名: 0
作業系統: windows10
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2014-11-17
最後登錄: 2023-2-20

7^#

發表於 2015-7-6 12:11 | 只看該作者

嗯．．我來研究一下看應如何來上傳檔案再請各位高手幫忙．．
謝謝．

jackyq

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

6^#

發表於 2015-7-6 11:53 | 只看該作者

回復 4# blueskyneter

沒 code 沒 answer

帖子: 29
主題: 12
精華: 0
積分: 53
點名: 0
作業系統: windows10
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2014-11-17
最後登錄: 2023-2-20

5^#

發表於 2015-7-6 11:13 | 只看該作者

謝謝樓上兩位的回覆:
TO冰殤：您說的我也想過，可是我先將那些原本的按鈕給先刪除掉，再來錄製巨集之後再來執行這巨集，結果還是一樣，在新的檔案中會產生四個新的按鈕之外，原本的原始檔也一樣又再產生一樣的按鈕啊。

TO jackyq：您說的沒有錯，手動的話是都很正常；例如第一次在錄製巨集時也一樣沒有問題，可是執行巨集的話就出現了這問題。所以才在頭痛不明白原因出來哪裏。

不知道還有什麼可能性？