VBA查找匹配的单元格并创建指向这些单元格的超链接
这是我在这个网站上的第一个问题,所以如果我在描述我的问题时做出任何明显的批评,我道歉 我正在做一个参考电子表格,可以用来配置一个软件,我目前正在努力使它尽可能用户友好 我有两个工作表,第一个“Main”是从数据库中提取的,表示软件中屏幕的层次结构。(有效地显示每个屏幕下可以访问的内容) 其中一些屏幕/对象连接到“弹出”窗口,这些弹出窗口也在主表的“O”列中指定 我的第二页“弹出窗口”包含每个弹出窗口的更多细节 我需要的是运行工作表“Main”的“O”列,对于每个包含值的单元格,在工作表“Popup”的“D”列中搜索相同的值,然后创建一个指向结果行(任何列,尽管我一直试图链接到“F”)的超链接 尽管这是试图使这一行代码正常工作时出现的一长串错误中的最新错误 任何帮助都将不胜感激。 大卫。试试这个(试过了,测试过了) 您缺少VBA查找匹配的单元格并创建指向这些单元格的超链接,vba,excel,hyperlink,Vba,Excel,Hyperlink,这是我在这个网站上的第一个问题,所以如果我在描述我的问题时做出任何明显的批评,我道歉 我正在做一个参考电子表格,可以用来配置一个软件,我目前正在努力使它尽可能用户友好 我有两个工作表,第一个“Main”是从数据库中提取的,表示软件中屏幕的层次结构。(有效地显示每个屏幕下可以访问的内容) 其中一些屏幕/对象连接到“弹出”窗口,这些弹出窗口也在主表的“O”列中指定 我的第二页“弹出窗口”包含每个弹出窗口的更多细节 我需要的是运行工作表“Main”的“O”列,对于每个包含值的单元格,在工作表“Popu
地址:=“”
太棒了,它现在可以工作了!非常感谢您的帮助:)
For i = 3 To LastRow
If Cells(i, "O").Value <> "" Then
k = Sheets("Main").Cells(i, "O").Value
c = Application.Match(k, Sheets("Popup").Range("D:D"), 0)
If IsError(c) Then
Else
Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), SubAddress:="Popup!F" & c, TextToDisplay:=k
End If
End If
Next i
Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), SubAddress:="Popup!F" & c, TextToDisplay:=k
Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), _
Address:="", _
SubAddress:="Popup!F" & c, _
TextToDisplay:=k