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

Задача:

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

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

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

1
2
3
4
5
6
7
8
9
10
11
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
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

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