excel vba if

Ответ от Ev[гуру]
Для корректной работы условия If в Excel VBA важно соблюдать синтаксис блочной структуры. Если после выполнения условия требуется несколько действий или использование ElseIf, оператор Then должен завершать строку, а сами команды начинаться с новой строки. Завершается такой блок оператором End If. Также в коде присутствует ошибка типов данных. Переменные n, m, p, k объявлены как числовые Single, но им присваивается значение свойства Text, которое является строкой. Перед присваиванием строковое значение необходимо явно преобразовать в число с помощью функции CSng или Val. Правильный пример оформления выглядит так:
Dim n As Single, m As Single
n = CSng(TextBox1. Text)
m = CSng(TextBox2. Text)
If n > m Then
k = n + m
ElseIf n = m Then
k = n * m
End IfТакой подход исключит ошибки несоответствия типов и обеспечит верное выполнение всех условий.