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

worksheets copy 問題

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-29 17:32 | 顯示全部帖子

worksheets copy 問題

在檔案內有一個工作表"SAMPLE"
希望設定程式
可以輸複製工作表數量
而複製完後的工作表名稱從左至右由1開始
但經常到中途會出現執行階段錯誤
請問那裡出問題呢?
或有沒有其他更好的方法嗎?

Sub 複製工作表()
Dim i As Integer
Dim no As Integer
Dim e As Integer

i = Application.InputBox("請輸入數字" & Chr(10) & "或按 '取消' 停止巨集", _
"複製工作表張數", Type:=1)
If i > 0 Then
e = i
For no = 1 To i
Worksheets("sample").Copy before:=Worksheets(1)
Sheets(1).Name = e
e = e - 1
Next no
End If
End Sub