В ячейке отображается "к 30 Апрель", но при этом записано "30.04.2021" Потому что формат ячейки ("к "ДД ММММ) А почему-то когда я в другия ячейках с подобным форматом - ввожу "к 30 Апрель" - то там и в самой ячейке записано "к 30 Апрель" То есть почему-то утратилось преобразование в дату.
Как снова заставить эту ячейку отображаться правильно (внешне - текст, а значение - дата) ?
Здравствуйте. У меня такая проблема.
В ячейке отображается "к 30 Апрель", но при этом записано "30.04.2021" Потому что формат ячейки ("к "ДД ММММ) А почему-то когда я в другия ячейках с подобным форматом - ввожу "к 30 Апрель" - то там и в самой ячейке записано "к 30 Апрель" То есть почему-то утратилось преобразование в дату.
Как снова заставить эту ячейку отображаться правильно (внешне - текст, а значение - дата) ?kNNeR
Pelena, А вы не знаете почему вылетает сообщение ?: Compile error Cant find project or library
И подсвечивает слово Target в коде
(это оказывается макрос менял этот формат) [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("CN:CN")) Is Nothing Then Application.EnableEvents = False Target = CDate(CInt(Target) & Format(Now(), "\.MM.YYYY")) Application.EnableEvents = True End If
If Not Intersect(Target, Range("DS:DS")) Is Nothing Then Application.EnableEvents = False Target = CDate(Mid(Target, 2)) Application.EnableEvents = True End If
End Sub
[/vba]
Pelena, А вы не знаете почему вылетает сообщение ?: Compile error Cant find project or library
И подсвечивает слово Target в коде
(это оказывается макрос менял этот формат) [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("CN:CN")) Is Nothing Then Application.EnableEvents = False Target = CDate(CInt(Target) & Format(Now(), "\.MM.YYYY")) Application.EnableEvents = True End If
If Not Intersect(Target, Range("DS:DS")) Is Nothing Then Application.EnableEvents = False Target = CDate(Mid(Target, 2)) Application.EnableEvents = True End If