VBA.Почему if / msgbox не работает? - Помощь студентам

furymaxim · 25.11.2017, 22:28

Код:

 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

Aleksandr H. · 25.11.2017, 23:46

Чем дефолтный вариант не устраивает?

Код:

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:53

Цитата:

Сообщение от 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

Цитата:

Сообщение от 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

Должен ли я сохранить это как макрос?

Aleksandr H. · 26.11.2017, 00:15

Ну как вариант

Код:

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

25.11.2017, 23:46	#2
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 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` Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

26.11.2017, 00:15	#5
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 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` Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
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