Формат Даты

[katerinkaj]

Сообщение от Fairuza

Руками в смысле Найти - Заменить?

угу.именно так.

[Fairuza]

Я понимаю, что напрягает, но цифирь-то всего 10. Пока умные люди думают..., но уверена, что-то все равно придумается.

У меня у самой время от времени бывает такая ситуация.

[Serge_Bliznykov]

katerinkaj
Бинго!!
я знаю, в чём у Вас проблема!
Мало того, что у Вас офис английский, так в Панели Управления в региональных настройках у Вас формат даты выставлен ДРУГОЙ!

согласно моему посту проделайте всё то, что я писал.
Только формулу вставьте такую:

=DATE(MID(H2,7,4),MID(H2,4,2),MID(H2,1,2))

_____________
ДОБАВЛЕНО.
_______________________


А вот и модификация макроса Игоря под Ваш Excel / Windows:

Sub CnvDate()
    For r = 1 To Cells(Rows.Count, 8).End(xlUp).Row
      If UCase(TypeName(Cells(r, 8).Value)) = "STRING" Then
        If Len(Cells(r, 8)) = 10 Then
           Cells(r, 8) = DateSerial(Mid(Cells(r, 8), 7, 4), Mid(Cells(r, 8), 4, 2), Mid(Cells(r, 8), 1, 2))
        End If
      End If
    Next
    Columns("H:H").NumberFormat = "mm\/dd\/yyyy"
End Sub

[katerinkaj]

Сообщение от Serge_Bliznykov

katerinkaj
Бинго!!
я знаю, в чём у Вас проблема!
Мало того, что у Вас офис английский, так в Панели Управления в региональных настройках у Вас формат даты выставлен ДРУГОЙ!

согласно моему посту проделайте всё то, что я писал.
Только формулу вставьте такую:

=DATE(MID(H2,7,4),MID(H2,4,2),MID(H2,1,2))

_____________
ДОБАВЛЕНО.
_______________________


А вот и модификация макроса Игоря под Ваш Excel / Windows:

Sub CnvDate()
    For r = 1 To Cells(Rows.Count, 8).End(xlUp).Row
      If UCase(TypeName(Cells(r, 8).Value)) = "STRING" Then
        If Len(Cells(r, 8)) = 10 Then
           Cells(r, 8) = DateSerial(Mid(Cells(r, 8), 7, 4), Mid(Cells(r, 8), 4, 2), Mid(Cells(r, 8), 1, 2))
        End If
      End If
    Next
    Columns("H:H").NumberFormat = "mm\/dd\/yyyy"
End Sub

сработало