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

king0331

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

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

prin.huang

回復 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

回復 2# prin.huang

下載 (45.5 KB)

2017-5-31 13:34

這會有錯誤

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

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