Копирование активной ячейки в очищенное текстовое поле и сохранение гиперссылки

Question

Цель

1. Я пытаюсь создать макрос, который будет копировать active cell и вставлять содержимое этой ячейки в текстовое поле.

2. Мне также нужно очистить текстовое поле перед добавлением нового значения, а также сохранить исходный источник гиперссылки.

---

Контекст

У меня большой список элементов, которые имеют гиперссылки на различные веб-страницы. В конечном итоге я хочу, чтобы пользователь выполнял поиск определенного элемента, используя функцию Ctrl + F, и элемент копировался с помощью гиперссылки в текстовое поле в верхней части листа.

Затем, после поиска нового предмета, он очистит текстовое поле и скопирует в него новый предмет.

код

Все, что он делает, это копирует активную ячейку в текстовое поле. Я не буду снимать флажок заранее или скопировать гиперссылку.

Option Explicit

Private Sub TextBox1_Change()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Copy
    Sheet1.TextBox1.Paste
End Sub

Answer 1

Если вы после адреса гиперссылки, в текстовом поле просто введите:

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

Если вы после текста, но хотите, чтобы гиперссылка запускалась, когда кнопка (или текст) нажата нажата - я не уверен, возможна ли какая-либо из них. Я думаю, возможно, вы могли бы использовать OnAction, чтобы вызвать гиперссылку ... но нам понадобится больше информации. Это текстовое поле ActiveX на листе?