Excel VBA do konwersji daty i czasu do daty

Hugh West

16-10-2023 Makra & Excel VBA
  • Udostępnij To
Hugh West

Często staje się konieczne przekonwertowanie zakresu dat i godzin tylko na daty.Możemy użyć Excel VBA do konwersji daty i czasu tylko na datę.Ten artykuł pokazuje jak to zrobić w najprostszy sposób.Poniższy rysunek daje wyobrażenie o celu tego artykułu.

Pobierz Zeszyt ćwiczeń

Zeszyt ćwiczeń można pobrać z poniższego przycisku do pobrania.

DateTime to Date Only.xlsm

Excel VBA do konwersji daty i czasu do daty

Wyobraź sobie, że masz następujący zbiór dat i godzin w kolumna B .

Teraz wybierz cały zakres dat i godzin, a następnie zmień format liczby do Ogólne . Po tym, zobaczysz daty i godziny zamienione na liczby dziesiętne, jak poniżej.

Tutaj części całkowite liczb reprezentują daty, a ułamki dziesiętne - czasy.

Teraz załóżmy, że chcesz użyć Excel VBA do konwersji dat i godzin tylko na daty. Następnie wykonaj poniższe kroki.

📌 Kroki

  • Na początku możesz nacisnąć CTRL+Z aby powrócić do formatu daty i godziny.
  • Następnie naciśnij ALT+F11 w systemie Windows i Opt+F11 na Macu, aby otworzyć Microsoft Visual Basic for Applications Można to również zrobić z poziomu Deweloper tab.
  • Teraz wstaw nowy moduł, wybierając Wstaw>> Moduł .

  • Po tym skopiuj następujący kod. 
 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.
  • Następnie wklej skopiowane na pusty moduł w następujący sposób.

  • Następnie uruchom kod, klikając na Uruchom lub z przycisku Uruchom

  • Następnie daty i godziny zostaną przekonwertowane tylko na daty, jak pokazano poniżej.

Teraz zaznacz cały zakres dat i godzin oraz przeliczone daty. Następnie zmień format liczby na Ogólne Zobaczysz, że skonwertowane daty zawierają tylko liczby całkowite. W ten sposób sprawdzisz, czy daty i godziny zostały poprawnie zmienione na daty.

Related Content: Jak przekonwertować datę i godzinę tekstową na format daty w Excelu (7 prostych sposobów)

Rzeczy do zapamiętania

  • Musisz zmienić argumenty zakresu w kodzie zgodnie z własnym zestawem danych.
  • Można zmienić mm-dd-yy format w kodzie do pożądanego format daty .

Wniosek

Teraz już wiesz, jak wykorzystać Excel VBA do konwersja daty i czasu na datę Jeśli masz więcej pytań lub sugestii, skorzystaj z sekcji komentarzy poniżej. Możesz również odwiedzić nasz Exceldemy blog, aby dowiedzieć się więcej o excelu i poprawić swoje wyniki.

Poprzedni post Automatyczne wprowadzanie daty podczas wprowadzania danych w programie Excel
Następny post Jak obliczyć łączną wariancję w programie Excel (z prostymi krokami)

Hugh West jest bardzo doświadczonym trenerem i analitykiem Excela z ponad 10-letnim doświadczeniem w branży. Posiada tytuł licencjata w dziedzinie rachunkowości i finansów oraz tytuł magistra administracji biznesowej. Hugh ma pasję do nauczania i opracował unikalne podejście do nauczania, które jest łatwe do naśladowania i zrozumienia. Jego specjalistyczna wiedza na temat programu Excel pomogła tysiącom studentów i profesjonalistów na całym świecie doskonalić swoje umiejętności i osiągać doskonałe wyniki w karierze. Za pośrednictwem swojego bloga Hugh dzieli się swoją wiedzą ze światem, oferując bezpłatne samouczki programu Excel i szkolenia online, aby pomóc osobom indywidualnym i firmom w pełni wykorzystać swój potencjał.