Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA: изменить текстовую запись на дату в формате "dd.mm.yyyy"
 
#1
04.05.2018 09:30:11
Имеется столбец с датами на Лист2 (G1:G15)в формате yyyy-mm-dd, как его при помощи vba изменить на формат dd.mm.yyyy?
 
 
 
#2
04.05.2018 09:35:31
Такой вариант
Код
    r1_ = Range("G" & Rows.Count).End(3).Row
    Range("G1").Resize(r1_).FormulaLocal = Range("G1").Resize(r1_).FormulaLocal
Изменено: _Boroda_ - 04.05.2018 09:35:42
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#3
04.05.2018 09:36:03
включите макрорекордер, проделайте эту операцию вручную, посмотрите что записал рекордер
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#4
04.05.2018 09:37:57
Запишите макрорекодером: выделить диапазон, текст по столбцам-ОК, задать нужный формат ячейкам.
 
 
 
#5
04.05.2018 09:40:46
Код
Sub test()
    Dim arr(), i&
    arr = Range([g1], [g1].End(xlDown)).Value
    For i = 1 To UBound(arr)
        arr(i, 1) = Format(arr(i, 1), "dd.mm.yyyy")
    Next i
    [g1].Resize(UBound(arr)).Value = arr
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#6
04.05.2018 09:41:04
Игорь, Виктор, а вы попробуйте сами сделать то, что советуете. Получается?
Цитата
vikttur написал:
Запишите макрорекодером: выделить диапазон, текст по столбцам-ОК
Цитата
Ігор Гончаренко написал:
включите макрорекордер, проделайте эту операцию вручную

Дабовлено
Ха, блин! На этом конкретном файле да, действительно получается. Но это не всегда так, прецеденты были
Изменено: _Boroda_ - 04.05.2018 09:42:42
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#7
04.05.2018 09:43:19
Ага, пришлось проверить. Получается. В чем проблемы?
 
 
 
#8
04.05.2018 09:43:43
Цитата
_Boroda_ написал:
Игорь, Виктор, а вы попробуйте сами сделать то, что советуете. Получается?
У меня получилось  :D
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#9
04.05.2018 09:45:28
Я дописал в своем посте. Не всегда "Текст по столбцам" отрабатывает. Бывали случаи. Сейчас искать неохота, но на "Мир Excel" было несколько тем про это. Уверен, что и здесь тоже были, я просто там чаще сижу
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#10
04.05.2018 09:47:21
_Boroda_,  Александр, чую я что файл не открывали ребята, ибо думали о формате отображения, а не о тексте.

FormulaLocal  - Почему не Formula?
По вопросам из тем форума, личку не читаю.
 
 
 
#11
04.05.2018 09:48:06
Нет, данные я видел, потому и предложил сначала изменить данные на числовые.

Вариант: копировать пустую ячейку (это 0), выделить диапазон, Спецвставка-Сложить. Макрорекодер должен справиться. Василька, пробуйте, не бойтесь экспериментировать.
 
 
 
#12
04.05.2018 09:48:44
да, извините, в файл поленился посмотреть...
Ctrl+H
заменить: -
на: .
Ок
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
Страницы: 1
Читают тему
Наверх