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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
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 (выше) то красный, в ином случае черным. Пример:

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