выбрать минимум и максимум не учитывая ноль

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/выбрать минимум и максимум не учитывая ноль - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

выбрать минимум и максимум не учитывая ноль (Макросы/Sub)

выбрать минимум и максимум не учитывая ноль

Oleg34

Дата: Суббота, 06.10.2018, 15:42 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте! Как не учитывать "0" при нахождении минимума и максимума?
[vba]

Код

Sub min_max()

Dim i As Integer
Dim j As Integer
Dim maxCell As Double
Dim minCell As Double

'находим максимальное и мнимальное значение для смены
For i = 3 To 21
    For j = 4 To 10
        maxCell = Application.Max(Range(Cells(3, j), Cells(21, j)))
        Range(Cells(3, j), Cells(21, j)).Find(maxCell).Interior.Color = RGB(255, 153, 204)

            If Cells(i, j).Value > 0 Then
                minCell = Application.Min(Range(Cells(3, j), Cells(21, j)))
                Range(Cells(3, j), Cells(21, j)).Find(minCell).Interior.Color = RGB(204, 255, 153)
            End If
    Next
Next
End Sub

[/vba]

К сообщению приложен файл: 9511702.xlsm (19.1 Kb)

Ответить

_Boroda_

Дата: Суббота, 06.10.2018, 16:27 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Вручную раскрасьте ячейки так, как нужно, чтобы было. А то не совсем понятно что Вы хотите

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

выбрать минимум и максимум не учитывая ноль (Макросы/Sub)

Страница 1 из 1
1