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

Вход

Регистрация

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

 

= Мир MS Excel/Как в Вба Excel считать арксинусы? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как в Вба Excel считать арксинусы? (Макросы/Sub)
Как в Вба Excel считать арксинусы?
Юрий_Нд Дата: Пятница, 29.11.2019, 14:25 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Доброго дня Всем.
Поделитесь пожалуйста, как Вы в Вба Excel считаете арксинусы?
Спасибо _____________ Юрий.


Сообщение отредактировал Юрий_Нд - Пятница, 29.11.2019, 14:55
 
Ответить
СообщениеДоброго дня Всем.
Поделитесь пожалуйста, как Вы в Вба Excel считаете арксинусы?
Спасибо _____________ Юрий.
Автор - Юрий_Нд
Дата добавления - 29.11.2019 в 14:25
Gustav Дата: Пятница, 29.11.2019, 14:35 | Сообщение № 2
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Дык функции же есть - Sin, Cos, Tan, Atn. С ними и считаем. Аргументы - в радианах подставляем.

МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеДык функции же есть - Sin, Cos, Tan, Atn. С ними и считаем. Аргументы - в радианах подставляем.
Автор - Gustav
Дата добавления - 29.11.2019 в 14:35
Юрий_Нд Дата: Пятница, 29.11.2019, 14:58 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Спасибо Gustav, немножко "подправил" свои сообщения.
Проблема только с арксинусом.
 
Ответить
СообщениеСпасибо Gustav, немножко "подправил" свои сообщения.
Проблема только с арксинусом.
Автор - Юрий_Нд
Дата добавления - 29.11.2019 в 14:58
Gustav Дата: Пятница, 29.11.2019, 15:03 | Сообщение № 4
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Цитата Юрий_Нд, 29.11.2019 в 14:58, в сообщении № 3 ()
Проблема только с арксинусом.

Ну, так за производными функциями надо нырять в какой-нибудь математический справочник и составлять формулу из имеющихся в распоряжении четырех функций:
[vba]
Код
arcsin(a) = Atn(a / Sqr(1 - a ^ 2))
[/vba]
"какой-нибудь математический справочник" - например, такой.

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
Цитата Юрий_Нд, 29.11.2019 в 14:58, в сообщении № 3 ()
Проблема только с арксинусом.

Ну, так за производными функциями надо нырять в какой-нибудь математический справочник и составлять формулу из имеющихся в распоряжении четырех функций:
[vba]
Код
arcsin(a) = Atn(a / Sqr(1 - a ^ 2))
[/vba]
"какой-нибудь математический справочник" - например, такой.
Автор - Gustav
Дата добавления - 29.11.2019 в 15:03
bmv98rus Дата: Пятница, 29.11.2019, 15:04 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4115
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Юрий_Нд, https://zaochnik.com/spravoc....arktang

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеЮрий_Нд, https://zaochnik.com/spravoc....arktang
Автор - bmv98rus
Дата добавления - 29.11.2019 в 15:04
Юрий_Нд Дата: Пятница, 29.11.2019, 15:21 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Спасибо за ответы.
Получается, что нужно свою функцию писать?
Не понимаю такой логики разработчиков Microsoft Excel.
 
Ответить
СообщениеСпасибо за ответы.
Получается, что нужно свою функцию писать?
Не понимаю такой логики разработчиков Microsoft Excel.
Автор - Юрий_Нд
Дата добавления - 29.11.2019 в 15:21
Nic70y Дата: Пятница, 29.11.2019, 16:40 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    u = Application.Asin(Range("c1"))
[/vba]
[p.s.]arcsin(a) = Atn(a / Sqr(1 - a ^ 2)) при а = 1 выдаст ошибку[/p.s.]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 29.11.2019, 16:42
 
Ответить
Сообщение[vba]
Код
    u = Application.Asin(Range("c1"))
[/vba]
[p.s.]arcsin(a) = Atn(a / Sqr(1 - a ^ 2)) при а = 1 выдаст ошибку[/p.s.]
Автор - Nic70y
Дата добавления - 29.11.2019 в 16:40
_Boroda_ Дата: Пятница, 29.11.2019, 16:56 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
a = WorksheetFunction.Asin(Cells(1))
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
a = WorksheetFunction.Asin(Cells(1))
[/vba]
Автор - _Boroda_
Дата добавления - 29.11.2019 в 16:56
Nic70y Дата: Пятница, 29.11.2019, 17:03 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Цитата _Boroda_, 29.11.2019 в 16:56, в сообщении № 8 ()
WorksheetFunction
, не
Цитата _Boroda_, 29.11.2019 в 16:56, в сообщении № 8 ()
Application
круче :)
К сообщению приложен файл: 0058102.xlsm (17.5 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата _Boroda_, 29.11.2019 в 16:56, в сообщении № 8 ()
WorksheetFunction
, не
Цитата _Boroda_, 29.11.2019 в 16:56, в сообщении № 8 ()
Application
круче :)
Автор - Nic70y
Дата добавления - 29.11.2019 в 17:03
Юрий_Нд Дата: Пятница, 29.11.2019, 19:21 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Дорогие товарищи, спасибо за последние три сообщения, но я извиняюсь, ничего не понял.
Не могли бы Вы мне по рабоче-крестьянски показать, что арксинус 0,5 равняется 30?
 
Ответить
СообщениеДорогие товарищи, спасибо за последние три сообщения, но я извиняюсь, ничего не понял.
Не могли бы Вы мне по рабоче-крестьянски показать, что арксинус 0,5 равняется 30?
Автор - Юрий_Нд
Дата добавления - 29.11.2019 в 19:21
Gustav Дата: Пятница, 29.11.2019, 19:53 | Сообщение № 11
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Цитата Юрий_Нд, 29.11.2019 в 19:21, в сообщении № 10 ()
арксинус 0,5 равняется 30

[vba]
Код
WorksheetFunction.Asin(0.5) * 180 / WorksheetFunction.Pi
[/vba]

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
Цитата Юрий_Нд, 29.11.2019 в 19:21, в сообщении № 10 ()
арксинус 0,5 равняется 30

[vba]
Код
WorksheetFunction.Asin(0.5) * 180 / WorksheetFunction.Pi
[/vba]
Автор - Gustav
Дата добавления - 29.11.2019 в 19:53
Nic70y Дата: Суббота, 30.11.2019, 08:56 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    u = Application.Asin(Cells(1)) * Application.Degrees(1)
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
    u = Application.Asin(Cells(1)) * Application.Degrees(1)
[/vba]
Автор - Nic70y
Дата добавления - 30.11.2019 в 08:56
RAN Дата: Суббота, 30.11.2019, 10:05 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата Nic70y, 29.11.2019 в 17:03, в сообщении № 9 ()
Application
круче

Круче только яйца.
Где-то на Планете пробегала тема, в которой рассматривалось использование функций листа, и, в частности, случаи, когда варианты
[vba]
Код
x = Application.WorksheetFunction.Function(Arg)
x = WorksheetFunction.Function(Arg)
x = Application.Function(Arg)
[/vba]
возвращали различные значения.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата Nic70y, 29.11.2019 в 17:03, в сообщении № 9 ()
Application
круче

Круче только яйца.
Где-то на Планете пробегала тема, в которой рассматривалось использование функций листа, и, в частности, случаи, когда варианты
[vba]
Код
x = Application.WorksheetFunction.Function(Arg)
x = WorksheetFunction.Function(Arg)
x = Application.Function(Arg)
[/vba]
возвращали различные значения.
Автор - RAN
Дата добавления - 30.11.2019 в 10:05
Nic70y Дата: Суббота, 30.11.2019, 12:07 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Цитата RAN, 30.11.2019 в 10:05, в сообщении № 13 ()
различные
ну для этого есть метод науного тыка

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата RAN, 30.11.2019 в 10:05, в сообщении № 13 ()
различные
ну для этого есть метод науного тыка
Автор - Nic70y
Дата добавления - 30.11.2019 в 12:07
bmv98rus Дата: Суббота, 30.11.2019, 14:26 | Сообщение № 15
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4115
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Ой не знаю, если б не название темы,
Цитата Юрий_Нд, 29.11.2019 в 14:25, в сообщении № 1 ()
Как в Вба Excel считать
то по мне ближе №4 и подобные математические. Ибо будет работать не только в Excel.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеОй не знаю, если б не название темы,
Цитата Юрий_Нд, 29.11.2019 в 14:25, в сообщении № 1 ()
Как в Вба Excel считать
то по мне ближе №4 и подобные математические. Ибо будет работать не только в Excel.
Автор - bmv98rus
Дата добавления - 30.11.2019 в 14:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как в Вба Excel считать арксинусы? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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