Почему if не работает?

@furymaxim · Регистрация: 25.09.2016

Author24 — интернет-сервис помощи студентам

Visual Basic

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

@furymaxim · 25.11.2017, 22:14 **[ТС]**

Ну да,во втором снизу там end if нужен,но вопрос в целом,что не так.

~~Остап Бонд~~ · 25.11.2017, 22:27

IF -> [F1]

Visual Basic

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

@furymaxim · 25.11.2017, 22:33 **[ТС]**

Спасибо за ответ.А можно поподробней,что не так вообще было,по коду вроде ничего(почти) не изменилось...Но сообщение тоже не выскакивает даже сейчас

~~Остап Бонд~~ · 25.11.2017, 23:03

Сообщение от furymaxim

поподробней

-F1 на слове If, я уже говорил.

Сообщение от furymaxim

сообщение тоже не выскакивает даже сейчас

Откуда я знаю, где вы и как вызываете эти функции...

@furymaxim · 25.11.2017, 23:05 **[ТС]**

У меня не установлена справка на ПК.

~~Остап Бонд~~ · 25.11.2017, 23:18

в строку формул запишите

Код

=функция1(R4C1)

@furymaxim · 25.11.2017, 23:31 **[ТС]**

Выскакивает ошибка в самом Excel

~~Остап Бонд~~ · 25.11.2017, 23:34

Файл приложите, гадание по картам-пустая трата времени.

@furymaxim · 25.11.2017, 23:39 **[ТС]**

Конечно,надо было сразу так сделать! Без if все работает и msgbox ,но нужно учесть 0 в знаменателе первых двух функций

~~Остап Бонд~~ · 25.11.2017, 23:58

Так вы функции так и не исправили.

@furymaxim · 26.11.2017, 00:03 **[ТС]**

спасибо большое

@MU-GK · 27.11.2017, 01:42

Не совсем по теме, но всё-таки.
Так вот, по моей работе надо постоянно проверять деление на ноль.
Поскольку это дело муторное и велика вероятность ошибки, ну и стройность кода нарушается, в какой-то момент я плюнул, и завёл себе ряд функций, примерно вот таких:

Visual Basic

Function PerCent(Piece, Whole) As Double
 If Whole > 0 Then
   PerCent = 100 * Piece / Whole
 Else
  PerCent = 0
 End If
End Function
Function DivRes(ByVal a, ByVal b) As Double
 If b > 0 Then
   DivRes = a / b
 Else
  DivRes = 0
 End If
End Function

На самом деле и другие делаю по мере надобности.

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
	26.11.2017, 00:03 [ТС]	12
	спасибо большое 0

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
	25.11.2017, 22:14 [ТС]	2
	Ну да,во втором снизу там end if нужен,но вопрос в целом,что не так. 0

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
	25.11.2017, 22:33 [ТС]	4
	Спасибо за ответ.А можно поподробней,что не так вообще было,по коду вроде ничего(почти) не изменилось...Но сообщение тоже не выскакивает даже сейчас 0

~~Остап Бонд~~ Заблокирован
	25.11.2017, 23:03	5
	Сообщение от furymaxim поподробней -F1 на слове If, я уже говорил. Сообщение от furymaxim сообщение тоже не выскакивает даже сейчас Откуда я знаю, где вы и как вызываете эти функции... 0

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
	25.11.2017, 23:05 [ТС]	6
	У меня не установлена справка на ПК. Миниатюры 0

~~Остап Бонд~~ Заблокирован
	25.11.2017, 23:18	7
	в строку формул запишите Код =функция1(R4C1) 0

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
	25.11.2017, 23:31 [ТС]	8
	Выскакивает ошибка в самом Excel Миниатюры 0

~~Остап Бонд~~ Заблокирован
	25.11.2017, 23:34	9
	Файл приложите, гадание по картам-пустая трата времени. 0

	27.11.2017, 01:42

Почему if не работает?

Решение