VBA查找匹配的单元格并创build超链接

这是我在这个网站上的第一个问题,所以我很抱歉,如果我在我的问题描述中做出任何明显的遗漏。

我正在参考电子表格,可以用来configuration一个软件,我目前正在努力使其尽可能用户友好。

我有两个工作表,第一个“Main”从数据库中拉出,代表软件中的一个屏幕层次结构。 (在每个屏幕下有效显示您可以访问的内容)。

这些屏幕/对象中的一些绑定到“popup”窗口中,这些popup窗口也在主表格“O”列中指定。

我的第二张纸,“popup”包含每个popup窗口的更多细节。

我需要的是运行表“主”的列“O”,并且对于每个单元格包含一个值,以在“popup”的“D”列中search相同的值,然后创build超链接到结果行任何列,虽然我一直试图链接到“F”)。

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 

对于上面的代码,我目前正在收到错误'运行时错误'450':错误的参数数量或无效的属性分配'在这一行:

 Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), SubAddress:="Popup!F" & c, TextToDisplay:=k 

尽pipe这是试图让这一行代码正常工作时各种错误的最新列表。

任何帮助将不胜感激。 大卫。

试试这个( 试验和testing

你失踪了Address:=""

 Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), _ Address:="", _ SubAddress:="Popup!F" & c, _ TextToDisplay:=k