返回列表 上一主題 發帖

[發問] 複製工作表時, 如何可以不複製工作表背後附著的巨集

[發問] 複製工作表時, 如何可以不複製工作表背後附著的巨集

當使用巨集複製工作表時, 如何可以不複製工作表背後附著的巨集如
Private Sub Worksheet_Change(ByVal Target As Range)
或將巨集刪除

請指教

不好意思我沒注意到是Worksheet
那如果改成以下程式
應該可以

Sub test()

Sheets("sheet1").Select  '選擇要複製的工作表
Cells.Copy       '複製工作表
Workbooks.Add    '新增一個excel檔
ActiveSheet.Paste  '貼上複製
ActiveWorkbook.Save     '存檔

End Sub
動念成因積因成果 by huijuang

TOP

用這方法會將附著sheet1 的巨集都會複製到新檔案
Private Sub Worksheet_Change(ByVal Target As Range)

TOP

我的做法是複製工作表,如下

Sub test()

Sheets("sheet1").Select  '選擇要複製的工作表
Sheets("sheet1").Copy    '複製工作表
ActiveWorkbook.Save     '存檔

End Sub
動念成因積因成果 by huijuang

TOP

        靜思自在 : 【行善要及時】行善要及時,功德要持續。如燒開水一般,未燒開之前千萬不要停熄火候,否則重來就太費事了。
返回列表 上一主題