VBA, Раскрасить матрицу

Сделать элементы главной диагонали матрицы одним цветом, выше — другим, ниже третьим.

Public Sub glav_diag()
Dim i As Integer
Dim j As Integer

n = InputBox("n=")

For i = 1 To n
  For j = 1 To n
    If i = j Then
      Cells(i, j).Interior.Color = vbGreen
    End If
    If i &lt; j Then
      Cells(i, j).Interior.Color = vbRed
    End If
    If i &gt; j Then
      Cells(i, j).Interior.Color = vbBlack
    End If
  Next j
Next i
End Sub

Public Sub glav_diag()

Dim i As Integer

Dim j As Integer

n = InputBox("n=")

For i = 1 To n

For j = 1 To n

If i = j Then

Cells(i, j).Interior.Color = vbGreen

End If

If i < j Then

Cells(i, j).Interior.Color = vbRed

End If

If i > j Then

Cells(i, j).Interior.Color = vbBlack

End If

Next j

Next i

End Sub

Проход по всему массиву и если i=j (главная диагональ) то зеленым, если i<j (выше) то красный, в ином случае черным. Пример:

Добавить комментарий Отменить ответ