Vždy aktuální kurz měny v Excelu

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

1. 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.

1. Klikneme, na jakékoliv místo do importovaných dat.
2. Nad pásem karet se ukáže možnost ,,Nástroje dotazů", na kterou klikneme.
3. Zobrazí se karta dotaz, kde zvolíme možnost Vlastnosti.
4. 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.

1. Stiskem kláves Alt+F11 otevřeme okno rozšíření VBA
2. 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