返回列表 上一主題 發帖

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

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
1# 跳轉到 »
發表於 2017-5-31 10:30 | 顯示全部帖子
回復 1# king0331

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

  3. Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
  4. ActiveSheet.Name = Format(Date, "YYYYMMDD") & "-772"

  6. End Sub

  8. Sub 按鈕3_Click()

  10. Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
  11. ActiveSheet.Name = Format(Date, "YYYY/MM/DD") & "-773"

  13. End Sub
複製代碼

TOP

        靜思自在 : 不要隨心所欲，要隨心教育自己。
返回列表 上一主題