返回列表 上一主題 發帖

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

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-6 12:27 | 只看該作者

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

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

請指教
收藏 分享

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
2#
發表於 2014-3-6 15:17 | 只看該作者
我的做法是複製工作表，如下

Sub test()

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

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

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
3#
發表於 2014-3-7 14:34 | 只看該作者
用這方法會將附著sheet1 的巨集都會複製到新檔案
Private Sub Worksheet_Change(ByVal Target As Range)

TOP

huijuang

帖子
49 
主題
3 
精華
0 
積分
74 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
雲林 
註冊時間
2014-2-13 
最後登錄
2020-9-18 
4#
發表於 2014-3-7 15:19 | 只看該作者
不好意思我沒注意到是Worksheet
那如果改成以下程式
應該可以

Sub test()

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

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

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題