使用 VBA 将超链接字段写入循环内的另一个工作表范围

Posted 2023-03-25

【中文标题】使用 VBA 将超链接字段写入循环内的另一个工作表范围

【英文标题】：Writing a hyperlink field to another sheets range within a loop using VBA

【发布时间】：2021-12-07 13:48:46

【问题描述】：

我目前正在尝试获取用于将超链接写入现有工作表上的范围的 VBA 语法。我有我认为应该工作的代码，但我似乎无法让它按应有的方式工作。对此的任何帮助都会很棒。下面是我不明白为什么它不起作用的代码。

Sheets("EmailDataOutput").Hyperlinks.Add anchor:=Sheets("EmailDataOutput").Range("h" & outputrow), Address:="https://rocketsutoledo.sharepoint.com/sites/pwa/Project%20Detail%20Pages/Schedule.aspx?ProjUid=" & projid, ScreenTip:="", TexToDisplay:="Click here to go to Project"

提前感谢您的帮助，

雅各布

【问题讨论】：

运行代码有没有报错？如果是这样，请检查outputrow 在错误停止时显示的内容并将光标移到它上面。如果没有，并且单击时它只是不跟随超链接，您是否收到任何错误（消息）。尝试手动访问讨论中的站点，是否有效？我的意思是使用上述代码中的projid...

【参考方案1】：

注意：此代码中有两个变量outputrow 和projid，您应该为它们赋值。

With Worksheets("EmailDataOutput") 
 .Hyperlinks.Add Anchor:=.Range("h" & outputrow), _ 
 Address:="https://rocketsutoledo.sharepoint.com/sites/pwa/Project%20Detail%20Pages/Schedule.aspx?ProjUid=" & projid, _  
 ScreenTip:="", _
 TextToDisplay:="Click here to go to Project" 
End With

【讨论】：

这正是我所需要的！我能够插入此代码，它在我的循环中就像一个魅力！十分感谢你的帮助。我真的很感激。

欢迎您@Jacob.b20。因此，您可以将此答案标记为“已接受”。 ***.com/help/someone-answers