Сделать элементы главной диагонали матрицы одним цветом, выше — другим, ниже третьим.
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 |
Проход по всему массиву и если i=j (главная диагональ) то зеленым, если i<j (выше) то красный, в ином случае черным. Пример: