麻辣家族討論版版 » Excel程式區 » 複製到新的工作表並跳出視窗改名字

返回列表下一主題上一主題發帖

複製到新的工作表並跳出視窗改名字

小學生 Rank: 1

帖子: 20
主題: 9
精華: 0
積分: 29
點名: 0
作業系統: Windows
軟體版本: office 2016
閱讀權限: 10
性別: 男
來自: 新竹
註冊時間: 2017-3-11
最後登錄: 2018-10-30

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-5-31 00:13 | 只看該作者

複製到新的工作表並跳出視窗改名字

本帖最後由 king0331 於 2017-5-31 00:15 編輯

空白的工作表是sample
我想按下“按鈕2”時
跳出一個視窗問我”是否為772或773"
可以讓我選擇是772或773
然後複製sample的工作表
新工作表的名字就是（看我選擇的是772或是773）今天的日期+“772”或今天的日期+“773”
在一個按鈕就完成，我只需按“772”或“773”

麻煩了各位大大，對我來說很重要

Sample.png (46.09 KB)

sample.rar (16.62 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 44
主題: 4
精華: 0
積分: 84
點名: 0
作業系統: winxp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2016-10-12
最後登錄: 2021-11-10

2^#

發表於 2017-5-31 10:30 | 只看該作者

回復 1# king0331

跳出頁面會用到自行定義表格，且還是要選772 or 773
建議是直接給兩個按鈕，一個定義為772，一個定義為773，
應該就能達成你要的功能了

Sub 按鈕2_Click()
Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Date, "YYYYMMDD") & "-772"
End Sub
Sub 按鈕3_Click()
Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Date, "YYYY/MM/DD") & "-773"
End Sub

複製代碼

超級版主 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兔年全勤獎章

3^#

發表於 2017-5-31 13:35 | 只看該作者

回復 2# prin.huang

這會有錯誤

ActiveSheet.Name = Format(Date, "YYYY/MM/DD") & "-772"

複製代碼

建議改一下

ActiveSheet.Name = Format(Date, "yyyy-mm-dd") & "-772"
'或是
ActiveSheet.Name = Format(Date, "dddddd") & "-772"

複製代碼

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

小學生 Rank: 1

帖子: 20
主題: 9
精華: 0
積分: 29
點名: 0
作業系統: Windows
軟體版本: office 2016
閱讀權限: 10
性別: 男
來自: 新竹
註冊時間: 2017-3-11
最後登錄: 2018-10-30

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-6-1 01:06 | 只看該作者

太感謝了！！！！
真好適合我用
我也學了一招

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。

返回列表下一主題上一主題