Excel VBA pro převod data a času pouze na datum

Hugh West

16-10-2023 Makra & Excel VBA
  • Sdílet Toto
Hugh West

Často se stává, že je třeba převést rozsah dat a časů pouze na data. K převodu data a času pouze na datum můžeme použít Excel VBA. Tento článek ukazuje, jak to provést nejjednodušším způsobem. Následující obrázek dává představu o účelu tohoto článku.

Stáhnout cvičebnici

Cvičebnici si můžete stáhnout z níže uvedeného tlačítka ke stažení.

Pouze z DateTime na Date.xlsm

Excel VBA pro převod data a času pouze na datum

Představte si, že máte následující datovou sadu dat a časů ve formátu sloupec B .

Nyní vyberte celý rozsah dat a časů. Pak změňte formát čísla na Obecné . Poté se zobrazí data a časy převedené na desetinná čísla jako následující.

Celočíselné části čísel zde představují data a desetinné zlomky představují časy.

Nyní předpokládejme, že chcete pomocí nástroje Excel VBA převést data a časy pouze na data. Pak postupujte podle následujících kroků.

📌 Kroky

  • Nejprve můžete stisknout CTRL+Z pro návrat k formátu data a času.
  • Pak stiskněte tlačítko ALT+F11 v systému Windows a Opt+F11 na Macu otevřít Microsoft Visual Basic pro aplikace . To můžete provést také v Vývojář tab.
  • Nyní vložte nový modul výběrem Vložit>> Modul .

  • Poté zkopírujte následující kód. 
 Sub DateTimeToDateOnly() Dim Dataset, j As Long Range("B5:B17").Copy Range("C5:C17") Dataset = Range("C5:C17") For j = 5 To 17 With Range("C" & j) .NumberFormat = "mm-dd-yy" .Value = DateValue(.Value) End With Next j End Sub
  • Zkopírovaný text pak vložte do prázdného modulu následujícím způsobem.

  • Poté spusťte kód kliknutím na Spustit nebo z tlačítka Spustit

  • Poté se data a časy převedou pouze na data, jak je uvedeno níže.

Nyní vyberte celý rozsah dat a časů a převedená data. Poté změňte formát čísla na. Obecné . Uvidíte, že převedená data obsahují pouze celá čísla. Tím se ověří, že data a časy byly správně změněny pouze na data.

Související obsah: Jak převést textové datum a čas do formátu data v aplikaci Excel (7 snadných způsobů)

Na co nezapomenout

  • Argumenty rozsahu je třeba v kódu změnit podle vlastní sady dat.
  • Můžete změnit mm-dd-r formát v kódu na požadovaný formát data .

Závěr

Nyní víte, jak používat Excel VBA k tomu, abyste převést datum a čas na datum Pokud máte další dotazy nebo návrhy, použijte prosím níže uvedenou část s komentáři. Můžete také navštívit náš web. Exceldemy blog a dozvíte se více o programu Excel a zlepšíte svůj výkon.

Předchozí příspěvek Automatické zadávání data při zadávání dat do aplikace Excel
Další příspěvek Jak vypočítat sdruženou odchylku v aplikaci Excel (ve snadných krocích)

Hugh West je velmi zkušený školitel a analytik Excelu s více než 10 lety zkušeností v oboru. Má bakalářský titul v oboru Účetnictví a finance a magisterský titul v oboru Business Administration. Hugh má vášeň pro výuku a vyvinul jedinečný přístup k výuce, který lze snadno sledovat a pochopit. Jeho odborné znalosti Excelu pomohly tisícům studentů a profesionálů po celém světě zlepšit své dovednosti a vyniknout ve své kariéře. Prostřednictvím svého blogu Hugh sdílí své znalosti se světem a nabízí bezplatné výukové programy Excelu a online školení, které jednotlivcům a firmám pomohou dosáhnout jejich plného potenciálu.