Как из ячейки имеющей общий формат и содержащую Дату и Время вырезать Время, оставив только датуЭ с помощью VBA?

Пользователь

Сообщений: 108 Регистрация: 23.01.2020

01.07.2020 22:19:12

Доброго времени суток, друзья!
Подскажите, пожалуйста, как возможно осуществить данную процедуру: "Как из ячейки имеющей общий формат и содержащую Дату и Время вырезать Время с помощью VBA?"
Пример во вложении.

Прикрепленные файлы

Дата.xlsx (9.35 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 01.07.2020 22:24:44 Формулой - с функцией ЦЕЛОЕ В VBA - оператор Int

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

01.07.2020 22:26:46

Код
ActiveCell.Value = CDate(ActiveCell)

БМВ Модератор Сообщений: 23297 Регистрация: 28.12.2016 Excel 2013, 2016	#4 01.07.2020 23:02:39 конкурс модераторов :-) Внимание вопрос - Вырезать означает оставить время или убрать? :-) А кот то вааще борозду портит. все оставил и время и дату :-) По вопросам из тем форума, личку не читаю.

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#5 01.07.2020 23:05:58 Ничего подобного - только дата остаётся!

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

01.07.2020 23:11:34

Цитата
Юрий М написал: только дата остаётся!

Это у котов который уже часы не считают и в Excel 5, а у остальных с временем.

По вопросам из тем форума, личку не читаю.

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#7 01.07.2020 23:16:32 Нет - это у медведей буржуйский Excel не умеет правильно делать )

БМВ Модератор Сообщений: 23297 Регистрация: 28.12.2016 Excel 2013, 2016	#8 01.07.2020 23:19:54 Нее это у котов время 0 это не время :-) По вопросам из тем форума, личку не читаю.

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

01.07.2020 23:27:47

Цитата
БМВ написал: Внимание вопрос - Вырезать означает оставить время или убрать?

В файле ведь показан желаемый результат Вопрос избыточен ). И именно так у меня макрос и делает - остаётся только дата.

Прикрепленные файлы

Только дата.JPG (21 КБ)

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

#10

01.07.2020 23:33:07

Юр, да это я так, на счетчик работаю, надо как то возвращать, на админов и прогеров надежды нет, только на себя.

Но если честно, то "название темы должно отражать суть задачи" :-)

По вопросам из тем форума, личку не читаю.

ocet p

Пользователь

Сообщений: 448 Регистрация: 24.03.2018

#11

01.07.2020 23:33:58

Цитата
Юрий М написал: дата остаётся

"Ничто" не остаётся - у меня это не дата и время, а "простой текст".
Не для всех "точка" является разделителем даты.
"Application.International(xlDateSeparator)" => и всё становится проще

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

#12

01.07.2020 23:42:54

Цитата
БМВ написал: на счетчик работаю, надо как то возвращать, на админов и прогеров надежды нет

Если уж с моими когтями сработало, то с твоими тем более должно )
А название сейчас подправлю.

Dihlofos881 Пользователь Сообщений: 108 Регистрация: 23.01.2020	#13 02.07.2020 09:25:23 Друзья, большое вам спасибо! Все что мне нужно, я узнал от вас)