返回列表 上一主題 發帖

[發問] 工作表保留

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-7-18 17:56 | 只看該作者

[發問] 工作表保留

'    Sheets(Shrr).Move   '列72
'    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TEST_" & Nrange & "-" & Num & "期" & ".xls"

想將Sheets(Shrr)共6個工作表複製後轉出；即轉出後，主檔還要Sheets(Shrr)原版保留。
請問：列72的程式碼要如何修正？
謝謝！
工作表保留(主檔).rar (122.08 KB)
收藏 分享

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5#
發表於 2021-7-18 23:53 | 只看該作者
回復 4# n7822123
哈~我是一丈差9尺九九九^^"
測試OK了!
萬分感謝您的指導和幫忙~感恩

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
4#
發表於 2021-7-18 23:40 | 只看該作者
回復 3# ziv976688


試試

Sub 清除()
For Each sh In Sheets(Array("準2進3", "準3進4", "準4進5", "準5進6", "準6進7", "準7進8"))
   sh.[T2:CM200].ClearContents
Next
Application.Goto [DATA!J1]
End Sub
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2021-7-18 19:45 | 只看該作者
回復 2# n7822123
我還以先COPY，再MOVE
OK了!感謝您

還有1個清除內容的問題~我一直寫失敗~煩請您再指導：
將Sheets(Shrr)共6個工作表的T2：CM200儲存格的內容清除，
然後浮標停留在DATA!的J1
請問：Module1的程式碼要如何編寫？
謝謝您!
清除指定內容.rar (121.8 KB)

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2021-7-18 18:33 | 只看該作者
回復 1# ziv976688


Sheets(Shrr).Copy   '列72
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TEST_" & Nrange & "-" & Num & "期" & ".xls"
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題