如何一次设置很多HYPERLINK

罗生门

问题:一个工作簿有30多个表,现在我想建立一个目录,上面显示各个表名,然后设置超级键连,使得目录上的表名可以直接跳转到那个工作表.

解决方案:请大家想想,我现在只能使用VBA把所有的表名一次列出来。

sub printname()

dim i as integer

for i=2 to sheets.count

sheets(1).cells(i-1,1).value=sheets(i).name

next i

end sub

然后录制了一个超级连接的宏，发现EXCEL是这么设计的

range("a1").select

activesheet.hyperlink.add anchor:=selection,subaddress:=***,texttodisplay:=***

不知道怎么改进，才可以快速解决这个问题。

实际上，我觉得RANGE对象有个缺点就是不利于程序设计，因为里面好象不好设置变量。大家有什么建议，帮忙拉。

罗生门

谢谢你,老鬼,我觉得你名字不COOL,但是又不知道怎么叫你,我用过了,很不错,我是一直固守思维,没想到range("b"&(i-1))这样的用法。呵呵，希望多多帮助。