[已解决]请教循环建立工作表过程中创建名称的语句怎么写？

philobj

附件VBA中以i做变量循环建立一系列工作表，工作表名称为i，然后在一系列表中创建名称，名字分别为mydate1，mydate2，mydate3等等，工作表中表示mydate1为=offset(1!$A$2,1!$B$1,0,1!$B$2,1),请高手看下代码 ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _
            "=OFFSET(i!R2C1,i!R1C2,0,i!R2C2,1)"，运行后mydate1实际为=OFFSET(i!$A$2,i!$B$1,0,i!$B$2,1)，请指教该怎么写这句代码，谢谢！

名称.rar (16.47 KB, 下载次数: 1)

2013-7-29 22:14 上传

点击文件名下载附件

1. Sub tubiao()For i = 1 To 212   Worksheets.Add(after:=Worksheets(Sheets.Count)).Name = i    ActiveSheet.Range("B1") = 10    ActiveSheet.Range("B2") = 100    ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _            "=OFFSET(i!R2C1,i!R1C2,0,i!R2C2,1)"Next iEnd Sub

复制代码

最佳答案

月排行榜 / 总排行榜

suye1010

2013-7-29 23:58

ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _
            "=OFFSET(i!R2C1,i!R1C2,0,i!R2C2,1)"
修改为
ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _
            "=OFFSET("&i&"!R2C1,"&i&"!R1C2,0,"&i&"!R2C2,1)"

跳转到最佳答案楼层

suye1010

ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _
            "=OFFSET(i!R2C1,i!R1C2,0,i!R2C2,1)"
修改为
ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _
            "=OFFSET("&i&"!R2C1,"&i&"!R1C2,0,"&i&"!R2C2,1)"

adders

ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _
            "=OFFSET(i!R2C1,i!R1C2,0,i!R2C2,1)"

改为:

ActiveWorkbook.Names.Add Name:="mydate" & i, RefersToR1C1:= _
            "=OFFSET(" & ActiveSheet.Name & "!R2C1," & ActiveSheet.Name & "!R1C2,0," & ActiveSheet.Name & "!R2C2,1)"

philobj

谢谢版主及楼上