Ř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
Makro na vložení hypertextového odkazu Vyřešeno
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9507
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Makro na vložení hypertextového odkazu
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Mkro na vložení hypertextového odkazu
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
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9507
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Makro na vložení hypertextového odkazu
A děkuju.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9507
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Makro na vložení hypertextového odkazu
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...
PS: ještě se trochu stydím...
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro na vložení hypertextového odkazu
Nestyď se furt a raděj mi pořádně vysvětli odkud a jak chceš odkaz tahat
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9507
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Makro na vložení hypertextového odkazu
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.
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.
- Přílohy
-
- přehled.xls
- (43 KiB) Staženo 133 x
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Makro na vložení hypertextového odkazu Vyřešeno
Tak tady to máš.
Pokud hledané soubory nejsou v Excelu, tak si uprav příponu nebo vymaž FileFilter:="Excel Files (*.xls), *.xls",
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
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9507
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Makro na vložení hypertextového odkazu
To nemá chybu, funguje to přesně podle představ. Děkuji!!
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 1568
-
od kecalek
Zobrazit poslední příspěvek
01 pro 2023 16:43
-
- 9
- 1233
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 0
- 1224
-
od Zabral68
Zobrazit poslední příspěvek
28 čer 2023 19:06
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů