我要在一列单元格中,每一行对应一个工作表进行超链接,如何用VBA实现,谢谢,我的OFFICE是2003版的。
dim i as range‘是设置超联的单元格
dim h as string‘是设置超联的单元格显示的内容
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _SubAddress:=i, TextToDisplay:=h
这段不会用,放入代码段没办法运行。
Sub sheetName() 'activesheet 从a1开始每行链接工作表
Dim i As Range '是设置超联的单元格
Dim h As String '是设置超联的单元格显示的内容
Dim a As Integer
With ActiveSheet
Set i = [a1] 'output cell
For a = 1 To ThisWorkbook.Worksheets.Count
h = Worksheets(a).Name
i.Hyperlinks.Add Anchor:=i, Address:="", SubAddress:=Worksheets(a).Name & "!a1", TextToDisplay:=h
Set i = i.Offset(1, 0)
Next a
End With
End Sub
参考资料:http://wenku.baidu.com/view/98566337ee06eff9aef80795.html