Cos関数:コサイン(余弦)を取得する

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

(Last modified: 2023年02月21日)

Cos関数の定義と使い方

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

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

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

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

次の例を見てください。

Const PI As Double = 3.141592654

Debug.Print Cos(PI/4)  '0.707106781114032
Debug.Print Cos(PI/6)  '0.866025403750255

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

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

Dim PI As Double

PI = Atn(1) * 4

Debug.Print Cos(PI/4)  '0.707106781186548
Debug.Print Cos(PI/6)  '0.866025403784439 

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

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

Option Explicit

Sub Cos関数()
    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 = Cos(rad)
    Next i
End Sub

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

-- --

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

著者 / TATSUO IKURA

これから IT 関連の知識を学ばれる方を対象に、色々な言語でのプログラミング方法や関連する技術、開発環境構築などに関する解説サイトを運営しています。