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

複製工作表並設定inputbox並更改工作表名稱

chairles59

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-4-19 00:45 | 顯示全部帖子

複製工作表並設定inputbox並更改工作表名稱

請問各位大大:
我想複製sheet(2)的表格為新的工作表
但想做一個設定inputbox並更改工作表名稱

請問設定inputbox並更改工作表名稱的程式要如何做

Sub 複製工作表()

ActiveSheet.Copy after:=Sheets(2) '複製工作表在第二個工作表在右側

End Sub

謝謝各位大大的教導