作者yaochi (ddd)
看板Visual_Basic
标题[VBA ] EXCEL 新增分页命名的问题
时间Fri Oct 19 20:48:12 2007
请教一下各位
我想要依照储存格的名称 命名新的分页
分别是 位址 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) ###
With Worksheets.Add
.Name = sheetname
End With
Next j
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.121.227.123
1F：→ yaochi:还是有比较聪明好的写法吗???? 10/19 20:52