批量建立超链接

tsgnhj

超链接.rar (1.44 KB, 下载次数: 25)

2013-6-16 16:33 上传

点击文件名下载附件

我做了一个工作薄，第一张工作表是目录，内容是把人名按姓的首字母归类，比如A开头的就都放到A列了，然后再按目录里的名字建工作表，一个名字对应一个工作表，然后再建立超链接，点击一下目录里的人名，就直接转到对应的那个工作表的A1单元格。比如点击“阿三”，就直接跳转到“阿三”工作表的A1单元格了。
可是工作表太多，能不能批量建立呀，目录的人名和对应的工作表名都是一样的。请大侠们帮帮忙啦。

smhf_6

Sub xx()

For i = 2 To ThisWorkbook.Sheets.Count
ss1 = Sheets(i).Name & "!A1"
ss2 = Sheets(i).Name
    Cells(i - 1, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=ss1, TextToDisplay:=ss2
Next
End Sub

为简化代码，目录就放在第一份，不作判断了

LangQueS

仅供参考：

[分享]★链接目录★        http://club.excelhome.net/thread-303287-1-1.html

关于使用Excel管理数据的基本方法请参考：
  
★Excel数据管理的一般规律★    http://club.excelhome.net/thread-287461-1-1.html

tsgnhj

谢谢楼上两位，但偶的能力有限，都看不懂。。。。