将活动单元复制到已清除的文本框中并保留超链接

Question

目标

1. 我正在尝试制作一个宏，该宏将复制Option Explicit Private Sub TextBox1_Change() End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Copy Sheet1.TextBox1.Paste End Sub 并将该单元格的内容粘贴到文本框中。

2. 在添加新值以及保持原始超链接源之前，我还需要它清除文本框。

---

上下文

我有大量的项目列表，这些项目具有指向各个网页的超链接。我最终想要的是让用户使用Ctrl + F功能搜索特定项目，然后将该项目及其超链接复制到工作表顶部的文本框中。

然后，一旦搜索到新项目，它将清除文本框并将新项目复制到其中。

代码

它所做的只是将活动单元格复制到文本框中。我不会事先清除该框或复制超链接。

spring.profiles.include

Answer 1

如果您在超链接地址后面，请在文本框中使用：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheet1.TextBox1 = Target.Hyperlinks(1).Address
End Sub

如果您要输入文本，但是希望在按下按钮（或文本）时触发超链接-我不确定是否可以。我想也许您可以使用OnAction引起超链接触发..但是我们需要更多信息。这是工作表上的ActiveX文本框吗？