Как изменить формать ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как изменить формать ячейки (Формулы/Formulas)

kNNeR

Дата: Вторник, 20.04.2021, 10:35 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 9 ±

Замечаний: 0% ±

Excel 2019

Здравствуйте.
У меня такая проблема.

В ячейке отображается "к 30 Апрель", но при этом записано "30.04.2021"
Потому что формат ячейки ("к "ДД ММММ)
А почему-то когда я в другия ячейках с подобным форматом - ввожу "к 30 Апрель" - то там и в самой ячейке записано "к 30 Апрель"
То есть почему-то утратилось преобразование в дату.

Как снова заставить эту ячейку отображаться правильно (внешне - текст, а значение - дата) ?

К сообщению приложен файл: 111.xlsb (14.2 Kb)

Ответить

Pelena

Дата: Вторник, 20.04.2021, 10:36 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Надо вводить 30.04.2021, а не "к 30 Апрель"

Добавлено.
А лучше такой формат поставьте "к "[$-ru-RU-x-genlower]ДД ММММ, чтобы было не Апрель, а апреля

К сообщению приложен файл: 5683493.xlsb (17.1 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

kNNeR

Дата: Вторник, 20.04.2021, 11:05 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 9 ±

Замечаний: 0% ±

Excel 2019

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]

Ответить

kNNeR

Дата: Вторник, 20.04.2021, 11:13 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 9 ±

Замечаний: 0% ±

Excel 2019

И меняет при этом дату в ячейке - с "20.01.2021" на "20.01.1900"

Сообщение отредактировал kNNeR - Вторник, 20.04.2021, 14:17

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как изменить формать ячейки (Формулы/Formulas)

Страница 1 из 1
1