
Hledáte řešení, jak mít vždy aktuální kurz měny v excelu? Tak aby jste ho pokaždé nemuseli hledat na internetu? V dnešním díle Tips and Tricks vám ukáži jak na to. Kurz měn budeme brát z oficiálních stránek České národní banky, která aktualizuje kurzovní lístek, každý pracovní den ve 14:30.
Návod: Propojení sešitu s kurzovním lístkem
- Na kartě data zvolíme možnost načíst data z webu.

2. Otevře se okénko, do kterého zkopírujeme následující odkaz na stránky ČNB, pod kterým se skrývá aktuální kurzovní list. Potvrdíme OK.
Odkaz na kurzovní list: https://www.cnb.cz/cs/financni-trhy/devizovy-trh/kurzy-devizoveho-trhu/kurzy-devizoveho-trhu/denni_kurz.txt

3. Otevře se další okno, na kterém pouze klikneme na talčítko ,,Načíst".

Po stisknutí se vytvoří nový list, na kterém se zobrazí tabulka s aktuálním kuzrem. Nyní náme vytvořené spojení s aktuálním kurzovním listem ČNB, dále si ukážeme, jak data využít a automaticky aktualizovat.
Využití dat
Jelikož pracujeme v mezinárodní firmě, potřebujeme mít spočítané náklady jak v korunách tak v Eurech.
Finální hodnotu eura dostaneme následujícím výpočtem:
Vydělíme útratu v CZK hodnotou Eura, kterou získáme z listu, který jsme vytvořili v první části návodu.

Automatická aktualizace kurzu po otevření souboru
Nyní dokončíme nastavení, tak aby se vždy po otevření souboru kurz automaticky aktualizoval.
- Klikneme, na jakékoliv místo do importovaných dat.
- Nad pásem karet se ukáže možnost ,,Nástroje dotazů", na kterou klikneme.
- Zobrazí se karta dotaz, kde zvolíme možnost Vlastnosti.
- Otevře se menu Vlastnosti dotazu, kde zaškrtneme políčka:
- Povolit aktualizaci na pozadí
- Aktualizovat data při otevření souboru

Makro: Aktuální kurz měny v Excelu
Pokud by z nějakého důvodu, nefungovala předchozí možnost aktualizace, zde naleznete další možnost jak problém vyřešit.
- Stiskem kláves Alt+F11 otevřeme okno rozšíření VBA
- Na levé straně okna se ukáže seznam objektů, na kterém zvolíme možnost ThisWorkbook
Poznámka: Pokud máte otevřených více Excelových souborů, ukážou se zde všechny, pak je potřeba dávat pozor, aby jste zvolili správně.

4. Otevře se pracovní plocha pro celý sešit, do které vložíte následující kód:
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
End Sub
Poté okno vypadá následovně:

Nyní se konečně dostáváme do poslední části, kdy celý soubor uložíme. Jelikož soubou obsahuje makro je zapotřebí uložit ho jako sešit excelu s podporou maker. Pokud takto neučiníte makro nebude fungovat a data nebudou automaticky aktualizována.

TIP: Elegantní Vizulalizace Dat pomocí Dashboardu
Dobrý den,
ráda bych se Vás prosím chtěla zeptat, jak mohu jinak otevřít VBA Project?
Skrz Alt+F11 to nefunguje.
Umíte mi prosím doporučit jaké jsou jiné možnosti?
Děkuji Vám za odpověď.
Ing. Sarah Wintersteiner
Dobrý den,
Další možnost jak jinak otevřít VBA projekt, je přes kartu pro vývojáře.
Na tomto odkazu najdete návod jak ji přidat: https://www.xlsm.cz/navod-uprava-pasu-karet/
Následně na kartě pro vývojáře je hned první ikona Visual Basic. Před kterou se dostanete do VBA projektu.
S pozdravem
Petr Hulínský
Dobrý den,
chtěl bych se zeptat, jestli Vámi popsaný návod stále funguje. Aplikoval jsem podobný postup dříve a fungoval bez problému, ale nedávno aktualizace neproběhla s hláškou, že nelze načíst požadované informace.
Zkoušel jsem to znovu v prázdném excelu a ani tam to nefunguje.
Nemáte prosím nápad, kde by mohl být problém, pokud není v samotném odkazu (což nevypadá)?
Děkuji.
MJ
Dobrý den,
Stále funguje, testováno dnes.
Automatickou aktualizaci doporučuji nastavit první možností, bez použití VBA.
S pozdravem
Petr Hulínský
PERFEKTNÍ NÁVOD DĚKUJI