Преобразование текста в дату по событию WorksheetsChange

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

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

20.03.2019 21:24:15

Добрый вечер.

Скажите как навесить на столбец I - событие ВоркшитЧендж, так чтобы при вводе в ячейку этого столбца - текста "к 3 Апреля" - макрос преобразовывал бы этот текст в дату 03.04.2019 в этой ячейке ?

При этом формат - останется таким же, то есть будет виден текст "к 3 Апреля".

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

книга.xls (29 КБ)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 20.03.2019 21:27:12 В файле так и есть - в ячейках даты.

OlegSmirnov Пользователь Сообщений: 137 Регистрация: 21.07.2017	#3 20.03.2019 21:30:35 vikttur, содержимое этих ячеек - должно вводится текстом, а не датой. Этому и посвящен мой вопрос.

Казанский

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

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

20.03.2019 21:55:03

OlegSmirnov,

Код

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 9 Then Exit Sub
  On Error GoTo 1
  Application.EnableEvents = False
  Target = CDate(Mid(Target, 2))
1 Application.EnableEvents = True
End Sub

OlegSmirnov Пользователь Сообщений: 137 Регистрация: 21.07.2017	#5 20.03.2019 22:47:18 Казанский, спасибо. Ваша система - работает !