Страницы: 1
RSS
Макросом найти точки и заменить их на "/"
 
Добрый день.
Записан макрос авто записью.
Его цель произвести в ячейках поиск "." и заменить их на "/".
Занчение исходное такого вида
10.05.2019   14:41
Необходимо превратить в такой
10/05/2019 14:41
Макрос который это делал
Код
Sub замена_на_слеш()
Workbooks("Своевременность отгрузки_.xlsm").Worksheets("147").Activate 'активируем книгу с отчетом
    Columns("E:P").Select
    Selection.Replace What:=".", Replacement:="/", _
        MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Workbooks("Своевременность отгрузки_.xlsm").Worksheets("Панель управления").Activate 'активируем книгу с отчетом
End Sub

Все было ничего когда таты были высше 24 числа. Но как только начался новый месяц стало происходить нечно не понятное для меня.
После поиска с заменой дата стала изменятся данные в яч стали выглядить вот так
05/10/2019 14:41
Макрос стал перестовлять местами день и месяц.
Подскажите из за чего так происходит? и как поправить?
Заранее благодарю за помощь.  
 
Вы бы лучше пример приложили.
 
Через слэш отображается мерикосовая дата (месяц, день). И если Excel может преобразовать выражение к такой дате, он это делает. Лекарство отсутствует. По крайней мере для Replace.
Страницы: 1
Наверх