Выделение цветом минимального значения

[elena1704]

Уважаемые форумчане!

Есть много столбцов с цифрами, в каждом нужно выбрать минимальное и максимальное значение и выделить цветом. Я знаю как это сделать через условное форматирование, но получается довольно сложно. Есть другие варианты?

[IgorGO]

я тоже знаю как это сделать условным форматированием.
отметить весь диапазон и использовать:

=rc=мин(с)

это по Вашему сложная формула?

[elena1704]

Сообщение от IgorGO

я тоже знаю как это сделать условным форматированием.
отметить весь диапазон и использовать:

=rc=мин(с)

это по Вашему сложная формула?

Не побоюсь снова показаться глупой, но у меня не получилось! Выделить весь массив или столбец (мне нужно выбрать максимальные и минимальные значения в каждом столбце)? При выборе "Условного форматирования" нужно выбрать правило "="? и в строку "=" ввести предложенную формулу? Эксель на это мне отвечает, что нужно ввести допустимую формулу!

[Aleksandr H.]

Ну введите допустимую формулу замените формулу IgorGO на формулу формата А1

[IgorGO]

ексель Вам не предложил перевести его в режим R1C1?

даже если не предлагал - сделайте это самостоятельно:
1. переведите ексель в режим R1C1
2. отметьте требуемый диапазон
3. условное форматирование
4. создать правило
5. использовать формулу для определения формата ячеек
6. скопируйте формулу из сообщения выше
7. выберите желаемый формат ячейки
8. Ок
9. Ок

будут вопросы - пишите!

[svsh2016]

добрый день,протестируйте макросы минимального и максимального значения

Sub test()
Dim z(), i&, j&, m#, i1&
z = Range("A1").CurrentRegion.Value
For j = 1 To UBound(z, 2)
    m = 0
    For i = 1 To UBound(z)
        If z(i, j) > m Then
           m = z(i, j)
        End If
 Next
 i1 = Range(Cells(1, j), Cells(UBound(z), j)).Find(m).Row
  Cells(i1, j).Font.Color = -16776961
 Next
End Sub

Sub test2()
Dim z(), i&, j&, m1#, i1&
z = Range("A1").CurrentRegion.Value
For j = 1 To UBound(z, 2)
    m1 = Cells(1, j).Value
    For i = 1 To UBound(z)
        If z(i, j) < m1 Then
           m1 = z(i, j)
        End If 
 Next
 i1 = Range(Cells(1, j), Cells(UBound(z), j)).Find(m1).Row
  Cells(i1, j).Interior.Color = 15773696
 Next
End Sub

[IgorGO]

svsh2016,
1. допустим сработали эти замечательные макросы
2. изменились данные
3. выполнили макросы повторно

Вам не кажется, что появление в данным значений меньше ранее существовавших минимальных (и больше максимальных) приведет (при повторном выполнении макросов) к тому, что останутся отмеченными старые значения и добавятся новые

[svsh2016]

добавлю макрос очистка

Sub очистка()
    Cells.Interior.Pattern = xlNone
    Cells.Font.ColorIndex = xlAutomatiс
End Sub

[IgorGO]

а если elena1704 положила 3 месяца работы на получение красивой (с ее точки зрения) таблицы
а Вы вот так, двумя строками, все это снесете... думаю, она будет очень рада

[svsh2016]

добрый вечер, интересно,где эта гипотетическая таблица,создателя
темы...Можно также такой макрос очистки.

Sub очистка2()
   Dim c As Range
   For Each c In Range("A1:AC" & Range("A" & Rows.Count).End(xlUp).Row)
    If c.Interior.Color = 15773696 Then c.Interior.Pattern = xlNone
   Next
   Cells.Font.ColorIndex = xlAutomatic
End Sub