Redefinir um hiperlink no Excel

Question

Então, quando você clica em um hiperlink no Excel, a fonte vai de azul a roxo,

Como o Excel sabe quando um link foi clicado?

E, em segundo lugar, como posso redefini-lo para que ele retorne ao azul (sem salvar e fechar, etc.)

Meushiperlinkssãofeitosusandoafórmula"como abaixo:

=HYPERLINK("http://api.wunderground.com/api/eec4c24fa3e74d09/history_20171110/q/"&F675&"/"&C675&".json")

Isso permite que eles sejam dinâmicos, mas, uma vez clicado, ele fica roxo mesmo se eu alterar os valores em F675 ou C675

    

Answer 1

Em seguimento do comentário de @ pat2015

Eu usei o VBA para redefinir cada hiperlink:

Sub ResetHyper()

'   Select HyperLinks
    Range("H2").Select
    Range(Selection, Selection.End(xlDown)).Select

'   Clear Current HyperLink
    Selection.ClearContents

'   Rebuild HyperLink
    ActiveCell.FormulaR1C1 = _
        "=HYPERLINK(""http://api.wunderground.com/api/eec4c24fa3e74d09/history_20171110/q/""&RC[-2]&""/""&RC[-5]&"".json"")"

'   Select and Copy Down
    Range("H2").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("H2:H750")
    Range("H2:H750").Select

End Sub

    

Answer 2

Isso "redefinirá" cada célula que contém um hiperlink (hiperlink do tipo de fórmula) :

Sub HyperResetter()
    Dim r As Range, f As String

    For Each r In Cells.SpecialCells(xlCellTypeFormulas)
        f = r.Formula
        If InStr(1, f, "=HYPERLINK") > 0 Then
            r.Clear
            r.Formula = f
        End If
    Next r
End Sub

A cor do texto será corrigida, mas outra formatação especial também será redefinida.