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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д