標題: 複製工作表並設定inputbox並更改工作表名稱 [打印本頁]

---

作者: chairles59    時間: 2016-4-19 00:45     標題: 複製工作表並設定inputbox並更改工作表名稱

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

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

Sub 複製工作表()

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

   
End Sub

謝謝各位大大的教導

---

作者: 准提部林    時間: 2016-4-19 20:45

Sub CopySht()
Dim ShtN$, Sht As Worksheet
ShtN = InputBox("請輸入工作表名稱")
If ShtN = "" Then Exit Sub
On Error Resume Next
Set Sht = Sheets(ShtN)
If Not Sht Is Nothing Then MsgBox "工作表名稱已存在!": Exit Sub
ActiveSheet.Copy after:=Sheets(2)
ActiveSheet.Name = ShtN
End Sub

---

作者: chairles59    時間: 2016-4-19 21:17

回復 2# 准提部林

準大大:
可以了感謝您

---

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