Stránka 1 z 1
Makro na vložení hypertextového odkazu
Napsal: 12 črc 2010 18:42
od mmmartin
Řeším problém, jak pomocí makra v EXCELu vložit do aktuálně zvolené buňky písmeno x a tomuto písmenu přiřadit hypertextový odkaz. Vzhledem k tomu, že cíl hypertextového odkazu bude pokaždé jiný, potřebuji, aby makro "skončilo" v okamžiku, kdy se otevře okno Vložit hypertextový odkaz, ve kterém má být cíl odkazu vybrán. Dál už by se pokračovalo"ručně", tj. proklikáním se k cíli odkazu a potvrzením kliknutím na OK.
// Opraven překlep v názvu tématu
// Přesunuto do správné sekce - Kancelářské balíky
// Styď se, moderátore !!! 
// mike007
Re: Mkro na vložení hypertextového odkazu
Napsal: 13 črc 2010 20:28
od mike007
Třeba takto:
Kód: Vybrat vše
Sub vlozit_odkaz()
ActiveCell = "x"
odkaz = InputBox("Zadej odkaz", "Odkaz", "http://")
ActiveCell.Hyperlinks.Add ActiveCell, odkaz
End Sub
Re: Makro na vložení hypertextového odkazu
Napsal: 13 črc 2010 22:34
od mmmartin
Re: Makro na vložení hypertextového odkazu
Napsal: 14 črc 2010 21:01
od mmmartin
Ještě jednou se vracím k problému: makro funguje, ale okno, které se otevře, mi dává jenom možnost napsat cíl odkazu z klávesnice. Šlo by způsob vkládání změnit tak, aby bylo možné se k cíli "proklikat" ?
PS: ještě se trochu stydím...
Re: Makro na vložení hypertextového odkazu
Napsal: 14 črc 2010 21:33
od mike007
Nestyď se furt a raděj mi pořádně vysvětli odkud a jak chceš odkaz tahat
Re: Makro na vložení hypertextového odkazu
Napsal: 14 črc 2010 22:38
od mmmartin
Vytváří se Přehled souborů, které jsou uloženy v různých složkách na serveru. Do Přehledu se zapisují do sloupců B a C základní údaje,v dalších sloupcích se znakem X vyznačuje, že došla poptávka, že byla vytvořená nabídka, že přišla objednávka atd. Přijde poptávka, já ji uložím na server do složky Poptávky, napíšu nabídku a tu uložím do složky Nabídky. V Přehledu vyplním údaje ve sloupcích B a C, vyberu buňku ve sloupci D, E,... a spustím makro.
To by mělo do vybrané buňky vložit znak X jako označení, že soubor existuje a mělo by tomuto znaku přiřadit hypertextovým odkazem příslušný soubor (poptávku,...) na serveru. Až potud tvoje makro funguje. Problém je v tom, že cesta k souboru je poměrně dlouhá a cílových složek je pro každý druh souboru 12 do roka a je proto dost pracné cestu vypisovat ručně. Uvítal bych, kdyby v tom okně pro vložení cíle odkazu bylo něco na způsob tlačítka Procházet, aby se dalo k souboru docestovat postupným proklikáváním se strukturou adresáře.
Ve finále by měl soubor Přehled umožňovat otvírat jednotlivé poptávky, nabídky,..... kliknutím na příslušný znak X.
Re: Makro na vložení hypertextového odkazu Vyřešeno
Napsal: 16 črc 2010 10:35
od mike007
Tak tady to máš.
Pokud hledané soubory nejsou v Excelu, tak si uprav příponu nebo vymaž
FileFilter:="Excel Files (*.xls), *.xls",Kód: Vybrat vše
Sub vlozit_odkaz()
odkaz = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Prosím vyber XLS dokument")
If odkaz = False Then Exit Sub
ActiveCell = "x"
ActiveCell.Hyperlinks.Add ActiveCell, odkaz
End Sub
Re: Makro na vložení hypertextového odkazu
Napsal: 16 črc 2010 11:09
od mmmartin
To nemá chybu, funguje to přesně podle představ. Děkuji!!
