Odkaz na hypertextový odkaz Vyřešeno

[Toomicek]

Jak napovídá název potřebuji se odkázat na buňku v které je hypertextový odkaz stránku, ale aby se mi na druhém listě objevil i ten odkaz.

Jednoduše: chci buňku A2 na listu1 ve které je odkaz na www.pc-help.cz jenže když dám =List1!B2 tak se nezkopiruje odkaz ale jen text.

Nějaký tipy? Nechci používat makra :)

[Reklama]

[cmuch]

Tak tam dej ten hypertextový odkaz hypertextovým odkazem.

Kód: Vybrat vše

=HYPERTEXTOVÝ.ODKAZ(List1!B2)

[guest]

"Tak tam dej ten hypertextový odkaz hypertextovým odkazem."

Tak snadné to není. Aby to fungovalo, musí být ve druhém parametru hypertextové funkce ve zdroji výslovně uvedeno "http://", což je na houby.

Navrhuji jít cestou přes definovaný název (pojmenovaný vzorec, nejlépe řečeno pojmenovanou řetězcovou konstantu) - viz obrázek.

Má to jeden malý háček. Znak "-" nesmí být uveden v názvu (jakožto i pár dalších znaků), takže jsem si zde pomohl symbolem pod ALT+0150 na numerické klávesnici. Nemusíte se tím ale zabývat, prostě název může být PCHelp a v buňce zobrazíte cokoliv.

Hypertextový odkaz má pak vždy stejnou podobu a odvolává se na definovaný název.

[cmuch]

Zkoušel jsem i odkazy na nějaké soubory na HDD a také to šlape.
Třeba jsem jen nenarazil na stav kdy to nebude šlapat.

[guest]

Příklad na webovou adresu, kde druhý parametr funkce neobsahuje http:// a na něj se odkazující funkční hypertextový odkaz...

[cmuch]

No jo když se dá do buňky pouze www.pc-help.cz tak to nejde přes hypertextový odkaz,
ale pokud se dá do buňky hypertextový odkaz www.pc-help.cz tak pak to lze přes ten hypertextový odkaz

[Toomicek]

Tak jsem zkoušel cestu přes hypertextový.odkaz, ale hízí to chybu (potřebuji teď otevřít složku <-- změna zadání od šéfa).

Mám v originální buňce kde odkaz funguje jak má

Kód: Vybrat vše

=HYPERTEXTOVÝ.ODKAZ("'C':\Users\Tomicek\Desktop\Složka";"Složka")

a v buňce kterou chci aby se an tuhle odkazovala

Kód: Vybrat vše

=HYPERTEXTOVÝ.ODKAZ("'T5";"Složka")

ale hází to chybu Nelze otevřít zadaný soubor

[guest]

No jo no chlapy, komu není rady, tomu není pomoci POKUD V DRUHÉM PARAMETRU FUNKCE VE ZDROJI NENÍ RELEVANTNÍ ODKAZ, TAK VÁM TO FUNGOVAT NEBUDE.

P. S. Ten apostrof, resp. jednoduché uvozovky u písmenka disku jsou bezpředmětné. Mají smysl tam, kde se vyskytuje v cestě (řetězci) mezera.

[cmuch]

Pokud by si chtěl přeci jen makra,
tak tady je fce, vlož do modulu ve VBA

Kód: Vybrat vše

Function HLink(rng As Range) As String
  Dim HypLink As String
  'extract link from hyperlink - posted by Cmuch
  If rng.Hyperlinks.Count Then
    HLink = rng.Hyperlinks.Item(1).Address
  Else
    HypLink = rng.FormulaArray
    HLink = Mid(HypLink, InStr(1, HypLink, "(") + 2, InStr(1, HypLink, ",") - InStr(1, HypLink, "(") - 3)
  End If
End Function

V excelu pak použij takto

Kód: Vybrat vše

=HYPERTEXTOVÝ.ODKAZ(HLink(A1);A1)

Popřípadě jiná makra.

[Toomicek]

No jo no chlapy, komu není rady, tomu není pomoci POKUD V DRUHÉM PARAMETRU FUNKCE VE ZDROJI NENÍ RELEVANTNÍ ODKAZ, TAK VÁM TO FUNGOVAT NEBUDE.

P. S. Ten apostrof, resp. jednoduché uvozovky u písmenka disku jsou bezpředmětné. Mají smysl tam, kde se vyskytuje v cestě (řetězci) mezera.

Jak to myslíš s tím relevantním odkazem?

To Cmuch: Díky pokud nebude jiná možnost použiji tvé řešení :) Nechci vedení předkládat verzi kde by museli řešit "povolení maker" :)