Stránka 1 z 1

Excel - hypertextový odkaz a jeho název

Napsal: 11 lis 2014 13:15
od guesto009
Ahoj, potřebuji poradit.
V Excelu mám v jedné buňce vytvořen hypertextový odkaz s nějakým jménem a potřebovala bych, aby se ve vedlejší buňce zobrazovalo, na co ten hypertextový odkaz odkazuje.

Např. buňka A1 má v sobě hypertextový odkaz na Seznam.cz, ale v buňce mám napsáno třeba Vyhledávač a potřebovala bych, aby se v té vedlejší buňce zobrazilo Seznam.cz

Těch hypertextových odkazů mám spoustu a některé jsou nefunkční či maj v sobě chybu, tak potřebuji vědět na co odkazují a abych to nemusela ručně vypisovat

Re: Excel - hypertextový odkaz a jeho název

Napsal: 11 lis 2014 14:37
od guest
Nejdřív si vyjasněme jednu věc - jak chcete ověřovat funkčnost odkazů? I když budou vizuálně v pořádku, pokud se jedná o složitější odkaz, nemusí být už v danou chvíli platný.

Hyperlink funkcí
- zobrazit vzorce (CTRL+,), zkopírovat jinam, ořezat od znaku = a dalšího balastu (prosté nahrazení nebo regulární výrazy, v Excelu pak třeba přes Data / Text do sloupců) a vrátit do dalšího sloupce Excelu jako text

Hyperlink z průvodce
- uložit sešit jako webovou stránku a buď to vysekat ze zdrojového kódu HTML, nebo stránku někam nahrát a nasadit na ni rovnou nasadit nějaký "web link validator, link checker", třeba http://validator.w3.org/checklink (tuto stránku testoval 80 s rychlostí cca 1 odkaz za sekundu).

Lze to samozřejmě vyřešit i s pomocí VBA, ale podstatný pořád bude ten validátor, text vám nedá nic.

Re: Excel - hypertextový odkaz a jeho název

Napsal: 12 lis 2014 06:52
od eLCHa
Odpověď xlnc jsem četl, ale nezkoumal, ta část s tím validátorem může být pro Vás snadným řešením. Ale moc jsem nepochopil to s tím zobrazením vzorců... Je však možné, že chyba je ve mně, protože už jsem dnes nepochopil 3. příspěvek (já věřím, že to je špatným vyjadřováním tazatelů, ale kdo ví ;) )

Nicméně, kdysi jsem něco řešil a tam to nešlo jinak než vlastní funkcí, tak ji sem přikládám, třeba to pomůže.

Kód: Vybrat vše

Function fncGetHyperlinkURL(rCell As Range) As String
On Error Resume Next
fncGetHyperlinkURL = rCell.Hyperlinks(1).Address
On Error GoTo 0
End Function