帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-9-12 20:24 | 只看該作者

[發問] 如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表

本帖最後由 sillykin 於 2013-9-12 20:25 編輯

如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表

報告.rar (34.67 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-9-12 20:41 | 只看該作者

回復 1# sillykin
你有試過用錄製巨集嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 1
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

3^#

發表於 2013-9-12 21:31 | 只看該作者

如何把整張報告表含CheckBox選項一同複製資料轉寫到另一工作表
sillykin 發表於 2013-9-12 20:24

With Sheets("報告表")
.Activate
.Copy After:=Sheets(Sheets.Count)
End With
With Sheets(Sheets.Count)
.Name = "複製的報告表"
End With

複製代碼

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

4^#

發表於 2013-9-12 22:38 | 只看該作者

謝謝大大的回覆.及指導..
我的意思是重新開一個新的工作表提檔案複製過去

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

5^#

發表於 2013-9-13 00:10 | 只看該作者

回復 4# sillykin

能否在請教..複製資料到另一張工作表..然後在重新另存新檔..檔名以[B6]+[B3]欄位來命名..是否可行呢????

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-9-13 05:49 | 只看該作者

回復 5# sillykin
基本的工作表複製為何不錄製巨集看看語法,自己多練習.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

7^#

發表於 2013-9-13 07:55 | 只看該作者

巨集試過了..
Range("A1:K73").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
ActiveWindow.SmallScroll Down:=63
但是CHECKBOX沒複製過去

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2013-9-13 08:46 | 只看該作者

回復 7# sillykin
是要複製整張工作表,CheckBox才可複製到

Sub Ex()
Dim xPath As String
xPath = "d:\"
Workbooks("報告.xls").Sheets("報告表").Copy
With ActiveWorkbook
' .SaveAs (xPath & .ActiveSheet.[b6] & .ActiveSheet.[b3])
.ActiveSheet.Name = .ActiveSheet.[b6] & .ActiveSheet.[b3]
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

9^#

發表於 2013-9-13 19:23 | 只看該作者

謝謝大大的指導..我會用心學的..

TOP