Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-funkce-vzorce » excel-vba-datum-cas-hratky

Datum a čas - jak nastavit formát - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak nastavovit požadovaný formát buňky pro datum, čas nebo datum s časem VBA makrem v MS Excelu. - včetně ukázkového příkladu zdarma ke stažení.

Úvodem

Při programování ve VBA mnohdy potřebujeme nastavit v buňce formát zobrazované hodnoty. Jakée jsou možnosti u data a času a jak to provést je popsáno v tomto článku. NA závěr je k dispozici ke stažení ukázkový příklad.

MS Excel VBA - datum a čas ukázka formátování

Příklad 1

Nastavení den / měsíc / rok

Range("A5").NumberFormat = "dd/mmm/yyyy" ' nebo trochu jiný formát rok měsíc den Range("A5").NumberFormat = "yyy/mm/ddd"

Příklad 2

Nastavení data včetně času

Range("A9").Value = Format$(Now, "yyyy/mm/dd hh:mm:ss")

Příklad 3 - včetně výpočtu

Vrátí počet dní(ů) hodin minut od pondělí tohoto týdne

Range("A13").Value = Format$(Now - (Date - Weekday(Date, vbMonday)), "\D\ni:d, \Ho\di\n: hh, \Mi\nut: nn")

Další příklad počet dnů od, v ukázce od ledna 2011

Dim datDatum As Date datDatum = DateSerial(2011, 1, 1) Range("A17").Value = (Now - dtDatum) Range("A17").NumberFormat = "###"

Příklad 4

Rok

datumMoje = Range("A24").Value Range("A25").Value = Year(datumMoje)

Příklad 5

Hrátky s formáty

Range("A28").NumberFormat = "dddd" Range("A31").Value = Format$(DateSerial(Range("C31").Value, Range("D31").Value, Range("E31").Value), "yyyy/mmmm/ddd") Range("A32").Value = Format$(DateSerial(Range("C31").Value, Range("D31").Value, Range("E31").Value), "yyyy/mm/d")

Ke stažení

Ukázkový soubor datum a čas formátování - ukázka ve VBA MS Excelu soubor ve formátu *.xlsm - ke stažení zdarma. Obsahuje více ukázek. Poznámka: Soubor využívá makra.

Článek byl aktualizován: 19.09.2020 11:06

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>





Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2020 |