ScreenTipmacros

我正试图写一个macros

• find每个超链接，
• 复制超链接所embedded的单词的名称，然后制作ScreenTip

目前我必须为每个细胞做。 如何更新我的工作簿中的每个超链接？

 Sub ScreenTip() On Error Resume Next ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 2), Address:="", ScreenTip:=CStr(Cells(8, 2).Value) ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 3), Address:="", ScreenTip:=CStr(Cells(8, 3).Value) ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 4), Address:="", ScreenTip:=CStr(Cells(8, 4).Value) ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 5), Address:="", ScreenTip:=CStr(Cells(8, 5).Value) ActiveSheet.Hyperlinks.Add Anchor:=Cells(8, 6), Address:="", ScreenTip:=CStr(Cells(8, 6).Value) `..... etc End Sub 

Answer 1

这将遍历活动工作表上的所有现有超链接，并设置其ScreenTip属性

 Sub Demo() Dim hl As Hyperlink For Each hl In ActiveSheet.Hyperlinks hl.ScreenTip = CStr(hl.Range.Value) Next End Sub 

Answer 2

根据你的问题：

 Dim hy As Hyperlink Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets For Each hy In ws.Hyperlinks hy.ScreenTip = CStr(hy.Range.Value2) Next Next