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.
Makro: Aktuální kurz měny v Excelu
Abychom měli kurz vždy aktuální, je zapotřebí aby se Excelový sešit po otevření aktualizoval. Nyní tedy nastavíme automatickou akutalizaci sešitu vždy po otevření.
- 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.
