Excel VBA для преобразования даты и времени в только дату

Hugh West

16-10-2023 Макросы & Excel VBA
  • Поделись Этим
Hugh West

Часто возникает необходимость преобразовать диапазон дат и времени только в даты. Мы можем использовать Excel VBA для преобразования даты и времени только в дату. В этой статье показано, как это сделать самым простым способом. Следующий рисунок дает представление о цели этой статьи.

Скачать Рабочую тетрадь для практических занятий

Вы можете скачать рабочую тетрадь по практике с помощью кнопки загрузки ниже.

DateTime to Date Only.xlsm

Excel VBA для преобразования даты и времени в только дату

Представьте, что у вас есть следующий набор данных, содержащий даты и время в колонка B .

Теперь выберите весь диапазон дат и времени. Затем измените параметр формат числа на Общий После этого вы увидите даты и время, преобразованные в десятичные числа, как показано ниже.

Здесь целые части чисел представляют даты, а десятичные дроби - время.

Теперь предположим, что вы хотите использовать 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, чтобы преобразование даты и времени в дату только. Если у вас есть дополнительные вопросы или предложения, пожалуйста, воспользуйтесь разделом комментариев ниже. Вы также можете посетить наш сайт Exceldemy блог, чтобы узнать больше об excel и улучшить свою работу.

Предыдущий пост Автоматический ввод даты при вводе данных в Excel
Следующий пост Как рассчитать объединенную дисперсию в Excel (с помощью простых шагов)

Хью Уэст — опытный тренер и аналитик Excel с более чем 10-летним опытом работы в отрасли. Он имеет степень бакалавра в области бухгалтерского учета и финансов и степень магистра делового администрирования. Хью страстно любит преподавать и разработал уникальный подход к обучению, которому легко следовать и который легко понять. Его экспертные знания Excel помогли тысячам студентов и специалистов по всему миру улучшить свои навыки и преуспеть в своей карьере. В своем блоге Хью делится своими знаниями со всем миром, предлагая бесплатные учебные пособия по Excel и онлайн-обучение, чтобы помочь отдельным лицам и компаниям полностью раскрыть свой потенциал.