VBA 三角比をもとめる Sin関数 Cos関数 Tan関数 角度をもとめる Atn関数

Sin【ｻｲﾝ】関数 Cos【ｺｻｲﾝ】関数 Tan【ﾀﾝｼﾞｪﾝﾄ】関数

• Sin【ｻｲﾝ】関数は指定された角度（ラジアン）に対する正弦を返します。
  【c辺の長さに対するa辺の長さの比率を返します。】
• Cos【ｺｻｲﾝ】関数は指定された角度（ラジアン）に対する余弦を返します。
  【c辺の長さに対するb辺の長さの比率を返します。】
• Tan【ﾀﾝｼﾞｪﾝﾄ】関数は指定された角度（ラジアン）に対する正接を返します。
  【b辺の長さに対するa辺の長さの比率を返します。】

Sin【ｻｲﾝ】関数 Cos【ｺｻｲﾝ】関数 Tan【ﾀﾝｼﾞｪﾝﾄ】関数の書式と引数の説明

Sin(Number)
Cos(Number)
Tan(Number)
【戻り値】倍精度浮動小数点型 (Double)

ラジアンとは

ラジアンは円における半径と弧の比によって決められている単位です。「1ラジアン」は弧の長さが半径の長さと同じになる扇型の中心角で、度数法でいうと約57.3度（1ラジアン＝　180度/円周率）でもとめられます。

度数をラジアンに変換する計算方法

度数*円周率/180

上記の式で度数をラジアンに変換できます。円周率（π）は、「Excel」ではPI関数があり円周率をもとめられます。「VBA」には、円周率を直接もとめる関数がありませんがAtn【ｱｰｸﾀﾝｼﾞｪﾝﾄ】関数で円周率（π）をもとめることができます。

Atn【ｱｰｸﾀﾝｼﾞｪﾝﾄ】関数

直角三角形の直角をはさむ２辺の割合を引数として受け取りそれに対応する角度(ラジアン)を返します。

Atn【ｱｰｸﾀﾝｼﾞｪﾝﾄ】関数の書式と引数の説明

Atn(Number)
【戻り値】倍精度浮動小数点型 (Double)

Atn関数で円周率(π)をもとめる書式

4*Atn(1)

コード例

Sub 三角関数()
MsgBox _
"角度が45度のときの正弦は:" & Sin(45 * 4 * Atn(1) / 180) & vbCrLf & _
"角度が45度のときの余弦は:" & Cos(45 * 4 * Atn(1) / 180) & vbCrLf & _
"角度が45度のときの正接は:" & Tan(45 * 4 * Atn(1) / 180) & vbCrLf & _
"円周率は:" & 4 * Atn(1)
End Sub

実行結果

以上で、Sin【ｻｲﾝ】関数、Cos【ｺｻｲﾝ】関数、Tan【ﾀﾝｼﾞｪﾝﾄ】関数 、Atn【ｱｰｸﾀﾝｼﾞｪﾝﾄ】関数についての解説を終了します。ありがとうございました。