Исправить функцию Треугольного распределения

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Исправить функцию Треугольного распределения - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Исправить функцию Треугольного распределения (Макросы/Sub)

Исправить функцию Треугольного распределения

t330

Дата: Четверг, 06.02.2020, 21:51 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 147

Репутация: 0 ±

Замечаний: 20% ±

Excel 2016

Народ, здравствуйте.

Подскажите пожалуйста в чем затык в функции треугольного распределения ниже

Ввожу ее в ячейку B2 выдает Sub or function not defined
:

[vba]

Код

Option Explicit

Function Triangular(a As Double, b As Double, c As Double) As Double

       Application.Volatile
       Dim U As Double
       U = Rnd()
       If U < (c - a) / (b - a) Then
         Triangular = a + sqrt(U * (b - a) * (c - a))
       Else
         Triangular = b - sqrt((1 - U) * (b - c) * (b - a))
       End If
End Function

[/vba]