Сделать элементы главной диагонали матрицы одним цветом, выше — другим, ниже третьим. 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,
29.09.2012