Excel的VBA - 引用该超链接

让我描述我的情况的小区，Excel的VBA - 引用该超链接

基本上，是名“测试”包含文字叫我点击持有的超链接标识的小区。我想引用这个单元格及其超链接到另一个单元格。

如： - 小区标识名称：测试名称：点击我超链接：www.google.com

在这里，我想引用测试到另一个细胞以其超链接沿PS =测试只给出了值细胞标识符（点击我）但我想要“点击我的超链接”。

这可能吗？

在此先感谢

Link

来源

2016-04-28 Shashank L

据我了解这个问题，这应该是可能的。尽管如此，这个网站如果不是免费的代码写作服务。然而，我们渴望用**代码来帮助程序员（和有志之士）。请阅读[我如何提出一个好问题]（http://stackoverflow.com/help/how-to-ask）的帮助主题，以及如何创建[最小，完整和可验证示例]（http ：//stackoverflow.com/help/mcve）。之后，请用您迄今编写的VBA代码更新您的问题，以完成您希望实现的任务。 – Ralph

谢谢。我是这个社区的新手。让我快速浏览一下这些链接，使其成为一个更好的问卷。 –

你能解释一下吗？我无法获得上下文。 –

试试这个：

Sub CopyHyperlinks() 
    Dim Source As Range 
    Dim Destination As Range 
    Dim SearchRange As Range 

    Set SearchRange = Sheets(1).Range("A1:A5") '---> set your range here 
    Set Source = SearchRange(1, 1) 
    Set Destination = Sheets(1).Range("B1") '---> range will be copied here 

    For Each Source In SearchRange 
     If Source.Hyperlinks.Count > 0 Then 
      Destination.Hyperlinks.Add Destination, _ 
       Source.Hyperlinks(1).Address, , , Source.Text 
     End If 
     Set Destination = Destination(2, 1) 
    Next Source 
End Sub

从here得到这个。

来源

2016-04-28 11:36:09 Mrig

Excel的VBA - 引用该超链接

回答

相关问题