Sin関数:サイン(正弦)を取得する

Sin 関数は Excel VBA で用意されている関数の一つで、指定したラジアン単位の角度に対するサイン(正弦)を取得します。ここでは Excel VBA における Sin 関数の使い方について解説します。

(Last modified: )

Sin関数の定義と使い方

Sin 関数は引数に指定したラジアン単位の角度に対するサイン(正弦)を返します。

Sin(number)

1 番目の引数に角度を表す数値をラジアン単位で指定します。戻り値としてサインを返します。

サイン(正弦)とは次の図のような直角三角形で鋭角を θ としたとき、次のように定義されるものです。

Sin関数の定義と使い方(1)

角度はラジアン単位で指定します。度単位で 180° はラジアン単位で π = 3.141592654・・・ です。例えば 30° なら 3.141592654 / 6 = 0.523598776 を、 45° なら 3.141592654 / 4 = 0.785398164 を指定してください。

度単位ラジアン単位
30π/6 (=0.523598776)
45π/4 (=0.785398163)
60π/3 (=1.047197551)
90π/2 (=1.570796327)
180π (=3.141592654)
3602π (=6.283185307)

次の例を見てください。

Const PI As Double = 3.141592654

Debug.Print Sin(PI/4)  '0.707106781259063 
Debug.Print Sin(PI/6)  '0.500000000059208 

Sin 関数を使って度数単位で 45 度と 30 度に対するサインを取得しました。

なお円周率を定数として定義しましたが、関数を使って取得することもできます。例えば次のように記述することができます。

Dim PI As Double

PI = Atn(1) * 4

Debug.Print Sin(PI/4)  '0.707106781186547
Debug.Print Sin(PI/6)  '0.5 

VBA で用意されている Atn 関数を利用して円周率を取得しました。 VBA から円周率を取得する詳しい解説については「VBAで円周率を取得する方法」を参照されてください。

サンプルコード

それでは簡単なサンプルを作成して試してみます。

Option Explicit

Sub Sin関数()
    Dim PI As Double
    Dim rad As Double
    Dim i As Integer

    PI = Atn(1) * 4
    
    For i = 3 To 5
        rad = PI / (180 / Cells(i, 2).Value)
        Cells(i, 3).Value = rad
        Cells(i, 4).Value = Sin(rad)
    Next i
End Sub

Sin関数の定義と使い方(2)

このプログラムを実行すると Sin 関数を使って B3 セルから B5 セルまでに入力された度単位の角度に対するサインを取得し D3 セルから D5 セルに代入します。

Sin関数の定義と使い方(3)

-- --

Excel VBA における Sin 関数の使い方について解説しました。

( Written by Tatsuo Ikura )

Profile
profile_img

著者 / TATSUO IKURA

プログラミングや開発環境構築の解説サイトを運営しています。