[已解决]求大神帮忙，十万火急！

裸奔天下

小弟在编辑自动创建超链接时出现带括号名称就出现引用无效，如下图：


当名称中有（）时，就出现引用无效，正常的无（）的均可以正常超链接！


源码如下：
Sub 按钮7_Click()
Dim i, j
i = 3
Do While i <= 300 And Sheet4.Cells(i, 1) <> ""
j = Sheet4.Cells(i, 1)
Sheet4.Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
j & "!A1", TextToDisplay:=j
i = i + 1
Loop

End Sub


请知道的大神帮忙！

最佳答案

月排行榜 / 总排行榜

wp8680

2016-11-19 10:50

1. Sub 按钮7_Click()
   
2.     Dim i, j
   
3.     i = 3
   
4.     Do While i <= 300 And Sheet4.Cells(i, 1) <> ""
   
5.         j = Sheet4.Cells(i, 1)
   
6.         Sheet4.Cells(i, 1).Select
   
7.         ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & j & "'!A1", TextToDisplay:=j
   
8.         i = i + 1
   
9.     Loop
   
10. 
    
11. End Sub

复制代码

试试吧，我没有测试

跳转到最佳答案楼层

wp8680

1. Sub 按钮7_Click()
   
2.     Dim i, j
   
3.     i = 3
   
4.     Do While i <= 300 And Sheet4.Cells(i, 1) <> ""
   
5.         j = Sheet4.Cells(i, 1)
   
6.         Sheet4.Cells(i, 1).Select
   
7.         ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & j & "'!A1", TextToDisplay:=j
   
8.         i = i + 1
   
9.     Loop
   
10. 
    
11. End Sub

复制代码

试试吧，我没有测试

裸奔天下

wp8680 发表于 2016-11-19 10:50
试试吧，我没有测试

谢谢！这样就正确了！
      能不能说明下为什么添加两个引号！