Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Формат ячейки: вместо цифр название месяца - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Формат ячейки: вместо цифр название месяца
DrMini Дата: Суббота, 14.07.2018, 11:16 | Сообщение № 1
Группа: Модераторы
Ранг: Старожил
Сообщений: 2047
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Здравствуйте. Подскажите пожалуйста возможно ли задать формат ячейки так, что бы при введении порядкового номера месяца (от 1 до 12) вместо цифр писалось бы название месяца.
 
Ответить
СообщениеЗдравствуйте. Подскажите пожалуйста возможно ли задать формат ячейки так, что бы при введении порядкового номера месяца (от 1 до 12) вместо цифр писалось бы название месяца.

Автор - DrMini
Дата добавления - 14.07.2018 в 11:16
_Boroda_ Дата: Суббота, 14.07.2018, 12:47 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация: 6611 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Нет
Макросом, формулой рядом - это пожалуйста. А форматом...


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНет
Макросом, формулой рядом - это пожалуйста. А форматом...

Автор - _Boroda_
Дата добавления - 14.07.2018 в 12:47
DrMini Дата: Суббота, 14.07.2018, 13:09 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2047
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Нет

Спасибо за ответ. Значит мои предположения были верны.
 
Ответить
Сообщение
Нет

Спасибо за ответ. Значит мои предположения были верны.

Автор - DrMini
Дата добавления - 14.07.2018 в 13:09
Nic70y Дата: Суббота, 14.07.2018, 13:30 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
УФ
К сообщению приложен файл: 2991193.xlsx (9.1 Kb)


ЮMoney 41001841029809
 
Ответить
СообщениеУФ

Автор - Nic70y
Дата добавления - 14.07.2018 в 13:30
DrMini Дата: Суббота, 14.07.2018, 14:14 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2047
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS

Этот вариант не подходит для моей задачи. Через надстройку "Power Query" в итоговую таблицу переносится только значение ячейки. А это цифра. Спасибо за беспокойство.
 
Ответить
Сообщение
Этот вариант не подходит для моей задачи. Через надстройку "Power Query" в итоговую таблицу переносится только значение ячейки. А это цифра. Спасибо за беспокойство.

Автор - DrMini
Дата добавления - 14.07.2018 в 14:14
Nic70y Дата: Суббота, 14.07.2018, 14:36 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
возможно ли задать формат ячейки

только значение ячейки. А это цифра
?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target = 1 Then Target = "Январь"
        If Target = 2 Then Target = "Февраль"
    'и т.д.
    End If
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение
возможно ли задать формат ячейки

только значение ячейки. А это цифра
?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target = 1 Then Target = "Январь"
        If Target = 2 Then Target = "Февраль"
    'и т.д.
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 14.07.2018 в 14:36
DrMini Дата: Суббота, 14.07.2018, 14:43 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2047
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Nic70y, Ещё раз спасибо. Это работает.
 
Ответить
СообщениеNic70y, Ещё раз спасибо. Это работает.

Автор - DrMini
Дата добавления - 14.07.2018 в 14:43
_Boroda_ Дата: Суббота, 14.07.2018, 16:12 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация: 6611 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Если макросом можно, то такой вариант
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = 0
    Target = MonthName(Target)
    Application.EnableEvents = 1
End Sub
[/vba]

А в PQ разве нельзя преобразовать? Если я правильно помню (посмотреть сейчас не могу), то есть там такая штука


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕсли макросом можно, то такой вариант
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = 0
    Target = MonthName(Target)
    Application.EnableEvents = 1
End Sub
[/vba]

А в PQ разве нельзя преобразовать? Если я правильно помню (посмотреть сейчас не могу), то есть там такая штука

Автор - _Boroda_
Дата добавления - 14.07.2018 в 16:12
DrMini Дата: Суббота, 14.07.2018, 17:23 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2047
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
А в PQ разве нельзя преобразовать?

Наверное можно но я сегодня первый раз в жизни попробовал сделать в "Power Query" и на удивление получилось. Но мне не нравится , что после обновления "умная таблица" растягивается на всю длину названия столбца и не выделяются границы ячеек (хотя скорее всего в "Power Query" и это можно сделать но я мягко выражаясь не настолько силён в VBA). Хотя и не трудно раз в месяц всё это собрать в одной таблице. Подкорректировать и распечатать. Одно но... Не люблю когда сделано по топорному. А у меня (на мой взгляд) вышло именно так. Александр может посмотрите тут. Второй день ни кто кроме Yurbas не откликнулся. Очень бы хотелось решение макросом. Кликнул по кнопке и всё чётко и красиво. yes


Сообщение отредактировал DrMini - Суббота, 14.07.2018, 17:24
 
Ответить
Сообщение
А в PQ разве нельзя преобразовать?

Наверное можно но я сегодня первый раз в жизни попробовал сделать в "Power Query" и на удивление получилось. Но мне не нравится , что после обновления "умная таблица" растягивается на всю длину названия столбца и не выделяются границы ячеек (хотя скорее всего в "Power Query" и это можно сделать но я мягко выражаясь не настолько силён в VBA). Хотя и не трудно раз в месяц всё это собрать в одной таблице. Подкорректировать и распечатать. Одно но... Не люблю когда сделано по топорному. А у меня (на мой взгляд) вышло именно так. Александр может посмотрите тут. Второй день ни кто кроме Yurbas не откликнулся. Очень бы хотелось решение макросом. Кликнул по кнопке и всё чётко и красиво. yes

Автор - DrMini
Дата добавления - 14.07.2018 в 17:23
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!