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

Задача:

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

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

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

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

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 Sub

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

Пример

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

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