Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2017, 22:28   #1
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию VBA.Почему if / msgbox не работает?

Код:
 Public Function функция1(x) As Double
If (x = 0) Then MsgBox("x не может быть равен 0") As VbMsgBoxResult
Else
   функция1 = (Cos(Application.Pi() * x) / x) + Sin(Application.Pi() * x) * x
End If
End Function
Изображения
Тип файла: jpg Screenshot_4.jpg (89.4 Кб, 125 просмотров)

Последний раз редактировалось furymaxim; 25.11.2017 в 23:00.
furymaxim вне форума Ответить с цитированием
Старый 25.11.2017, 23:46   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Чем дефолтный вариант не устраивает?
Код:
Public Function функция1(x) As Double
If (x = 0) Then
    MsgBox ("x не может быть равен 0")
Else
   функция1 = (Cos(Application.Pi() * x) / x) + Sin(Application.Pi() * x) * x
End If
End Function
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 25.11.2017, 23:53   #3
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Чем дефолтный вариант не устраивает?
Код:
Public Function функция1(x) As Double
If (x = 0) Then
    MsgBox ("x не может быть равен 0")
Else
   функция1 = (Cos(Application.Pi() * x) / x) + Sin(Application.Pi() * x) * x
End If
End Function

Почему то у меня ничего не появляется и выдает ошибку !имя,но окошка нет
furymaxim вне форума Ответить с цитированием
Старый 25.11.2017, 23:56   #4
furymaxim
Пользователь
 
Регистрация: 25.11.2017
Сообщений: 28
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Чем дефолтный вариант не устраивает?
Код:
Public Function функция1(x) As Double
If (x = 0) Then
    MsgBox ("x не может быть равен 0")
Else
   функция1 = (Cos(Application.Pi() * x) / x) + Sin(Application.Pi() * x) * x
End If
End Function
Должен ли я сохранить это как макрос?
furymaxim вне форума Ответить с цитированием
Старый 26.11.2017, 00:15   #5
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Ну как вариант
Код:
Public Function функция1(x)
If (x = 0) Then
    функция1 = "x не может быть равен 0"
Else
   функция1 = (Cos(Application.Pi() * x) / x) + Sin(Application.Pi() * x) * x
End If
End Function
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MsgBox в VBA Stepan_888 Помощь студентам 0 14.05.2016 09:55
Вывод предупреждающей msgbox при незаполненной форме, VBA TimofeyT Microsoft Office Excel 6 10.10.2013 13:54
Почему не работает код? VBA mozart2012 Помощь студентам 1 05.01.2013 14:50
можно ли В VBA изменить шрифт для MsgBox? roborrr Microsoft Office Excel 1 27.02.2011 14:59
VBA и сводная таблица - почему не работает? kievlyanin Microsoft Office Excel 1 14.08.2009 13:19