Nacházíte se: WALL.cz › Excel šablony › Graf hodiny a osa událostí
Kategorie: Excel šablony

Graf hodiny a osa událostí

ExcelPraktická ukázka, jak lze pomocí grafu zobrazit aktuální datum a čas. V tomto případě se spíše jedná o efekt než o praktické využití. Součástí této ukázky je makro, které zajistí cyklické volání procedury pro zajištění běhu hodin.

Nejdříve vytvořte tabulku s daty, ze které následně vygenerujete 3 bodové grafy. Tabulka bude obsahovat údaje datum, čas (formou vzorce) a pozice bodu:

Datum Pozice 
=DNES()
 1 
=HODINA(NYNÍ())
 1 
=MINUTA(NYNÍ())
 2 
=SEKUNDA(NYNÍ())
 1

Spusťte průvodce grafem menu Vložit / Graf. Typ vyberte Bodový. Jako zdroj dat vyberte první řádek tabulky (vzorec DNES a pozice 1) a zvolte Dokončit.

Graf hodiny a osa událostí Graf hodiny a osa událostí

Graf je hotov a hned přejděte k úpravám. Pravým tlačítkem myši klikněte na osu x. Na záložce měřítko zadejte hodnoty. Minimum je 1.1. 2009, maximum je 31.12. 2099, hlavní jednotka 30 (body po 30 dnech) a vedlejší 1 (jeden den).

Graf hodiny a osa událostí

Na záložce Číslo nastavte vlastní formát "d.m." a potvrďte klávesou OK.

Graf hodiny a osa událostí

Nyní upravte datovou řadou kliknutím pravého tlačítka na bod v grafu.

Graf hodiny a osa událostí Graf hodiny a osa událostí

Vytvořili jste graf, na kterém bude zobrazen aktuální datum. Vytvořte další graf, kde jako zdroj dat použijete druhý řádek tabulky (vzorec HODINA). Pro další a poslední graf použijte jako zdroj dat poslední dva řádky tabulky (vzorec MINUTA a SEKUNDA). Postup bude stejný jako u první tabulky, jen s tím rozdílem, že osa x u hodin bude 0-24 a u minut a sekund 0-60. Výsledné grafy by měli vypadat asi takto:

Graf hodiny a osa událostí

Opakovaným stlačením tlačítka F9 dojde k přepočtu vzorců a tím hodiny "ožijí". Což asi nikoho nebude bavit a proto přepočet zajistíme makrem. Níže uvedený kód zkopírujte do modulu editoru jazyka Visual Basic Alt+F11.

Public RunWhen As Double Sub StartTimer() Calculate RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "StartTimer", , True End Sub Sub StopTimer() On Error Resume Next Application.OnTime RunWhen, "StartTimer", , False End Sub

Soubor s příkladem ke stažení: Nejste přihlášen(a). Do souboru jsem ještě přidal malý bonus. K hodinám lze nastavit minutový signál, alarm a do grafu s datem lze přidat události.

Autor: icon admin
Vydáno: 26.5.2009 18:10
Přečteno: 33421x

print Formát pro tisk

Sdílet článek:

Komentáře rss

Přidat komentář >
Nem0, Hodiny (6.1.2016 18:28) odpovědět
avatar
Tyro "lineární" hodiny nejsou dost přehledné, to už je lepší digitální. V Excel lze ale vytvořit i klasické ručičkové hodiny, které nemusí ukazovat aktuální čas, ale např. stav projektu či události tím, že 12:00 je konec či splnění a 11:58 je tzv. stihnout 2 minuty před dvanáctou.
Ukázku najdete na http://office.lasakovi.com/excel/grafy/graf-xy-bodovy-hodiny/, troškou fantazie může vám ukazovat jakoukoliv časově závislou událost a to bez makra!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje