Excel VBA за конвертиране на дата и час само в дата

Hugh West

16-10-2023 Макроси & Excel VBA
  • Споделя Това
Hugh West

Често се налага да конвертираме диапазон от дати и часове само в дати. Можем да използваме Excel VBA, за да конвертираме дата и час само в дата. В тази статия е показано как да направим това по най-простия начин. Следната снимка дава представа за целта на тази статия.

Изтегляне на работна тетрадка за практика

Можете да изтеглите работната тетрадка за упражнения от бутона за изтегляне по-долу.

Превръщане на DateTime в 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 лесни начина)

Нещата, които трябва да запомните

  • Необходимо е да промените аргументите за обхвата в кода в съответствие с вашата собствена съвкупност от данни.
  • Можете да промените mm-dd-yy формат в кода до желания от вас формат на датата .

Заключение

Вече знаете как да използвате Excel VBA, за да конвертиране на дата и час в дата Ако имате допълнителни въпроси или предложения, моля, използвайте раздела за коментари по-долу. Можете също така да посетите нашия Exceldemy блог, за да научите повече за Excel и да подобрите работата си.

Предишна публикация Автоматично въвеждане на дата при въвеждане на данни в Excel
Следваща публикация Как да изчислим обединената вариация в Excel (с лесни стъпки)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.