MS Excel

Téma: hypertextový odkaz

Zaslal/a Lbr76 19.3.2009 20:33

Mám vytvořený dost velký dokument v MS Excel se seznamem filmů.
V 1.buňce mám název filmu s hypertextovým odkazem na stránky csfd, kde je ten film uveden. Jednoduchým kopírováním ze stránek csfd.cz vložen do buňky v excelu.

Existuje nějaká finta jak tento hypertextový odkaz ve formátu např. http://www.csfd.cz/film.php?19838 vypsat do nějaké vedlejší buňky???

Zaslat odpověď >

admin(20.3.2009 11:41)#000395

Finta neexistuje, ale máme tu makra

. Uvedený příklad je pro názvy filmů s hypertextovými odkazy ve sloupci A. Odkaz bude zapsán do vedlejší buňky, tedy sloupce B.

Sub hyperlinky()

Range("A1").Select
For Each h In Worksheets(1).Hyperlinks
ActiveCell.Offset(1, 0).Select
Cells(ActiveCell.Row, ActiveCell.Column + 1) = h.Address
Next

End Subcitovat

Lbr76(22.3.2009 10:33)#000399

jj toto funguje, ale nevím proč na 180.řádku se mi to zastaví a konec. Dál ani ťuk.

jedině asi přepsat to makro od A181, že?citovat

Lbr76(22.3.2009 11:07)#000400

Tak jsem to ještě jednou zkusil vložit do úplně nového sešitu, kde jsem zkopíroval jen do sloupce A seznam filmů (cca 2500 řádků) a tam to projelo celý dokument,
ALE
naprosto chaoticky!!!
příklad název filmu v buňce A565 (Hannibal) hypertextový odkaz na něj (http://www.csfd.cz/film.php?top=&id=8272) není jak bych chtěl v buňce B565, ale je v B432!!! A tak to je v celém sešitě!
A je zajímavé, že ani v prvních řádcích to nesouhlasí

citovat

Lbr76(24.3.2009 20:18)#000403

nakonec mi pomohlo jiné makro:

radek = 1
Do
Range("A" & radek).Select
Selection.Hyperlinks(1).TextToDisplay = Selection.Hyperlinks(1).Address
radek = radek + 1
Loop Until radek = 50

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.