Excel VBA для перетворення дати і часу тільки в дату

Hugh West

16-10-2023 Макроси & Excel VBA
  • Поділитися Цим
Hugh West

Часто виникає необхідність перетворити діапазон дат і часу тільки в дати. Ми можемо використовувати Excel VBA для перетворення дати і часу тільки в дату. Ця стаття показує, як це зробити найпростішим способом. Наступний малюнок дає уявлення про мету цієї статті.

Завантажити Практичний посібник

Ви можете завантажити робочий зошит з практики, натиснувши кнопку для завантаження нижче.

DateTime to Date Only.xlsm

Excel VBA для перетворення дати і часу тільки в дату

Уявіть, що у вас є наступний набір дат і часу в колонка В .

Тепер виберіть весь діапазон дат і часу. Потім змініть формат числа до Генеральний Після цього ви побачите переведені в десяткові числа дати і час, які виглядатимуть наступним чином.

Тут цілі частини чисел означають дати, а десяткові дроби - час.

Тепер, припустимо, ви хочете використовувати Excel VBA для перетворення дат і часу тільки в дати. Тоді, виконайте наведені нижче дії.

📌 Кроки

  • Спочатку ви можете натиснути CTRL+Z повернутися до формату дати і часу.
  • Потім натисніть ALT+F11 на Windows і Opt+F11 на Mac, щоб відкрити Microsoft Visual Basic для додатків Ви також можете зробити це з Розробник рахунок.
  • Тепер вставте новий модуль, вибравши Вставний модуль .

  • Після цього скопіюйте наступний код. 
 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
  • Потім вставити скопійоване на чистий модуль наступним чином.

  • Далі запустіть код, натиснувши на кнопку Біжи або з кнопки Біжи

  • Після цього дати і час будуть конвертуватися тільки в дати, як показано нижче.

Тепер виберіть весь діапазон дат і часу та конвертовані дати. Потім змініть формат чисел на Генеральний Ви побачите, що перетворені дати містять лише цілі числа. Це підтверджує, що дати і час були належним чином змінені тільки на дати.

Стаття на тему: Як конвертувати текстові дату та час у формат дати в Excel (7 простих способів)

Важливі моменти для запам'ятовування

  • Вам потрібно змінити аргументи діапазону в коді відповідно до власного набору даних.
  • Ви можете змінити мм-дд-гг формат у коді за вашим бажанням формат дати .

Висновок

Тепер ви знаєте, як використовувати Excel VBA для конвертувати дату і час на сьогоднішній день Якщо у вас є додаткові запитання або пропозиції, будь ласка, скористайтеся розділом коментарів нижче. Ви також можете відвідати наш Ексельдемія блог, щоб дізнатися більше про Excel та покращити свою роботу.

Попередній пост Автоматичне введення дати при введенні даних в Excel
Наступний пост Як розрахувати об'єднану дисперсію в Excel (з простими кроками)

Г’ю Вест — досвідчений тренер і аналітик Excel із понад 10-річним досвідом роботи в галузі. Він має ступінь бакалавра з бухгалтерського обліку та фінансів і ступінь магістра з ділового адміністрування. Г’ю має пристрасть до викладання та розробив унікальний підхід до викладання, який легко зрозуміти та дотримуватися. Його експертне знання Excel допомогло тисячам студентів і професіоналів у всьому світі вдосконалити свої навички та досягти успіху в кар’єрі. У своєму блозі Г’ю ділиться своїми знаннями зі світом, пропонуючи безкоштовні навчальні посібники з Excel та онлайн-навчання, щоб допомогти окремим особам і компаніям повністю розкрити свій потенціал.