Excel это не сложно

Основные форумы => Вопросы по Excel и VBA => Тема начата: Leemonhell от 26.03.2020, 10:37:51



Название: Макрос VBA Для определения наименьшей даты с показателем >100%
Отправлено: Leemonhell от 26.03.2020, 10:37:51
Всем Доброго Дня!

Имеются заголовки с датами 01 - 10
под ними вниз идут строки с %
Необходимо для каждой следующей строки в контрольном  столбце показать наименьшую дату, когда % превышает 100.

Формулой у меня это получилось сделать (в файле примера столбцы L & M). Можно ли формулы для этих контрольных ячеек просто добавить в запуск макроса?

Нужен макрос, который будет определять наименьшую дату в строке с показателем >100%, выводить эту дату в ячейку, и выводить показатель % для этой даты.


Название: Re:Макрос VBA Для определения наименьшей даты с показателем >100%
Отправлено: Leemonhell от 27.03.2020, 12:28:10
Решение с Планеты:

Код: (vb)
Sub M()
Dim LastRow As Long

LastRow = ThisWorkbook.Sheets(1).[a1000000].End(xlUp).Row

    If LastRow > 3 Then
        ThisWorkbook.Sheets(1).Range("L4").FormulaArray = "=SMALL(IF(RC[-10]:RC[-1]>100%,R3C2:R3C11,""""),1)"
        ThisWorkbook.Sheets(1).Range("M4").FormulaR1C1 = "=HLOOKUP(RC[-1],R3C2:R8C11,ROW()-2,0)"
    End If
   
    If LastRow > 4 Then
        ThisWorkbook.Sheets(1).Range("L4:M4").AutoFill ThisWorkbook.Sheets(1).Range("L4:M" & LastRow)
    End If

End Sub