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

blueskyneter

請問…
我用的EXCEL是2010版的.
我在一個工作表中，有四個按鈕(表單控制項)，
我錄製了一個巨集，將這工作表整個複製到一個新的檔案，
奇怪的是表格中的資料內容都沒有問題，但是這四個按鈕卻被新的按鈕給覆蓋住了；也就是說在原來按鈕的地方，產生了新的按鈕蓋在上面，按鈕名稱則為”按鈕1”或”按鈕2”等，只要再執行一次這巨集，就會再產生新的按鈕，每次產生四個，因為我原本就有四個按鈕。
還有更奇怪的是，原來的檔案也一樣產生了同樣的按鈕，而且一直加上去；也就是每執行一次就會被覆蓋一次。
以前沒有這現象，這是為什麼呢?
這應該是和系統從WIN 7換成WIN8.1沒有關係吧?因為最近換了新的電腦。
請各位達人解惑了,謝謝.

starry1314

回復 1# blueskyneter


    會不會是按鈕是放在複製的儲存格的範圍內 ,所以連帶一起複製一份了

jackyq

回復 2# starry1314


    大大我幫你測試了一下, 我用手動複製貼上, 好像不會自己複製按鈕

blueskyneter

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

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

不知道還有什麼可能性？

jackyq

回復 4# blueskyneter


    沒 code 沒 answer

blueskyneter

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

blueskyneter

實在是不知道如何在之前的問題中插入這問題檔，只好再重開一個發問的問題，請各位見諒。
這有問題的是在這附檔案中"船員薪資請款單 (含第一次用費))"這工作表之中。
執行了"另存請款單"的按鈕就出現了以下的問題。

執行巨集指令時按鈕卻一直增加

請問…
我用的EXCEL是2010版的.
我在一個工作表中，有四個按鈕(表單控制項)，
我錄製了一個巨集，將這工作表整個複製到一個新的檔案，
奇怪的是表格中的資料內容都沒有問題，但是這四個按鈕卻被新的按鈕給覆蓋住了；也就是說在原來按鈕的地方，產生了新的按鈕蓋在上面，按鈕名稱則為”按鈕1”或”按鈕2”等，只要再執行一次這巨集，就會再產生新的按鈕，每次產生四個，因為我原本就有四個按鈕。
還有更奇怪的是，原來的檔案也一樣產生了同樣的按鈕，而且一直加上去；也就是每執行一次就會被覆蓋一次。
以前沒有這現象，這是為什麼呢?
這應該是和系統從WIN 7換成WIN8.1沒有關係吧?因為最近換了新的電腦。
請各位達人解惑了,謝謝.

blueskyneter

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

lpk187

回復 8# blueskyneter

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

1. Sub 巨集10()
   
2. '
   
3. ' 巨集10 巨集
   
4. '
   
5. 
   
6. '
   
7.     Sheets("船員薪資請款單 (含第一次用費))").Select
   
8.     ActiveSheet.Buttons.Add(579.75, 19.5, 66.75, 42).Select
   
9.     ActiveSheet.Buttons.Add(581.25, 64.5, 64.5, 32.25).Select
   
10.     ActiveSheet.Buttons.Add(507.75, 29.25, 52.5, 24).Select
    
11.     ActiveSheet.Buttons.Add(51, 4.5, 70.5, 16.5).Select
    
12.     ActiveSheet.Buttons.Add(509.25, 67.5, 54, 21).Select
    
13.     Sheets("船員薪資請款單 (含第一次用費))").Copy
    
14. End Sub

複製代碼

bobomi

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