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

Вход

Регистрация

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

 

= Мир MS Excel/Смена формата даты - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Смена формата даты (Формулы/Formulas)
Смена формата даты
gringos Дата: Понедельник, 27.03.2017, 12:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Всем спецам привет. Подскажите пожалуйста при сохранении из 1С документы имеют странный формат даты, как можно заменить его с помощью макроса. Чтоб формат 12.01.206 менялся на Январь 2016. Заранее всем благодарен за помощь.
К сообщению приложен файл: 0064772.xlsx (8.6 Kb)
 
Ответить
СообщениеВсем спецам привет. Подскажите пожалуйста при сохранении из 1С документы имеют странный формат даты, как можно заменить его с помощью макроса. Чтоб формат 12.01.206 менялся на Январь 2016. Заранее всем благодарен за помощь.

Автор - gringos
Дата добавления - 27.03.2017 в 12:05
Karataev Дата: Понедельник, 27.03.2017, 12:12 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Выделите столбец с датами - вкладка "Данные" - Текст по столбцам - опция "с разделителями" - Далее - на шаге 2 ничего не делаем - Далее - на шаге 3 в "Поместить в" выберите ячейку с заголовком "Дата" - Готово.


Сообщение отредактировал Karataev - Понедельник, 27.03.2017, 12:18
 
Ответить
СообщениеВыделите столбец с датами - вкладка "Данные" - Текст по столбцам - опция "с разделителями" - Далее - на шаге 2 ничего не делаем - Далее - на шаге 3 в "Поместить в" выберите ячейку с заголовком "Дата" - Готово.

Автор - Karataev
Дата добавления - 27.03.2017 в 12:12
_Boroda_ Дата: Понедельник, 27.03.2017, 12:15 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Если именно макросом, то можно что-то типа такого
[vba]
Код
Sub FormDat1C()
    c_ = 2
    r0_ = 3
    r1_ = Cells(Rows.Count, c_).End(3).Row
    With Cells(r0_, c_).Resize(r1_ - r0_ + 1)
        .FormulaLocal = .FormulaLocal
        .NumberFormat = "MMMM YYYY"
    End With
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕсли именно макросом, то можно что-то типа такого
[vba]
Код
Sub FormDat1C()
    c_ = 2
    r0_ = 3
    r1_ = Cells(Rows.Count, c_).End(3).Row
    With Cells(r0_, c_).Resize(r1_ - r0_ + 1)
        .FormulaLocal = .FormulaLocal
        .NumberFormat = "MMMM YYYY"
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 27.03.2017 в 12:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Смена формата даты (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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