Excel vba sub
Автор Ольга Бартунская задал вопрос в разделе Другие языки и технологии
Программирование в Excel - VBA и получил лучший ответ
Ответ от Владимир Рудаков[гуру]
по моему так (без красивок, конечно, но работает) :Sub ffg() Dim x, y As Single '- можно сразу описать все однотипные переменные перечисляя их через запятую, описывать "a=2" не вижу смысла, во всяком случае по данному примеру, x = Val(InputBox("Введите x")) If x < 2 Then y = 1 + Sqr(2 * x) Cells(13, 12) = "При x = " & x Cells(13, 13) = "y = " & y ElseIf x = 2 Then' - пишется в одно слово y = Sqr(2) + Log(x ^ 2) Cells(14, 12) = "При x = " & x Cells(14, 13) = "y = " & y Else y = Sin(2 * x) Cells(15, 12) = "При x = " & x Cells(15, 13) = "y = " & yEnd IfMsgBox xMsgBox yend sub
Для начала надо пояснить, какие ошибки выводятся и где.Код надо запостить на сайт pastebin.com а сюда кинуть ссылку.Иначе его трудно читать. Хотя если Вы, как говорится, не привыкли ставить отступ слева внутри Sub..End Sub, то и это мало поможет.Поймите, у нас не бесконечно много времени, и скорее мы займёмся тем, за что нам платят или что нам интересно, чем разбором какого-то мутного кода с каким-то непонятными ошибками.