返回列表 上一主題 發帖

巨集運算出現問題(已解決)

jeremy

帖子
9 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2011-4-5 
最後登錄
2014-8-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-26 01:18 | 只看該作者

巨集運算出現問題(已解決)

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

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

附件檔
...
找到了= ="，用這個程式碼~

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

巨集報表1.rar (24.98 KB)

收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 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 是否存在的程式段


測試.rar (13.01 KB)

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題