Добрый день!
Написал код, который находит первые 10 строк с максимальными значениями в диапазоне rng (столбцы 5, 7, 9) и подкрашивает соответствующие ячейки в столбце 1 (ниже). А как теперь сделать так чтобы код находил 10 максимальных АБСОЛЮТНЫХ значений? Уже голову сломал, ничего не выходит, прошу подсказки.
Написал код, который находит первые 10 строк с максимальными значениями в диапазоне rng (столбцы 5, 7, 9) и подкрашивает соответствующие ячейки в столбце 1 (ниже). А как теперь сделать так чтобы код находил 10 максимальных АБСОЛЮТНЫХ значений? Уже голову сломал, ничего не выходит, прошу подсказки.
Код |
---|
Dim rng As Range Set rng1 = Range(Cells(1, 5), Cells(1000, 5)) Set rng2 = Range(Cells(1, 7), Cells(1000, 7)) Set rng3 = Range(Cells(1, 9), Cells(1000, 9)) Set rng = Union(rng1, rng2, rng3) With WorksheetFunction For i = 1 To 10 For ii = 1 To 1000 If .Max(Abs(Cells(ii, 5).Value), Abs(Cells(ii, 7).Value), Abs(Cells(ii, 9).Value)) = .Large(rng, i) Then Cells(ii, 1).Interior.Color = RGB(146, 208, 80) GoTo metka End If Next metka: Next End With |