烦请大神帮忙指点——工作簿内单元格超链接

xp5360241

各位大神，如附件所示，我想实现如下功能——在sheet1中A2中输入内容，点击搜索将搜索结果列出，并生成超链接，链接到目标单元格。目前就差超链接这一步了，一直报错。请大神帮忙调试下，感激！

红军2023

已修改

1. Sub searchFile()
   
2.     Dim mySearch As String, x As Integer, y As Integer
   
3.     Range("A4:A100").ClearContents
   
4.     mySearch = Cells(2, 1)
   
5.     If mySearch = "" Then MsgBox "请输入要查找的内容": Exit Sub
   
6.     For x = 2 To Sheet2.Cells(Rows.Count, 2).End(xlUp).Row
   
7.         If InStr(Sheet2.Cells(x, 3), mySearch) Then
   
8.             y = y + 1
   
9.             Sheet1.Cells(y + 3, 1) = Sheet2.Cells(x, 3) & "|" & x
   
10.             Sheet1.Cells(y + 3, 1).Select
    
11.             With Selection
    
12.                 .Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="常用命令汇总!" & "C" & x
    
13.                 .Font.Name = "宋体"
    
14.                 .Font.Size = 11
    
15.                 .HorizontalAlignment = xlHAlignCenter
    
16.                 .VerticalAlignment = xlVAlignCenter
    
17.             End With
    
18.         End If
    
19.     Next
    
20. 
    
21. End Sub

复制代码

xp5360241

红军2023 发表于 2024-1-14 17:11
已修改

感谢大神的指导！这个超链接的语法有什么讲究吗，大神，请问下有没有超链接相关的解读文件参考下？

红军2023

xp5360241 发表于 2024-1-15 08:03
感谢大神的指导！这个超链接的语法有什么讲究吗，大神，请问下有没有超链接相关的解读文件参考下？

工作表内单元格的表示方式和VBA内的表示方式不一样