返回列表 上一主題 發帖

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

chairles59

帖子
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

謝謝各位大大的教導
收藏 分享
michael

chairles59

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

論壇贊助勳章
3#
發表於 2016-4-19 21:17 | 只看該作者
回復 2# 准提部林

準大大:
可以了感謝您
michael

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 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

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題