Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20023 / 76732

←次へ　｜　前へ→


	【62134】Re:アークタンジェント　Atn

もも - 09/6/24(水) 0:07 -


	引用なし

	パスワード

▼けいさん：
>アークタンジェントはAtn
>アークコサイン、アークサインもAtn
>でプログラムすればいいんですか？
>
>(アークタンジェント）
>A=5
>B=1
>C=1
>Atn(A/ B) * 180 / Application.PI
>
>（アークサイン）
>Atn(C / B) * 180 / Application.PI
>
>でいいんでしょうか？

それではアークサインにはなりません。
ＶＢＡには逆関数はアークタンジェントしか用意されていません。
なぜかは知りませんが、おそらく最初に私が掲示したコードのように
πを算出する為ではないかと思いますが。
（エクセルＶＢＡではワークシート関数でPIがありますが
　普通のＶＢなどではπを出すのに4*atn(1)を使う）

で、そもそもエクセルVBAでしたらワークシート関数が使えるので

アークサイン = Application.WorksheetFunction.Asin(B / C) * 180 / .Pi
アークコサイン = Application.WorksheetFunction.Acos(a / C) * 180 / .Pi

ワークシートの関数を使うようにしてはどうでしょうか？

2 hits

▼

【62126】アークタンジェント　Atn けい 09/6/23(火) 19:52