Столкнулась с такой задачей. Нужно, чтобы при вводе чисел от 1 до 12 Excel форматировал бы их как названия месяцев. Январь для 1, февраль для 2 и т.д. Попробовала воспользоваться форматом "ММММ". Работает только для 1 - января. 2 Excel интерпритирует как 02.01.1900 и выдает мне опять январь при формате "ММММ". 3 для него это 03.01.1900 - и тоже январь.
Что делать?
Огромное спасибо заранее всем
Добрый день всем помощникам!
Столкнулась с такой задачей. Нужно, чтобы при вводе чисел от 1 до 12 Excel форматировал бы их как названия месяцев. Январь для 1, февраль для 2 и т.д. Попробовала воспользоваться форматом "ММММ". Работает только для 1 - января. 2 Excel интерпритирует как 02.01.1900 и выдает мне опять январь при формате "ММММ". 3 для него это 03.01.1900 - и тоже январь.
aivella, Добрый день. Приложите файл чтоб понимать где и что вы пытаетесь вводить. На скорую руку, то вводите при формате "ММММ" не просто 3, а 1.3 или 1,3, в зависимости от того, какой знак у вас используется для разделения целой и дробной части, тогда будет так, как вы хотите
aivella, Добрый день. Приложите файл чтоб понимать где и что вы пытаетесь вводить. На скорую руку, то вводите при формате "ММММ" не просто 3, а 1.3 или 1,3, в зависимости от того, какой знак у вас используется для разделения целой и дробной части, тогда будет так, как вы хотитеDJ_Marker_MC
Проще выпадающий список сделать [offtop]Это только у меня или у всех? Шрифт в форме написания сообщения стал очень мелкий, а в самих сообщениях подписи очень мелкие. Вчера так не было.
Проще выпадающий список сделать [offtop]Это только у меня или у всех? Шрифт в форме написания сообщения стал очень мелкий, а в самих сообщениях подписи очень мелкие. Вчера так не было.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Сообщение отредактировал AlexM - Понедельник, 16.03.2015, 13:01
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address(0, 0) = "A1" Then Target.Value = DateSerial(1900, Target.Value, 1) Application.EnableEvents = True End Sub
[/vba]
ну если в той же ячейке, то по событию[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address(0, 0) = "A1" Then Target.Value = DateSerial(1900, Target.Value, 1) Application.EnableEvents = True End Sub