Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4878|回复: 10

[已解决]如何在新建子页面时自动创建超链。

[复制链接]
发表于 2011-9-30 16:17 | 显示全部楼层 |阅读模式

如何在 新建子页面的时候,自动建立回到(目录)位置的超级链接???

最佳答案
2011-10-1 14:02
超级链接02h-056.rar (12.58 KB, 下载次数: 16)

超级链接02.rar

10.65 KB, 下载次数: 7

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-9-30 20:00 | 显示全部楼层
  1. Private Sub Workbook_NewSheet(ByVal Sh As Object)
  2.     Dim r
  3.     With Sheets(1)
  4.         r = .Range("e65536").End(xlUp).Row + 1
  5.         If r > 4 Then
  6.             .Cells(r, "e") = ActiveSheet.Name
  7.         End If
  8.     End With
  9. End Sub
复制代码
超级链接02b.rar (11.76 KB, 下载次数: 7)
回复

使用道具 举报

 楼主| 发表于 2011-10-1 09:04 | 显示全部楼层
回复 爱疯 的帖子

爱疯老师,能否在(目录)生成链接的同时,
在新增加的(子页面)生成回到(目录)的链接。

链接在子页面的A2单元格
回复

使用道具 举报

发表于 2011-10-1 10:21 | 显示全部楼层
超级链接02c.rar (12.08 KB, 下载次数: 4)
回复

使用道具 举报

 楼主| 发表于 2011-10-1 11:54 | 显示全部楼层
回复 爱疯 的帖子

大侠,发现一个问题

就是保存表格后,再从新打开表格,点击A2位置,发现链接会失效。



回复

使用道具 举报

发表于 2011-10-1 12:20 | 显示全部楼层
本帖最后由 爱疯 于 2011-10-1 12:25 编辑

除在Workbook_NewSheet的时候以外,现在又新增在:
Workbook_Open
Worksheet_Activate
的时候,实例化工作表,以解决5楼问题。


这样修改后,存在一个问题:sheet1,sheet2 .... 等新建工作表链接有效,而之前工作表sheet27,sheet28等的链接无效(虽然删除之前工作表即可解决,但我还是不清楚为什么)。
很奇怪,请高手指点一下{:091:}
超级链接02e.rar (12.75 KB, 下载次数: 1)
回复

使用道具 举报

发表于 2011-10-1 13:04 | 显示全部楼层
本帖最后由 爱疯 于 2011-10-1 13:06 编辑

超级链接02h.rar (11.63 KB, 下载次数: 1)
回复

使用道具 举报

 楼主| 发表于 2011-10-1 13:42 | 显示全部楼层
回复 爱疯 的帖子

大侠看看这样会不会更好。
在E5输入任意字,D列就会生成目录
请先在红色线框区输入任意字看看效果


超级链接02h-055.rar (13.2 KB, 下载次数: 2)
回复

使用道具 举报

发表于 2011-10-1 14:02 | 显示全部楼层    本楼为最佳答案   
超级链接02h-056.rar (12.58 KB, 下载次数: 16)
回复

使用道具 举报

 楼主| 发表于 2011-10-1 14:19 | 显示全部楼层
回复 爱疯 的帖子

谢谢大侠~!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:56 , Processed in 0.467331 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表