Окрашивание максимального и минимального

@Marod · Регистрация: 29.10.2015

Author24 — интернет-сервис помощи студентам

PureBasic

Private Sub кнопка_Click()
Dim a(10) As Integer
Dim max As Integer
Dim min As Integer
 
Range(Cells(2, 1), Cells(11, 3)).Font.ColorIndex = 1
j = 2
    
    For i = 1 To 10
      a(i) = Cells(j, 3).Value
      j = j + 1
    Next
max = 0
     For i = 1 To 10
        If a(i) >= max Then
        max = a(i)
        strmax = i
        End If
     Next
    
min = max
     
     For i = 1 To 10
        If a(i) < min Then
        min = a(i)
        strmin = i
        End If
     Next
 
Range(Cells(strmin + 1, 1), Cells(strmin + 1, 3)).Font.ColorIndex = 5
Range(Cells(strmax + 1, 1), Cells(strmax + 1, 3)).Font.ColorIndex = 3
 
 
End Sub

Что остаётся добавить чтобы в случае повтора максимальных или минимальных элементов окрашивался не только первый максимальный например

SoftIce · 25.12.2015, 07:25

Вместо 30 и 31 строк еще один цикл

Visual Basic

 For i = 1 To 10
        If a(i) = min Then Range(Cells(i + 1, 1), Cells(i + 1, 3)).Font.ColorIndex = 5
        If a(i) = max Then Range(Cells(i + 1, 1), Cells(i + 1, 3)).Font.ColorIndex = 3
     Next

А зачем вы меняете цвет шрифта диапазона? Так и задумано?

@nuHrBuH · 25.12.2015, 11:33

Если максимальные элементы могут быть меньше нуля, то лучше присваивать

Visual Basic

1 2	max = a(1) strmax = 1

	25.12.2015, 11:33