VBA: Определить, число, больше, меньше или равно нулю
17.11.2012
Задача:
В клетке В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
Пример работы программы:
Пример