Как изменить переменные в гиперссылке?

Question

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

Этот инструмент предназначен для поиска в Facebook.Переменные - это коды, например, для места или чего-то еще.

Я уже изменил одну переменную, настроив несколько кнопок, но если я хочу изменить вторую, она изменит вторую и не сохранит первуюизменено.

Этот код ничего не делал

Sub VBA_Replace()
'
' Tool Makro

Range("L8") = "Chicago"
Range("L8") = Replace(L8, "Chicago", "Boston")

End Sub

Answer 1

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

Function ReplaceHyperlinkPart(sSearch As String, sReplace As String, sngCell As Range) As Boolean

    Dim oldLink As String
    Dim newLink As String

On Error GoTo EH:

    oldLink = sngCell.Hyperlinks.Item(1).Address
    newLink = Replace(oldLink, sSearch, sReplace)
    sngCell.Hyperlinks.Item(1).Address = newLink
    ReplaceHyperlinkPart = True

    Exit Function

EH:
    ReplaceHyperlinkPart = False

End Function

Вы можете проверить это с помощью

Sub TestIt()
Dim rg As Range
Set rg = Range("L8")
    ReplaceHyperlinkPart "Chicago", "Boston", rg
End Sub