作者yaochi (ddd)
看板Visual_Basic
标题Re: [VBA ] EXCEL 新增分页命名的问题
时间Fri Oct 19 22:37:36 2007
※ 引述《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