Преобразовать текст в дату

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразовать текст в дату (Макросы/Sub)

Bregra

Дата: Пятница, 17.02.2017, 10:48 | Сообщение № 1

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

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

Сообщений: 30

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

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

Excel 2007

Здравствуйте,

В колонке проставлены даты, но проставлены они как текст, подскажите, пжл, как их преобразовать в дату? Я смог придумать только, что поменять формат колонки, а потом всю колонку поделить на 1. Есть ли какие то другие способы, чтобы изменить формат значения?
Спасибо.

Ответить

sboy

Дата: Пятница, 17.02.2017, 11:06 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Bregra, Добрый день.
"Текст по столбцам" - Готово

Яндекс: 410016850021169

Ответить

Pelena

Дата: Пятница, 17.02.2017, 11:24 | Сообщение № 3

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

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

Сообщений: 19179

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата Bregra, 17.02.2017 в 10:48, в сообщении № 1 ()

Есть ли какие то другие способы

Про разные способы можно почитать в статье Число сохранено как текст, или почему не считается сумма

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

Ответить

Bregra

Дата: Пятница, 17.02.2017, 11:24 | Сообщение № 4

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

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

Сообщений: 30

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

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

Excel 2007

Спасибо. Когда делаешь руками, то все получается, а через макрос почему то не работает. Подскажите, пожалуйста, в чем ошибка. Во вложении пример

К сообщению приложен файл: 0348097.xlsm (13.8 Kb)

Ответить

_Boroda_

Дата: Пятница, 17.02.2017, 12:04 | Сообщение № 5

Группа: Модераторы

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Такой вариант
Встаете в любую ячейку того столбца, в котором хотите поменять и запускаете
[vba]

Код

Sub tt()
    c_ = Selection(1).Column
    r_ = Cells(Rows.Count, c_).End(3).Row
    With Cells(1, c_).Resize(r_)
        .NumberFormat = "General"
        .FormulaLocal = .FormulaLocal
    End With
End Sub

[/vba]

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