Всем привет!
Помогите решить задачу по нахождению максимального значения даты в столбце с помощью кода.
Проблема заключается в том, что использовать функцию MAX не предоставляется возможным, т.к. в этом столбце есть текстовые значения.
Формат даты если подвести курсор к значениям - общий.
Нашел на зарубежных форумах код. Перебирает значения, формирует массив дат, и потом там находит максимальное значение.
Но мне выдает 0. Подскажите почему?
Буду признателен за помощь.
Помогите решить задачу по нахождению максимального значения даты в столбце с помощью кода.
Проблема заключается в том, что использовать функцию MAX не предоставляется возможным, т.к. в этом столбце есть текстовые значения.
Формат даты если подвести курсор к значениям - общий.
Нашел на зарубежных форумах код. Перебирает значения, формирует массив дат, и потом там находит максимальное значение.
Но мне выдает 0. Подскажите почему?
Буду признателен за помощь.
| Код |
|---|
Sub test()
Dim Date_Array() As Date, i As Long, j As Long
With Sheets("Отчет")
For i = 12 To 3479
If IsDate(.Range("C" & i).Value) Then
j = j + 1
ReDim Preserve Date_Array(1 To j)
Date_Array(j) = .Range("C" & i).Value
End If
Next
End With
MsgBox IIf(j = 0, "No date", Application.Max(Date_Array))
End Sub
|
файл дайте!