推 taurus1981:成功了，不過在增加第15個工作表時跳出一個錯誤 09/09 00:36
→ taurus1981:顯示400 這是什麼意思? 09/09 00:36
→ bulldog:ㄜ 這我也不清楚ㄝ 有詳細一點的錯誤訊息嗎? 09/09 00:49
推 taurus1981:嗯我找出原因了，有相同的名字所以會出現錯誤 09/09 07:36
※ 引述《taurus1981 (渴望成為風)》之銘言：
: 標題: [算表] VBA新增大量sheet並命名的問題
: 時間: Wed Sep 8 23:11:32 2010
:
: 軟體:office
:
: 版本:2003
:
: 我想要在EXCEL裡面新增大量的sheet並命名
:
: 我爬過前面的文，只是前面的命名是用數字
:
: 如果我要用中文有辦法嗎?
:
: 例如我要新增100筆sheet，然後再新增的同時會命名
:
: 鴻海、台積電、宏達電。。。等等100筆
:
: 我的想法是再另一個sheetA貼上這100筆的中文
:
: 然後用vba新增大量sheet的函式裡面，命名的地方讓VBA能夠去sheetA抓名字
:
:
: 還是說只能一筆一筆逐一改?
:
:
:
: --
: ※ 發信站: 批踢踢實業坊(ptt.cc)
: ◆ From: 118.161.134.224
: 推 bulldog:新增shee2在令sheet2.name = sheet1.A1 假設名字在A欄 09/08 23:17
: → taurus1981:弄不出來，忘了說我不會程式@@ 09/08 23:39
我假設你的中文名稱在第一個工作表的A1:A100
試試這樣吧
Sub AddSheet()
Dim I as Integer
For I = 1 To 100
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Range("A" & I)
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.70.219.150