Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Hypertextový odkaz v Excelu...

Môžeš použiť nasledovné makro (pred spustením zálohovať):

Sub ReplaceHyperlinks()
    Dim aHyperlink As Hyperlink
    
    For Each aHyperlink In Hyperlinks
        aHyperlink.Range.Formula = "=HYPERLINK(""" & aHyperlink.Address & """,""" & aHyperlink.Range & """)"
        aHyperlink.Delete
    Next aHyperlink
End Sub
Makro nebude fungovať správne v prípade, že máš v texte alebo odkaze úvodzovku (nepravdepodobné). Ak by si tam predsa len nejaké úvodzovky mal, tak stačí doplniť jednoduchý Replace, pomocou ktorého ich zdvojíš.

Problém je, že odkazy pomocou funkcie HYPERLINK vytvorené cez VBA nevyzerajú ako odkazy, aj keď sa tak správajú (nejaký bug). Aby vyzerali ako odkaz, tak musíš Excel prinútiť, aby si myslel, že si to zadal ručne - stačí vyjsť na bunku s odkazom a stlačiť F2 a Enter.

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny