VBA: Определить, число, больше, меньше или равно нулю

Задача:

В клетке В2 сделайте сообщение о том, какое число записано в клетку А2 – положительное, отрицательное или ноль.

Для ее решения используется простая лесенка If Else If:

Исходный код:

Sub Button1_Click()
     If (Cells(2, 1).Value > 0) Then
        Cells(2, 2).Value = "Больше нуля"
     Else
        If (Cells(2, 1).Value < 0) Then
            Cells(2, 2).Value = "Меньше нуля"
        Else
            Cells(2, 2).Value = "Равно нулю"
        End If
     End If
End Sub

Пример работы программы:

Пример

Скачать документ Excel

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 < 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 (выше) то красный, в ином случае черным. Пример:

Continue reading