標題: 巨集運算出現問題(已解決) [打印本頁]

---

作者: jeremy    時間: 2012-3-26 01:18     標題: 巨集運算出現問題(已解決)

本帖最後由 jeremy 於 2012-3-26 01:32 編輯

各位前輩，想問一下，今不寫一個批次增加工作表並命名的巨集，
但有時會跑到一半出現錯誤，不知從程式從何下手，請大大提示:dizzy:
有時執行巨集會出現此問題
好像跟此帖有相關？ http://forum.twbts.com/viewthread.php?tid=4323
[attach]10144[/attach]
附件檔
...
找到了= ="，用這個程式碼~

Sub Macro2()
For i = 1 To 200
    Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
   ActiveSheet.Name = "w" & i
   Next
End Sub
我這樣200次也沒問題呀？

---

作者: mark15jill    時間: 2012-3-26 09:15

本帖最後由 mark15jill 於 2012-3-26 09:21 編輯

回復 1# jeremy

麻煩預設 工作表數為1個
    Sub xj()
    For xn = 2 To 20 ' 從第二個 的原因是不包含 目錄這個
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets("sheet" & xn).Name = Sheet1.Range("a" & xn).Value  'sheet1 設定為 要儲存的名稱
    Next xn
End Sub

缺點是 此程式搭配  判斷SHEET 是否存在的程式段


[attach]10147[/attach]

---

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