Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 9. 2. 2018 13:00:10

rohatej
Člen
Registrace: 15. 10. 2013
Příspěvků: 4

hypertextový odkaz zobrazit v buňce

Ahoj, mám tabulku ve které je X hypertext. odkazů (v buňce se zobrazuje třeba... Karel). Potřebuji v tabulce přímo vidět ty linky (anebo je nějak přeexportovat tak, aby byly editovatelné.
Řešil jste někdo podobnou věc?

Offline

#2 9. 2. 2018 15:04:08

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 3,435

Re: hypertextový odkaz zobrazit v buňce

Ano dost často. Dokonce častěji nežli by se zdálo. Jednoduše najeďte kurzorovými šipkami (myší ne) do buňky kde je hypertextový odkaz. Zadejte (znovu přestože tam už je) VLOŽIT > HYPERTEXTOVÝ ODKAZ. No a hned uvidíte v prvním řádku to co hledáte :-)


Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#3 9. 2. 2018 16:09:26

rohatej
Člen
Registrace: 15. 10. 2013
Příspěvků: 4

Re: hypertextový odkaz zobrazit v buňce

To ano. Ale to není to co potřebuj. Ve finále potřebuji vidět v tabulce V BUŇCE jednotlivé linky, které musím hromadně upravit kvůli změně části adresy. Hypertext. odkazy hromadně upravit sami nejdou.

Offline

#4 9. 2. 2018 16:47:09

kabi
Člen
Registrace: 1. 6. 2017
Příspěvků: 167

Re: hypertextový odkaz zobrazit v buňce

Pokud se skutečně jedná o hypertextové odkazy, i ty jdou hromadně upravit pomocí Ctrl+H .
edit: vypadá to, že nejdou, obsah se změní na prostý text. Zkuste makro (upravte si svoje rozsahy a měněné stringy):

Option VBASupport 1
Sub TestZmenaOdkazu
oldpath = "List1"
newpath = "List2"
For i = 1 To 20
novaadresa = Replace(Range("B" & i).Value,oldpath,newpath)
'MsgBox novaadresa
With ActiveSheet 
.Hyperlinks.Add Anchor:=.Range("B" & i), Address:=novaadresa, _
  ScreenTip:="", TextToDisplay:=novaadresa 
End With
Next
End Sub

Editoval kabi (9. 2. 2018 17:55:56)

Offline

#5 9. 2. 2018 18:10:00

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 3,435

Re: hypertextový odkaz zobrazit v buňce

Tedy kabi já takovou zkratku nemám. Nebude ve všech verzích. Dá se asi nastavit ale musela by se najít v okně NÁSTROJE > PŘIZPŮSOBIT > KARTA KLÁVESNICE > OKNO KATEGORIE > OKNO FUNKCE. Toto potom přiřadit - ale pak už je zase jedno ke které klávesové zkratce (kterou lze použít - některé zabírá OS), některou také LO. Ta zkratka musí být nastavena pro Calc - proto jen takové které volbu udrží. Do některých to vůbec nejde nastavit.


     Ale stejně hromadná úprava bude pro stejné odkazy. Pokud tedy nebudou mít odkazy stejné položky změny - nebude to k ničemu. Přes to se to dá také udělat. Právě to dělám. Stáhnu html a ne že kopíruji manuálně. Po jednom udělám to že vystříhnu, nebo smažu TEXT a někdy i NÁZEV (ten má vnitřní význam, takže to změním - pokud tam je). Text vystříhnu a vložím vedle (nejlépe doleva) abych věděl co to bylo - pokud je toho hodně.


     Doprava se rozpakuje URL a tu už lze editovat, nebo načítat makrem ok?

Editoval neutr (9. 2. 2018 18:12:05)


Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#6 10. 2. 2018 08:19:23

kabi
Člen
Registrace: 1. 6. 2017
Příspěvků: 167

Re: hypertextový odkaz zobrazit v buňce

to Ctrl+H je standardní Najít a nahradit, zkoušel jsem to na svých hypertextových odkazech, ale nevšiml jsem si, že se hypertext změnil po nahrazení na prostý text, proto ten edit.
Rohatej píše, že potřebuje změnit část adresy (cesty), k tomu je to makro vhodné. Je v něm použita funkce Replace, stačí tedy, když do proměnných zadá původní měněný text (původní část cesty) a požadovanou novou část.
Příp. je možné jenom hromadně nahradit zobrazený text skutečnými odkazy, toto ale funguje jen v Excelu (v LO není pro vba Hyperlinks.Address podporované):

Sub TestZobrazOdkazy()
For i = 1 To 10
adresa = List1.Cells(i, 1).Hyperlinks(1).Address
With ActiveSheet
.Hyperlinks.Add Anchor:=.Range("A" & i), Address:=adresa, _
  ScreenTip:="", TextToDisplay:=adresa
End With
Next
End Sub

Editoval kabi (10. 2. 2018 09:00:47)

Offline

#7 10. 2. 2018 08:47:06

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 3,435

Re: hypertextový odkaz zobrazit v buňce

Kabi:
     Já teď dělám na jiné záležitosti. Ale To co požaduje autor je sice na makro ale jistě ne na VBA Support. Já mám, nebo vím kde rychle najít co je třeba.


     V podstatě jde o to najít a nacpat do sloupce všechny hyperlinky protože stažená stránka vypadá hrozně - takže najít a nakopírovat do nového listu hezky pod sebe do sloupce B. Následně makrem vystříhnout z property TEXT do sloupce A. Změnit obsah adres (to je potřeba například pro webmastery při přechodu k jinému hostingu) a následně vrátit do odkazu TEXT, nebo zadat jiný.
     Finální operací je pak buď vrácení opravených hyperlinků do původního umístění (přepis), nebo zabudování do nové stránky a podobné vychytávky. Když by vznikl konkrétní požadavek postavím to jako rozšíření, nebo jen jako šablonu ap.


     Takže jestli se ozvou zájemci o takovou funkcionalitu, ať vytvoří nové vlákno do kterého se mohou přihlásit i další kteří popíší co by potřebovali oni. Dnes se k tomu nedostanu. Ale když se objeví takový příspěvek budu reagovat a začnu v brzké době pracovat na takovém projektu.


     Já osobně to makrem nedělám, protože jsem osobně na Wordpressu a sem tam někdy jdu něco upravit. Víc jak desítku jsem nikdy neupravoval a tak to dělám ručně.

Editoval neutr (10. 2. 2018 08:48:51)


Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

Zápatí