Excel: найти максимум в строках при совпадении условия по всем столбцам - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте есть задача реализованная в виде формулы, но появился нюанс, надо будет наращивать файл данными(увеличивать кол-во столбцов, строк) , а человек(началник) который будет заполнять этот файл владеет экселом очень плохо. и возникла необходимость реализовать эту задачу макросом чтобы потом привязать к кнопке, т.е. нажав на кнопку ,первый столбец сам проставился.

суть задачи: Необходимо найти максимальную дату(ДатаЗаменыАКБ) в строке по всем столбцам и вставить её в самый первый столбец(ЗаменаАКБ) при отсутствии даты подставляло бы какое то значение, к примеру "нет даты"

, что будет являться критерием о забытом техниками устройстве. Пояснение: Эта дата будет являться плановой для планирования Закупок. Вкладываю пример____И Б П v 1 5____.7z Заранее благодарен

Решение задачи: «Excel: найти максимум в строках при совпадении условия по всем столбцам»

textual
Листинг программы
Sub Дата_замены_АКБ()
    Dim i&, j&, LastRow&, LastColumn&, A, MaxDate As Date
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    LastColumn = ActiveSheet.UsedRange.Columns.Count
    A = Range([A1], Cells(LastRow, LastColumn)).Value
    Range("A3:A" & LastRow).Interior.Pattern = xlNone
    For i = 3 To LastRow
        MaxDate = 0
        For j = 10 To LastColumn Step 5
            If IsDate(A(i, j)) Then
                If MaxDate < A(i, j) Then MaxDate = A(i, j)
            End If
        Next j
        If MaxDate > 0 Then
            Cells(i, 1) = DateAdd("yyyy", 3, MaxDate)
        Else
            Cells(i, 1) = "нет даты"
            Cells(i, 1).Interior.color = 13551615
        End If
    Next i
End Sub

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы