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