Страницы: 1
RSS
Преобразование текстового формата даты в числовой в vba
 
Доброго времени суток! Форумчане, уже мозг взорвался, перепробовал несколько методов, предложенных когда-то на разных форумах.
В файле вырезал нужный кусок. Сделать надо именно в vba, т.к. это часть макроса... из-за этого он некорректно проводит сортировку по дате.
верхние даты скопированы из одного файла, нижние из другого, поэтому оказалось, что вверху текстовый формат, внизу числовой формат даты...
 
UDF
Код
Function iDate(cell As String) As Date
  iDate = CDate(cell)
End Function
 
Код
Sub jjj()
    Dim cl As Range
    
    Selection.NumberFormat = "m/d/yyyy"
    Selection.HorizontalAlignment = xlGeneral
    For Each cl In Selection
        cl.Value = CDate(cl.Value)
    Next cl
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
JayBhagavan, спасибо, вроде это сработало, но я задам еще один вопрос. С форматом теперь все нормально, но сортировка не идет... кто-нибудь может определить почему?
 
А мой вариант, что не подошел?
 
Kuzmich, и вам спасибо, тут однократно решил воспользоваться вторым вариантом, но суть одна ведь.
 
Цитата
но сортировка не идет... кто-нибудь может определить почему?
Уберите структуру
 
Kuzmich, что вы имеете в виду?
 
Данные - группа и структура - разгруппировать
 
Kuzmich, спасибо, попробую, этого я и не заметил, притекло из другого файла
Страницы: 1
Наверх