|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub Hyperlinkadd()
- Dim sht As Worksheet, i&, strShtName$
- Application.DisplayAlerts = False
- Columns(1).ClearContents
- '清空A列数据
- Cells(1, 1) = "目录"
- '第一个单元格写入字符串"目录"
- i = 1
- '将i的初值设置为1.
- For Each sht In Worksheets
- '循环当前工作簿的每个工作表
- strShtName = sht.Name
- If strShtName <> ActiveSheet.Name Then
- '如果sht的名称不是当前工作表的名称则开始在当前工作表建立超链接
- i = i + 1
- '累加i
- ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", SubAddress:="'" & strShtName & "'!a1", TextToDisplay:=strShtName
- '建超链接
- End If
- Next
- Application.DisplayAlerts = True
- End Sub
复制代码 这是我在网上找的。按着自己录制的宏发现在这个代码里 TextToDisplay:=strShtName 可以影响显示的文字。
要如何改才能让它显示成链接工作表指定单元格的内容?
比如工作表名称 sheet1、sheet2,建立了目录超链接后可以显示的是各自工作表A1单元格的内容。
|
|