Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выбрать минимум и максимум не учитывая ноль (Макросы/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)
 
Ответить
СообщениеЗдравствуйте! Как не учитывать "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]

Автор - Oleg34
Дата добавления - 06.10.2018 в 15:42
_Boroda_ Дата: Суббота, 06.10.2018, 16:27 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13698
Репутация: 5587 ±
Замечаний: 0% ±

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


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

Автор - _Boroda_
Дата добавления - 06.10.2018 в 16:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выбрать минимум и максимум не учитывая ноль (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!