Board logo

標題: 執行巨集指令時按鈕卻一直增加(第二次發問) [打印本頁]
作者: blueskyneter    時間: 2015-7-6 03:04     標題: 執行巨集指令時按鈕卻一直增加

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

回復 1# blueskyneter


    會不會是按鈕是放在複製的儲存格的範圍內 ,所以連帶一起複製一份了
作者: jackyq    時間: 2015-7-6 08:30

回復 2# starry1314


    大大我幫你測試了一下, 我用手動複製貼上, 好像不會自己複製按鈕
作者: blueskyneter    時間: 2015-7-6 11:13

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

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

不知道還有什麼可能性？
作者: jackyq    時間: 2015-7-6 11:53

回復 4# blueskyneter


    沒 code 沒 answer
作者: blueskyneter    時間: 2015-7-6 12:11

嗯．．我來研究一下看應如何來上傳檔案再請各位高手幫忙．．
謝謝．
作者: blueskyneter    時間: 2015-7-6 12:39     標題: 執行巨集指令時按鈕卻一直增加(第二次發問)

本帖最後由 GBKEE 於 2015-7-7 05:26 編輯

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

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

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

因為找不到如何插入範例的方法，只好再開啟另一個發問的問題..
懇請各位達人幫忙,謝謝。
作者: lpk187    時間: 2015-7-6 14:10

回復 8# blueskyneter

你指定的是巨集10裡面的肉容就是增加按鈕啊！是不是指定錯了！
  1. Sub 巨集10()
  2. '
  3. ' 巨集10 巨集
  4. '

  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    時間: 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    時間: 2015-7-6 14:20

回復 8# blueskyneter


    把ActiveSheet.Buttons.Add都刪了看看是不是你要的！
作者: blueskyneter    時間: 2015-7-6 20:06

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

作者: blueskyneter    時間: 2015-7-6 20:54

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)