|
▼けい さん:
>アークタンジェントはAtn
>アークコサイン、アークサインもAtn
>でプログラムすればいいんですか?
>
>(アークタンジェント)
>A=5
>B=1
>C=1
>Atn(A/ B) * 180 / Application.PI
>
>(アークサイン)
>Atn(C / B) * 180 / Application.PI
>
>でいいんでしょうか?
それではアークサインにはなりません。
VBAには逆関数はアークタンジェントしか用意されていません。
なぜかは知りませんが、おそらく最初に私が掲示したコードのように
πを算出する為ではないかと思いますが。
(エクセルVBAではワークシート関数でPIがありますが
普通のVBなどではπを出すのに4*atn(1)を使う)
で、そもそもエクセルVBAでしたらワークシート関数が使えるので
アークサイン = Application.WorksheetFunction.Asin(B / C) * 180 / .Pi
アークコサイン = Application.WorksheetFunction.Acos(a / C) * 180 / .Pi
ワークシートの関数を使うようにしてはどうでしょうか?
|
|