Минимальные и максимальные значения строк в таблице.

Хз где создать тему, решил, что здесь будет актуальнее.
У меня есть таблица цифр в экселе. Допустим, n строк и m столбцов. Я хочу, чтобы минимальное и максимальное число каждой строки выделялось своим цветом. Как это сделать - хз. Мучал "Условное форматирование", но там надо либо к каждой строке его применять, либо он выделяет одно значение в массиве.
Помогите решить проблему.
Гуглить пробовал, толком не на гуглил ничего.

а разве в условном форматировании нельзя задать формулу типа IF(XY = Max (строка/столбец))?
у меня вроде сработало. только кавычки вокруг формулы надо убрать.

Я хочу, чтобы минимальное и максимальное число каждой строки выделялось своим цветом. Как это сделать - хз.

в каждой строке своим?

Как говорится - не ищем простых путей

Sub Макрос1()
i = 1
Do
i = i + 1
Loop While Worksheets("Table").Cells(i, 1).Value <> ""
For j = 1 To i - 1
i1 = 1
max1 = -1000000000
min1 = 1000000000
maxcells = 0
mincells = 0
Do
m = Worksheets("Table").Cells(j, i1).Value
If m > max1 Then
max1 = m
maxcells = i1
End If
If m < min1 Then
min1 = m
mincells = i1
End If
i1 = i1 + 1
Loop While Worksheets("Table").Cells(j, i1).Value <> ""
Worksheets("Table").Cells(j, maxcells).Font.ColorIndex = 50
Worksheets("Table").Cells(j, mincells).Font.ColorIndex = 3
Next
End Sub

izekia @ 25.3.2010, 16:56
в каждой строке своим?

да, в каждой строке свои.

Sub Макрос1()
i = 1
Do
i = i + 1
Loop While Worksheets("Table").Cells(i, 1).Value <> ""
For j = 1 To i - 1
i1 = 1
max1 = -1000000000
min1 = 1000000000
maxcells = 0
mincells = 0
Do
m = Worksheets("Table").Cells(j, i1).Value
If m > max1 Then
max1 = m
maxcells = i1
End If
If m < min1 Then
min1 = m
mincells = i1
End If
i1 = i1 + 1
Loop While Worksheets("Table").Cells(j, i1).Value <> ""
Worksheets("Table").Cells(j, maxcells).Font.ColorIndex = 50
Worksheets("Table").Cells(j, mincells).Font.ColorIndex = 3
Next
End Sub

Во, спасибо. Только куда этот макрос вставлять? И как сделать, чтобы выделялось не число, а ячейка. К примеру, с наименьшим значенме зеленым, с наибольшим - красным.

Grek @ 25.3.2010, 17:03
Во, спасибо. Только куда этот макрос вставлять? И как сделать, чтобы выделялось не число, а ячейка. К примеру, с наименьшим значенме зеленым, с наибольшим - красным.

alt+F11

Worksheets("Table").Cells(j, maxcells).Interior.ColorIndex = 50
Worksheets("Table").Cells(j, mincells).Interior.ColorIndex = 3

вместо

Worksheets("Table").Cells(j, maxcells).Font.ColorIndex = 50
Worksheets("Table").Cells(j, mincells).Font.ColorIndex = 3

За спасибо, спасибо

lepavel @ 25.3.2010, 16:59
Как говорится - не ищем простых путей

Sub Макрос1()
i = 1
Do
i = i + 1
Loop While Worksheets("Table").Cells(i, 1).Value <> ""
For j = 1 To i - 1
i1 = 1
max1 = -1000000000
min1 = 1000000000
maxcells = 0
mincells = 0
Do
m = Worksheets("Table").Cells(j, i1).Value
If m > max1 Then
max1 = m
maxcells = i1
End If
If m < min1 Then
min1 = m
mincells = i1
End If
i1 = i1 + 1
Loop While Worksheets("Table").Cells(j, i1).Value <> ""
Worksheets("Table").Cells(j, maxcells).Font.ColorIndex = 50
Worksheets("Table").Cells(j, mincells).Font.ColorIndex = 3
Next
End Sub

жесть какая)
пошел эксель открывать

Здорово, спасибо. А как этот макрос применить не на всю таблицу, а на какую-то её часть?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsh As Worksheet
Dim crow As Range
Dim min As Range
Dim max As Range

Set wsh = Target.Worksheet
For i = wsh.UsedRange.row To wsh.UsedRange.row + wsh.UsedRange.Rows.Count - 1
Set crow = wsh.Range(wsh.Cells(i, wsh.UsedRange.Column), wsh.Cells(i, wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1))
Set min = crow.Cells(1, 1)
Set max = crow.Cells(1, 1)
For Each cell In crow
If max.Value < cell.Value Then
Set max = cell
ElseIf min.Value > cell.Value Then
Set min = cell
End If
Next cell
min.Interior.Color = RGB(255, 0, 0)
max.Interior.Color = RGB(0, 255, 0)
Next i
End Sub

цепляешь к любому воркшиту

interior можно заменить на Font , чтобы не цвет фона, а цвет текста менялся

Говорила мне мама на втором курсе, учи Visual Basic....

А если такая фигня. У меня на странице есть несколько таблиц данных. И закрасить мин и макс значение мне нужно не во всех таблицах, а в некоторых. Как тогда сделать?

P.S. Эксель, сцука, сложный.

ну и еще проблема будет в том, что если таблица со строками разной длины, то пустые ячейки будут выделяться как минимальные
и при изменении, все поправил:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsh As Worksheet
Dim crow As Range
Dim min As Range
Dim max As Range

Set wsh = Target.Worksheet
For i = wsh.UsedRange.row To wsh.UsedRange.row + wsh.UsedRange.Rows.Count - 1
Set crow = wsh.Range(wsh.Cells(i, wsh.UsedRange.Column), wsh.Cells(i, wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1))
Set min = crow.Cells(1, 1)
Set max = crow.Cells(1, 1)
For Each cell In crow
cell.Font.Color = RGB(0, 0, 0)
If cell.Value <> "" Then
If max.Value < cell.Value Then
Set max = cell
ElseIf min.Value > cell.Value Then
Set min = cell
End If
End If
Next cell
min.Font.Color = RGB(255, 0, 0)
max.Font.Color = RGB(0, 255, 0)
Next i
End Sub

Grek @ 25.3.2010, 17:45
Говорила мне мама на втором курсе, учи Visual Basic....

А если такая фигня. У меня на странице есть несколько таблиц данных. И закрасить мин и макс значение мне нужно не во всех таблицах, а в некоторых. Как тогда сделать?

P.S. Эксель, сцука, сложный.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsh As Worksheet
Dim crow As Range
Dim min As Range
Dim max As Range

Set wsh = Target.Worksheet
stCol = wsh.UsedRange.Column
endCol = wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1
stRow = wsh.UsedRange.row
endRow = wsh.UsedRange.row + wsh.UsedRange.Rows.Count - 1

For i = stRow To endRow
Set crow = wsh.Range(wsh.Cells(i, stCol), wsh.Cells(i, endCol))
Set min = crow.Cells(1, 1)
Set max = crow.Cells(1, 1)
For Each cell In crow
cell.Font.Color = RGB(0, 0, 0)
If cell.Value <> "" Then
If max.Value < cell.Value Then
Set max = cell
ElseIf min.Value > cell.Value Then
Set min = cell
End If
End If
Next cell
min.Font.Color = RGB(255, 0, 0)
max.Font.Color = RGB(0, 255, 0)
Next i
End Sub

где выделено задай диапазон stRow - это начальная строка и тп

чоэта?

izekia это походу "хуясе чо в экселе делать можно" ))
Спасибо тебе большое.
Завтра на работе буду пробовать дальнейшие изыскания)

stCol = wsh.UsedRange.Column
endCol = wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1
stRow = wsh.UsedRange.row
endRow = wsh.UsedRange.row + wsh.UsedRange.Rows.Count - 1

Это типа
stCol = wsh.UsedRange.Column (А5:H12)
endCol = wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1
stRow = wsh.UsedRange.row (А5:H12)
endRow = wsh.UsedRange.row + wsh.UsedRange.Rows.Count - 1

как-то так?

Это типа
stCol = 1
endCol = 8 (H=8, то что в скобках писать не надо)
stRow = 5
endRow = 12

как-то так?

ага, ты не представляешь что в экселе можно делать)
это такие мелочи

izekia @ 25.3.2010, 18:39
ага, ты не представляешь что в экселе можно делать)
это такие мелочи