※ 引述《m9556 (紫色天平Boy)》之銘言：
: 你先察看Cells(1,3)這一欄的文字,是否有無法用於命名的文字,
: 不確定的話,可以將該cell的文字,用一個純文字檔命名看看,
: 或許可以知道為什麼~~
: 建議 sheetname =cstr(Cells(1, j)) <<這樣改
: 我的拙見~~參考看看~~
: ※ 引述《yaochi (ddd)》之銘言：
: : 請教一下各位
: : 我想要依照儲存格的名稱 命名新的分頁
: : 分別是 位址 Cells(1,2) Cells(1,3) Cells(1,4) ............
: : 寫了一段主體程式如下
: : 在 j=2 (第一次回圈) 還正常 但是到 j=3 的時候
: : 就會卡在 ### 那一行 錯誤碼 1004 不知道原因為何
: : 請高手指導一下 感謝
: : Sub 新增分頁()
: : Dim sheetname As String
: : Dim j As Integer
: : For j = 2 To 4
: : sheetname = Cells(1, j) ###
MsgBox "sheetname= " & sheetname
: : With Worksheets.Add
: : .Name = sheetname
: : End With
: : Next j
: : End Sub
我在 sheetname 後加一行 MsgBox "sheetname= " & sheetname
當 j=3 的時候 讀不到sheetname 而 Cells(1,3) 的值
為 bbbbbb 之類的純字串 並無 /.% ...等 特殊符號
將 Cells(1,j) 改為 CStr(Cells(1,j)) 依然無效
請高手幫幫忙 感謝....
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.121.227.123