建立sheet超链接，sheet名存在空格或者符号就提示引用无效

sanmao007 · 发表于 2010-12-13 23:26

提示: 作者被禁止或删除内容自动屏蔽

hhzjxss · 发表于 2010-12-14 00:53

加上红色部分，就行了！Sub 建立目录() Dim r, c, i, b     r = Selection.Row()     c = Selection.Column()     b = InputBox("请问要从第几个sheet开始编制目录: ")     For i = b To Worksheets.Count         Cells(r + i - b, c) = Worksheets(i).Name     Next i     For i = b To Worksheets.Count         t = Cells(r + i - b, c)         Cells(r + i - b, c).Select         ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "'" & Worksheets(i).Name & "'!A1", ScreenTip:="点击进入", TextToDisplay:=t     Next i End
Sub

ada_smile · 发表于 2010-12-14 00:53

来学习了[em04]

hhzjxss · 发表于 2010-12-14 00:55

bbhiox · 发表于 2010-12-14 19:07

学习学习

夹竹桃 · 发表于 2011-7-16 09:38

学习学习在学习

byhdch · 发表于 2011-10-25 22:19

学习学习......

linhanlove1 · 发表于 2012-1-12 14:49

want to know ,学习啊啊啊啊啊啊啊

ayx365 · 发表于 2013-3-22 06:09

学习下

匿名 *发表于 2014-12-28 00:44* · 发表于 2014-12-28 00:44

hhzjxss 发表于 2010-12-14 00:53
加上红色部分，就行了！Sub 建立目录()Dim r, c, i, b    r = Selection.Row() & ...

真是高手，你这个代码可以正确链接到包含特殊名称的工作表，但只能在鼠标选定的单元格位置开始向下生成链接目录，请问怎样改一下代码不让它在鼠标选定单元格生成，而是在指定到某个单元格开始生成链接目录（比如从A1单元开始向下），如能解决就太好了。先谢谢你了！

		自动登录	找回密码
密码			注册

sanmao007 sanmao007 当前离线积分 0 IP卡狗仔卡	发表于 2010-12-13 23:26 \| 显示全部楼层 \|阅读模式工作中常用的Excel函数公式，全印在一张超大鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
sanmao007 sanmao007 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报提升卡置顶卡沉默卡喧嚣卡变色卡抢沙发千斤顶显身卡
	工作中最常用的函数公式，全印在一张超大的鼠标垫上

[VBA] 建立sheet超链接，sheet名存在空格或者符号就提示引用无效

本帖子中包含更多资源