Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исправить функцию Треугольного распределения (Макросы/Sub)
Исправить функцию Треугольного распределения
t330 Дата: Четверг, 06.02.2020, 21:51 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 0% ±

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]
К сообщению приложен файл: test.xlsm(24.9 Kb)
 
Ответить
СообщениеНарод, здравствуйте.

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

Ввожу ее в ячейку 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]

Автор - t330
Дата добавления - 06.02.2020 в 21:51
Pelena Дата: Четверг, 06.02.2020, 22:33 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 15213
Репутация: 3334 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Попробуйте вместо sqrt написать Sqr


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Попробуйте вместо sqrt написать Sqr

Автор - Pelena
Дата добавления - 06.02.2020 в 22:33
t330 Дата: Пятница, 07.02.2020, 00:08 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Попробуйте вместо sqrt написать Sqr


Спасибо, помогли!:)
 
Ответить
Сообщение
Попробуйте вместо sqrt написать Sqr


Спасибо, помогли!:)

Автор - t330
Дата добавления - 07.02.2020 в 00:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исправить функцию Треугольного распределения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!