[已解决]修改超链接 并将超链接代码解释下

ls

Sub mulu()
    Range("b2:B600").ClearContents
    Dim sht As Worksheet, i As Integer
    i = 2
    For Each sht In Worksheets
    'Cells(i, "A") = i - 1
        Cells(i, "B").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sht.Name & "!A1", TextToDisplay:=sht.Name
        i = i + 1
    Next sht
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-8-19 16:03

1. 
   
2. sub mulu()
   
3.      Range("b2:B600").ClearContents
   
4.      Dim sht As Worksheet, i As Integer
   
5.      i = 2
   
6.      For Each sht In Worksheets
   
7.      'Cells(i, "A") = i - 1
   
8.          Cells(i, "B").Select
   
9.          ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sht.Name & "'" & "!A1", TextToDisplay:=sht.Name
   
10.          Debug.Print sht.Name & "!A1"
    
11.          i = i + 1
    
12.      Next sht
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

向指定的区域或图形添加超链接。返回 Hyperlink 对象。

expression.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
expression      必需。该表达式返回一个 Hyperlinks 对象。

Anchor      Object 类型，必需。超链接的位置。可为 Range 对象或 Shape 对象。

Address      String 类型，必需。超链接的地址。

SubAddress      Variant 类型，可选。超链接的子地址。

ScreenTip      Variant 类型，可选。当鼠标指针停留在超链接上时所显示的屏幕提示。

TextToDisplay      Variant 类型，可选。要显示的超链接的文本。

说明
指定 TextToDisplay 参数时，文本必须是字符串。

hwc2ycy

1. 
   
2. sub mulu()
   
3.      Range("b2:B600").ClearContents
   
4.      Dim sht As Worksheet, i As Integer
   
5.      i = 2
   
6.      For Each sht In Worksheets
   
7.      'Cells(i, "A") = i - 1
   
8.          Cells(i, "B").Select
   
9.          ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sht.Name & "'" & "!A1", TextToDisplay:=sht.Name
   
10.          Debug.Print sht.Name & "!A1"
    
11.          i = i + 1
    
12.      Next sht
    
13. End Sub
    

复制代码

hwc2ycy

在你的工作表名两端用'括上就好了。

估计是非字母和数字符号导致的问题。

hwc2ycy

刚开始，我也没细注意工作表名的问题，后来改了个带（号的也注意到问题。自己录了个宏，发现手工加的工作表名用单引号括住了。

qqyyh