標題: 複製到新的工作表並跳出視窗改名字 [打印本頁]

---

作者: king0331    時間: 2017-5-31 00:13     標題: 複製到新的工作表並跳出視窗改名字

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

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

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

---

作者: prin.huang    時間: 2017-5-31 10:30

回復 1# king0331

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

1. Sub 按鈕2_Click()
   
2. 
   
3. Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
   
4. ActiveSheet.Name = Format(Date, "YYYYMMDD") & "-772"
   
5. 
   
6. End Sub
   
7. 
   
8. Sub 按鈕3_Click()
   
9. 
   
10. Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
    
11. ActiveSheet.Name = Format(Date, "YYYY/MM/DD") & "-773"
    
12. 
    
13. End Sub

複製代碼

---

作者: GBKEE    時間: 2017-5-31 13:35

回復 2# prin.huang


[attach]27256[/attach]


這會有錯誤

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

複製代碼

建議改一下

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

複製代碼

---

作者: king0331    時間: 2017-6-1 01:06

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)